forked from mirrors/org-mode
ox: Tiny fix to code comments
* lisp/ox.el (org-export--get-subtree-options): Tiny fix.
This commit is contained in:
parent
c88256c776
commit
79db2d5dbb
10
lisp/ox.el
10
lisp/ox.el
|
@ -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)))))
|
||||||
|
|
Loading…
Reference in a new issue