forked from mirrors/org-mode
org-export: Fix smart quote bug with footnote definitions in ascii back-end
* contrib/lisp/org-export.el (org-export-activate-smart-quotes): Fix error when exporting a footnote definition.
This commit is contained in:
parent
413a35f7f8
commit
9ca48c15e1
|
@ -4552,7 +4552,18 @@ original string.
|
||||||
Return the new string."
|
Return the new string."
|
||||||
(if (equal s "") ""
|
(if (equal s "") ""
|
||||||
(let* ((prev (org-export-get-previous-element (or original s) info))
|
(let* ((prev (org-export-get-previous-element (or original s) info))
|
||||||
(pre-blank (and prev (org-element-property :post-blank prev)))
|
;; Try to be flexible when computing number of blanks
|
||||||
|
;; before object. The previous object may be a string
|
||||||
|
;; introduced by the back-end and not completely parsed.
|
||||||
|
(pre-blank (and prev
|
||||||
|
(or (org-element-property :post-blank prev)
|
||||||
|
;; A string with missing `:post-blank'
|
||||||
|
;; property.
|
||||||
|
(and (stringp prev)
|
||||||
|
(string-match " *\\'" prev)
|
||||||
|
(length (match-string 0 prev)))
|
||||||
|
;; Fallback value.
|
||||||
|
0)))
|
||||||
(next (org-export-get-next-element (or original s) info))
|
(next (org-export-get-next-element (or original s) info))
|
||||||
(get-smart-quote
|
(get-smart-quote
|
||||||
(lambda (q type)
|
(lambda (q type)
|
||||||
|
|
Loading…
Reference in a new issue