ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Tiny refactoring 

* 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))) (if p (setcdr p (concat value " " (cdr p)))
(push (cons key value) props)))))))))))) (push (cons key value) props))))))))))))
(unless (assoc "CATEGORY" props) (unless (assoc "CATEGORY" props)
(goto-char beg) (push (cons "CATEGORY" (org-get-category beg)) props)
(push (cons "CATEGORY" (org-get-category)) props)
(when (string= specific "CATEGORY") (throw 'exit props))) (when (string= specific "CATEGORY") (throw 'exit props)))
;; Return value. ;; Return value.
(append (get-text-property beg 'org-summaries) props)))))) (append (get-text-property beg 'org-summaries) props))))))