summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEric Schulte <schulte.eric@gmail.com>2011-01-08 14:14:17 -0700
committerEric Schulte <schulte.eric@gmail.com>2011-01-08 14:14:17 -0700
commit5e7cbe28f4a58b1e7f88dd139aa00ccd5c95cb65 (patch)
tree3df1f8a09a8b242fe505a15b4b4d3a6ab6584eae
parent57b21c86ff0edaa96eead9a42a3ac123bf009fd6 (diff)
downloadorg-mode-5e7cbe28f4a58b1e7f88dd139aa00ccd5c95cb65.tar.gz
org-collector: completed and activated new :inherit keyword
-rw-r--r--contrib/lisp/org-collector.el8
1 files changed, 6 insertions, 2 deletions
diff --git a/contrib/lisp/org-collector.el b/contrib/lisp/org-collector.el
index 7cac36a..538c062 100644
--- a/contrib/lisp/org-collector.el
+++ b/contrib/lisp/org-collector.el
@@ -160,8 +160,12 @@ variables and values specified in props"
(defun org-propview-get-with-inherited (&optional inherit)
(append
(org-entry-properties)
- (mapcar (lambda (i) (cons i (org-entry-get nil i 'do-inherit))) inherit))
- (org-entry-properties))
+ (delq nil
+ (mapcar (lambda (i)
+ (let* ((n (symbol-name i))
+ (p (org-entry-get (point) n 'do-inherit)))
+ (when p (cons n p))))
+ inherit))))
(defun org-propview-collect (cols &optional conds match scope inherit)
(interactive)