ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Revert "Properties: Fix property-getting with inheritance" 

This reverts commit 475f2f5388.
This commit is contained in:
Bastien Guerry 2014-03-17 21:22:04 +01:00
parent 39cfc39ccb
commit 3074d081e7
1 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lisp/org.el
View File

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