forked from mirrors/org-mode
Merge branch 'maint'
This commit is contained in:
commit
221768a768
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue