mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2025-01-29 20:35:02 +00:00
Code

org-export: Fix smart quote bug with footnote definitions in ascii back-end

Browse Source 
* contrib/lisp/org-export.el (org-export-activate-smart-quotes): Fix
  error when exporting a footnote definition.
This commit is contained in:
Nicolas Goaziou 2013-02-03 19:44:51 +01:00
parent 413a35f7f8
commit 9ca48c15e1
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
contrib/lisp/org-export.el
View File

@ -4552,7 +4552,18 @@ original string.
Return the new string."
(if (equal s "") ""
(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))
(get-smart-quote
(lambda (q type)