forked from mirrors/org-mode
Merge branch 'maint'
This commit is contained in:
commit
84aabd700e
|
@ -1637,10 +1637,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 a new issue