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

Merge branch 'maint'

This commit is contained in:
Bastien Guerry 2014-01-19 16:37:42 +01:00
parent fd877a7380 f4715f1652
commit 84aabd700e
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/ox.el
View File

@ -1637,10 +1637,11 @@ for export. Return options as a plist."
;; 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 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")
(progn (looking-at org-todo-line-regexp)
(org-match-string-no-properties 3))))
(progn (looking-at org-complex-heading-regexp)
(org-match-string-no-properties 4))))
(setq plist
(plist-put
plist :title