Browse Source

Revert "Properties: Fix property-getting with inheritance"

This reverts commit 475f2f5388074c5153b3f35e41696419faa52b54.
Bastien Guerry 11 years ago
parent
commit
3074d081e7
1 changed files with 8 additions and 9 deletions
  1. 8 9
      lisp/org.el

+ 8 - 9
lisp/org.el

@@ -15455,15 +15455,14 @@ However, if LITERAL-NIL is set, return the string value \"nil\" instead."
       (save-restriction
 	(widen)
 	(catch 'ex
-	  (let (org-file-properties org-global-properties org-global-properties-fixed)
-	    (while t
-	      (when (setq tmp (org-entry-get nil property nil 'literal-nil))
-		(or (ignore-errors (org-back-to-heading t))
-		    (goto-char (point-min)))
-		(move-marker org-entry-property-inherited-from (point))
-		(throw 'ex tmp))
-	      (or (ignore-errors (org-up-heading-safe))
-		  (throw 'ex nil)))))))
+	  (while t
+	    (when (setq tmp (org-entry-get nil property nil 'literal-nil))
+	      (or (ignore-errors (org-back-to-heading t))
+		  (goto-char (point-min)))
+	      (move-marker org-entry-property-inherited-from (point))
+	      (throw 'ex tmp))
+	    (or (ignore-errors (org-up-heading-safe))
+		(throw 'ex nil))))))
     (setq tmp (or tmp
 		  (cdr (assoc property org-file-properties))
 		  (cdr (assoc property org-global-properties))