mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-12-04 08:47:03 +00:00
Code

Fix "Before first headline" error in `org-refresh-property'

Browse Source 
* lisp/org.el (org-refresh-property): Ignore function when before
first headline or inlinetask.  Small refactoring.

Reported-by: Nick Dokos <ndokos@gmail.com>
<http://permalink.gmane.org/gmane.emacs.orgmode/96552>
This commit is contained in:
Nicolas Goaziou 2015-03-31 15:57:54 +02:00
parent 2081cd3f62
commit c1a744659d
1 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
lisp/org.el
View File

@ -9523,20 +9523,20 @@ the value of the drawer property."
(defun org-refresh-property (tprop p)
"Refresh the buffer text property TPROP from the drawer property P.
The refresh happens only for the current tree (not subtree)."
(save-excursion
(org-back-to-heading t)
;; tprop is a text property symbol
(if (symbolp tprop)
(put-text-property
(point) (or (outline-next-heading) (point-max)) tprop p)
;; tprop is an alist with (properties . function) elements
(mapc (lambda(al)
(save-excursion
(put-text-property
(point-at-bol) (or (outline-next-heading) (point-max))
(car al)
(funcall (cdr al) p))))
tprop))))
(unless (org-before-first-heading-p)
(save-excursion
(org-back-to-heading t)
(if (symbolp tprop)
;; TPROP is a text property symbol
(put-text-property
(point) (or (outline-next-heading) (point-max)) tprop p)
;; TPROP is an alist with (properties . function) elements
(dolist (al tprop)
(save-excursion
(put-text-property
(line-beginning-position) (or (outline-next-heading) (point-max))
(car al)
(funcall (cdr al) p))))))))
(defun org-refresh-category-properties ()
"Refresh category text properties in the buffer."