diff options
author | Carsten Dominik <carsten.dominik@gmail.com> | 2008-10-20 08:10:13 +0200 |
---|---|---|
committer | Carsten Dominik <carsten.dominik@gmail.com> | 2008-10-20 08:10:13 +0200 |
commit | 24d80b392870123fb8be90d1509d01837930fba3 (patch) | |
tree | f822159754ee7c8d1e3ad612f0e5aa43fa7fca45 | |
parent | a6e5bc531de77201cc2cb500d42a70612dd5077f (diff) | |
download | org-mode-24d80b392870123fb8be90d1509d01837930fba3.tar.gz |
Add CATEGORY as an retrievable entry property.
-rwxr-xr-x | lisp/ChangeLog | 5 | ||||
-rw-r--r-- | lisp/org.el | 5 |
2 files changed, 10 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ad7c9fe..4db27a1 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2008-10-20 Carsten Dominik <dominik@science.uva.nl> + + * org.el (org-entry-properties): Add CATEGORY property, iven if it + is not defined as a property in this entry. + 2008-10-19 James TD Smith <ahktenzero@mohorovi.cc> * org.el (org-add-log-setup): Bugfix; code to find insertion point diff --git a/lisp/org.el b/lisp/org.el index 3e7e4b1..455d0aa 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -9821,6 +9821,11 @@ If WHICH is nil or `all', get all properties. If WHICH is (org-columns-number-to-string (/ (float clocksum) 60.) 'add_times)) props)) + (unless (assoc "CATEGORY" props) + (setq value (or (org-get-category) + (progn (org-refresh-category-properties) + (org-get-category)))) + (push (cons "CATEGORY" value) props)) (append sum-props (nreverse props))))))) (defun org-entry-get (pom property &optional inherit) |