From 9ca48c15e1e21419a85e04ec1c034dac2f5d7609 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Sun, 3 Feb 2013 19:44:51 +0100 Subject: [PATCH] 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. --- contrib/lisp/org-export.el | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/contrib/lisp/org-export.el b/contrib/lisp/org-export.el index db78b9086..54b5c2e78 100644 --- a/contrib/lisp/org-export.el +++ b/contrib/lisp/org-export.el @@ -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)