tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

ox: Tiny fix to code comments 

* lisp/ox.el (org-export--get-subtree-options): Tiny fix.
This commit is contained in:
Nicolas Goaziou 2015-04-22 14:05:51 +02:00
parent c88256c776
commit 79db2d5dbb
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/ox.el
View File

@ -1394,8 +1394,8 @@ Optional argument BACKEND is an export back-end, as returned by,
e.g., `org-export-create-backend'. It specifies back-end used e.g., `org-export-create-backend'. It specifies back-end used
for export. Return options as a plist." for export. Return options as a plist."
;; For each buffer keyword, create a headline property setting the ;; For each buffer keyword, create a headline property setting the
;; same property in communication channel. The name for the property ;; same property in communication channel. The name for the
;; is the keyword with "EXPORT_" appended to it. ;; property is the keyword with "EXPORT_" appended to it.
(org-with-wide-buffer (org-with-wide-buffer
(let (plist (let (plist
;; Look for both general keywords and back-end specific ;; Look for both general keywords and back-end specific
@ -1404,9 +1404,9 @@ for export. Return options as a plist."
org-export-options-alist))) org-export-options-alist)))
;; Make sure point is at a heading. ;; Make sure point is at a heading.
(if (org-at-heading-p) (org-up-heading-safe) (org-back-to-heading t)) (if (org-at-heading-p) (org-up-heading-safe) (org-back-to-heading t))
;; Take care of EXPORT_TITLE. If it isn't defined, use headline's ;; Take care of EXPORT_TITLE. If it isn't defined, use
;; title (with no todo keyword, priority cookie or tag) as its ;; headline's title (with no todo keyword, priority cookie or
;; fallback value. ;; tag) as its fallback value.
(let ((title (or (org-entry-get (point) "EXPORT_TITLE") (let ((title (or (org-entry-get (point) "EXPORT_TITLE")
(progn (looking-at org-complex-heading-regexp) (progn (looking-at org-complex-heading-regexp)
(org-match-string-no-properties 4))))) (org-match-string-no-properties 4)))))