org-export: Fix smart quote bug with footnote definitions in ascii back-end
authorNicolas Goaziou <n.goaziou@gmail.com>
Sun, 3 Feb 2013 18:44:51 +0000 (19:44 +0100)
committerNicolas Goaziou <n.goaziou@gmail.com>
Sun, 3 Feb 2013 18:44:51 +0000 (19:44 +0100)
* contrib/lisp/org-export.el (org-export-activate-smart-quotes): Fix
  error when exporting a footnote definition.

contrib/lisp/org-export.el

index db78b90..54b5c2e 100644 (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)