diff options
author | Eric Schulte <schulte.eric@gmail.com> | 2011-01-08 14:14:17 -0700 |
---|---|---|
committer | Eric Schulte <schulte.eric@gmail.com> | 2011-01-08 14:14:17 -0700 |
commit | 5e7cbe28f4a58b1e7f88dd139aa00ccd5c95cb65 (patch) | |
tree | 3df1f8a09a8b242fe505a15b4b4d3a6ab6584eae | |
parent | 57b21c86ff0edaa96eead9a42a3ac123bf009fd6 (diff) | |
download | org-mode-5e7cbe28f4a58b1e7f88dd139aa00ccd5c95cb65.tar.gz |
org-collector: completed and activated new :inherit keyword
-rw-r--r-- | contrib/lisp/org-collector.el | 8 |
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) |