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
for export. Return options as a plist."
;; For each buffer keyword, create a headline property setting the
;; same property in communication channel. The name for the property
;; is the keyword with "EXPORT_" appended to it.
;; same property in communication channel. The name for the
;; property is the keyword with "EXPORT_" appended to it.
(org-with-wide-buffer
(let (plist
;; Look for both general keywords and back-end specific
@ -1404,9 +1404,9 @@ for export. Return options as a plist."
org-export-options-alist)))
;; Make sure point is at a heading.
(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
;; title (with no todo keyword, priority cookie or tag) as its
;; fallback value.
;; Take care of EXPORT_TITLE. If it isn't defined, use
;; headline's title (with no todo keyword, priority cookie or
;; tag) as its fallback value.
(let ((title (or (org-entry-get (point) "EXPORT_TITLE")
(progn (looking-at org-complex-heading-regexp)
(org-match-string-no-properties 4)))))