diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2014-02-01 22:51:35 +0100 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2014-02-01 23:25:47 +0100 |
commit | 8e1386cead0e4296f7bb063d07d64dd95ec0b231 (patch) | |
tree | dd3d20bd36746a92176755111192fa236b3408d6 | |
parent | ac2f516edf90e9631f069c08294fb11ecf42b231 (diff) | |
download | org-mode-8e1386cead0e4296f7bb063d07d64dd95ec0b231.tar.gz |
org-element: Fix smart quotes in TITLE
* lisp/org-element.el (org-element-interpret-data): Do not remove
properties by side-effect when interpreting a string, as it also
removes them from the parse tree, making the string unusable without
its :parent property.
If text properties get in the way, it is also possible to use
`substring-no-properties' but then, a compatibility function would be
required for XEmacs.
-rw-r--r-- | lisp/org-element.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/org-element.el b/lisp/org-element.el index 77b2bc2..f3e5a2e 100644 --- a/lisp/org-element.el +++ b/lisp/org-element.el @@ -4489,8 +4489,8 @@ Return Org syntax as a string." (mapconcat (lambda (obj) (org-element-interpret-data obj parent)) (org-element-contents data) "")) - ;; Plain text: remove `:parent' text property from output. - ((stringp data) (org-no-properties data)) + ;; Plain text: return it. + ((stringp data) data) ;; Element/Object without contents. ((not (org-element-contents data)) (funcall (intern (format "org-element-%s-interpreter" type)) |