diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2012-01-22 14:27:51 +0100 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2012-01-22 14:27:51 +0100 |
commit | d41b9803e2b19a71ef361f063fbb72976557e3fe (patch) | |
tree | d81304de4b90ad23b4440ed1c343394e5f8ce49d | |
parent | f694c3d996bfd5d7a853751f08eda5ea70ea0d6f (diff) | |
download | org-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.el | 7 |
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")) |