org-collector: completed and activated new :inherit keyword

This commit is contained in:
Eric Schulte 2011-01-08 14:14:17 -07:00
parent 57b21c86ff
commit 5e7cbe28f4
1 changed files with 6 additions and 2 deletions

View File

@ -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)