summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <n.goaziou@gmail.com>2012-01-22 14:27:51 +0100
committerNicolas Goaziou <n.goaziou@gmail.com>2012-01-22 14:27:51 +0100
commitd41b9803e2b19a71ef361f063fbb72976557e3fe (patch)
treed81304de4b90ad23b4440ed1c343394e5f8ce49d
parentf694c3d996bfd5d7a853751f08eda5ea70ea0d6f (diff)
downloadorg-mode-d41b9803e2b19a71ef361f063fbb72976557e3fe.tar.gz
org-export: Do not export subtree titles as-is
* contrib/lisp/org-export.el (org-export-get-subtree-options): Interpret subtree title as a secondary string, not as a simple string.
-rw-r--r--contrib/lisp/org-export.el7
1 files changed, 6 insertions, 1 deletions
diff --git a/contrib/lisp/org-export.el b/contrib/lisp/org-export.el
index bb3b297..10b5eb0 100644
--- a/contrib/lisp/org-export.el
+++ b/contrib/lisp/org-export.el
@@ -945,7 +945,12 @@ Return options as a plist."
(or (save-match-data
(org-entry-get (point) "EXPORT_TITLE"))
(org-match-string-no-properties 3))))
- (setq plist (plist-put plist :title prop)))
+ (setq plist
+ (plist-put
+ plist :title
+ (org-element-parse-secondary-string
+ prop
+ (cdr (assq 'keyword org-element-string-restrictions))))))
(when (setq prop (org-entry-get (point) "EXPORT_TEXT"))
(setq plist (plist-put plist :text prop)))
(when (setq prop (org-entry-get (point) "EXPORT_AUTHOR"))