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."
(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