ox: Fix "Wrong argument type" error when attributes start with :key ""

* lisp/ox.el (org-export-read-attribute): Fix "Wrong argument type"
  error when attributes start with :key "".
This commit is contained in:
Nicolas Goaziou 2013-06-05 14:24:18 +02:00
parent 53784ef861
commit 4b7006f444
1 changed files with 5 additions and 4 deletions

View File

@ -3460,10 +3460,11 @@ double quotes will be read as-is, which means that \"\" value
will become the empty string." will become the empty string."
(let* ((prepare-value (let* ((prepare-value
(lambda (str) (lambda (str)
(cond ((member str '(nil "" "nil")) nil) (save-match-data
((string-match "^\"\\(\"+\\)?\"$" str) (cond ((member str '(nil "" "nil")) nil)
(or (match-string 1 str) "")) ((string-match "^\"\\(\"+\\)?\"$" str)
(t str)))) (or (match-string 1 str) ""))
(t str)))))
(attributes (attributes
(let ((value (org-element-property attribute element))) (let ((value (org-element-property attribute element)))
(when value (when value