mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-25 07:02:53 +00:00
Whitespace and indentation cleanup.
This commit is contained in:
parent
7dd425cc5d
commit
f0c9e8d672
31
lisp/org.el
31
lisp/org.el
|
@ -13683,22 +13683,21 @@ However, if LITERAL-NIL is set, return the string value \"nil\" instead."
|
|||
(move-marker org-entry-property-inherited-from nil)
|
||||
(let (tmp)
|
||||
(unless (org-before-first-heading-p)
|
||||
(save-excursion
|
||||
(save-restriction
|
||||
(widen)
|
||||
(catch 'ex
|
||||
(while t
|
||||
(when (setq tmp (org-entry-get nil property nil 'literal-nil))
|
||||
(org-back-to-heading t)
|
||||
(move-marker org-entry-property-inherited-from (point))
|
||||
(throw 'ex tmp))
|
||||
(or (org-up-heading-safe) (throw 'ex nil)))))
|
||||
))
|
||||
(setq tmp (or tmp
|
||||
(cdr (assoc property org-file-properties))
|
||||
(cdr (assoc property org-global-properties))
|
||||
(cdr (assoc property org-global-properties-fixed))))
|
||||
(if literal-nil tmp (org-not-nil tmp))))
|
||||
(save-excursion
|
||||
(save-restriction
|
||||
(widen)
|
||||
(catch 'ex
|
||||
(while t
|
||||
(when (setq tmp (org-entry-get nil property nil 'literal-nil))
|
||||
(org-back-to-heading t)
|
||||
(move-marker org-entry-property-inherited-from (point))
|
||||
(throw 'ex tmp))
|
||||
(or (org-up-heading-safe) (throw 'ex nil)))))))
|
||||
(setq tmp (or tmp
|
||||
(cdr (assoc property org-file-properties))
|
||||
(cdr (assoc property org-global-properties))
|
||||
(cdr (assoc property org-global-properties-fixed))))
|
||||
(if literal-nil tmp (org-not-nil tmp))))
|
||||
|
||||
(defvar org-property-changed-functions nil
|
||||
"Hook called when the value of a property has changed.
|
||||
|
|
Loading…
Reference in a new issue