Browse Source

org-collector: completed and activated new :inherit keyword

Eric Schulte 14 years ago
parent
commit
5e7cbe28f4
1 changed files with 6 additions and 2 deletions
  1. 6 2
      contrib/lisp/org-collector.el

+ 6 - 2
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)