diff options
| author | Carsten Dominik <carsten.dominik@gmail.com> | 2010-01-18 00:05:29 +0100 |
|---|---|---|
| committer | Carsten Dominik <carsten.dominik@gmail.com> | 2010-01-18 00:05:29 +0100 |
| commit | 5d5aab1a4248f80939e219f58b33302f2f052561 (patch) | |
| tree | b8a2f2c8424bb4e89c3777078d40cd083617635d | |
| parent | 0e370d498b34469a025cdce864fd5c5987bf8050 (diff) | |
| download | org-mode-5d5aab1a4248f80939e219f58b33302f2f052561.tar.gz | |
Fix important bugs in `org-entry-properties'
Patches by David Maus
| -rwxr-xr-x | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/org.el | 8 |
2 files changed, 8 insertions, 4 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3f46f3c..9937636 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2010-01-17 Carsten Dominik <carsten.dominik@gmail.com> + + * org.el (org-entry-properties): Fix some important bugs. + 2010-01-16 Carsten Dominik <carsten.dominik@gmail.com> * org.el (org-link-unescape, org-link-escape): Only use hexlify if diff --git a/lisp/org.el b/lisp/org.el index ee81c4d..4415240 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -12509,13 +12509,13 @@ if the property key was used several times. POM may also be nil, in which case the current entry is used. If WHICH is nil or `all', get all properties. If WHICH is `special' or `standard', only get that subclass. If WHICH -is a string only get exactly this property. Specific can be a sting, the +is a string only get exactly this property. Specific can be a string, the specific property we are interested in. Specifying it can speed things up because then unnecessary parsing is avoided." (setq which (or which 'all)) (org-with-point-at pom (let ((clockstr (substring org-clock-string 0 -1)) - (excluded '("TODO" "TAGS" "ALLTAGS" "PRIORITY")) + (excluded '("TODO" "TAGS" "ALLTAGS" "PRIORITY" "BLOCKED")) (case-fold-search nil) beg end range props sum-props key value string clocksum) (save-excursion @@ -12540,12 +12540,12 @@ things up because then unnecessary parsing is avoided." (setq value (org-get-tags-string)) (string-match "\\S-" value)) (push (cons "TAGS" value) props)) - (when (and (or (not specific) (string= specific "TAGS")) + (when (and (or (not specific) (string= specific "ALLTAGS")) (setq value (org-get-tags-at))) (push (cons "ALLTAGS" (concat ":" (mapconcat 'identity value ":") ":")) props)) - (when (or (not specific) (string= specific "TAGS")) + (when (or (not specific) (string= specific "BLOCKED")) (push (cons "BLOCKED" (if (org-entry-blocked-p) "t" "")) props)) (when (or (not specific) (member specific org-all-time-keywords) |