mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-12-02 08:22:16 +00:00
Code

Revert "Properties: Fix property-getting with inheritance"

Browse Source 
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
(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))