Fix `org-refresh-property'

* lisp/org.el(org-refresh-property): Fixed by comparison to the code
  before the refactoring.

With commit 126a1cd7c the "Effort" property broke the agenda.
This commit is contained in:
Marco Wahl 2017-01-27 19:35:16 +01:00
parent 919e864968
commit d715cc42fa
1 changed files with 2 additions and 2 deletions

View File

@ -9766,8 +9766,8 @@ sub-tree if optional argument INHERIT is non-nil."
;; TPROP is a text property symbol.
(put-text-property start end tprop p)
;; TPROP is an alist with (property . function) elements.
(pcase-dolist (`(,p . ,f) tprop)
(put-text-property start end p (funcall f p))))))))
(pcase-dolist (`(,prop . ,f) tprop)
(put-text-property start end prop (funcall f p))))))))
(defun org-refresh-category-properties ()
"Refresh category text properties in the buffer."