forked from mirrors/org-mode
ox.el (org-export--get-subtree-options): Fix bug
* ox.el (org-export--get-subtree-options): When using the headline as a title for a subtree export, only take the true heading, no TODO keyword, no priority cookie, no tag. Thanks to Robert Klein for reporting this.
This commit is contained in:
parent
3f9a6916aa
commit
f4715f1652
|
@ -1613,10 +1613,11 @@ for export. Return options as a plist."
|
||||||
;; 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 headline's
|
||||||
;; title as its fallback value.
|
;; title (with no todo keyword, priority cookie or tag) as its
|
||||||
|
;; fallback value.
|
||||||
(when (setq prop (or (org-entry-get (point) "EXPORT_TITLE")
|
(when (setq prop (or (org-entry-get (point) "EXPORT_TITLE")
|
||||||
(progn (looking-at org-todo-line-regexp)
|
(progn (looking-at org-complex-heading-regexp)
|
||||||
(org-match-string-no-properties 3))))
|
(org-match-string-no-properties 4))))
|
||||||
(setq plist
|
(setq plist
|
||||||
(plist-put
|
(plist-put
|
||||||
plist :title
|
plist :title
|
||||||
|
|
Loading…
Reference in New Issue