mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 19:07:52 +00:00
Code Releases Activity

Tiny refactoring

Browse source 
* lisp/org.el (org-entry-properties): Tiny refactoring.
This commit is contained in:
Nicolas Goaziou 2014-11-18 10:43:50 +01:00
parent 3e13ffdfb6
commit 4df091b431
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/org.el
View file

@ -15730,8 +15730,7 @@ strings."
(if p (setcdr p (concat value " " (cdr p)))
(push (cons key value) props))))))))))))
(unless (assoc "CATEGORY" props)
(goto-char beg)
(push (cons "CATEGORY" (org-get-category)) props)
(push (cons "CATEGORY" (org-get-category beg)) props)
(when (string= specific "CATEGORY") (throw 'exit props)))
;; Return value.
(append (get-text-property beg 'org-summaries) props))))))