diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2013-06-05 14:24:58 +0200 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2013-06-05 14:24:58 +0200 |
commit | 221768a768798717444505ceb2b3a0946102c04a (patch) | |
tree | dad6175e9ad1b45f7ce7052949de6eb722d21afa | |
parent | d7e884d86c8560477ca1e69fb8423db6770981ac (diff) | |
parent | 4b7006f444950811a1266feaf5b36d24d7a04cbf (diff) | |
download | org-mode-221768a768798717444505ceb2b3a0946102c04a.tar.gz |
Merge branch 'maint'
-rw-r--r-- | lisp/ox.el | 9 |
1 files changed, 5 insertions, 4 deletions
@@ -3460,10 +3460,11 @@ double quotes will be read as-is, which means that \"\" value will become the empty string." (let* ((prepare-value (lambda (str) - (cond ((member str '(nil "" "nil")) nil) - ((string-match "^\"\\(\"+\\)?\"$" str) - (or (match-string 1 str) "")) - (t str)))) + (save-match-data + (cond ((member str '(nil "" "nil")) nil) + ((string-match "^\"\\(\"+\\)?\"$" str) + (or (match-string 1 str) "")) + (t str))))) (attributes (let ((value (org-element-property attribute element))) (when value |