Browse Source

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.
Nicolas Goaziou 5 years ago
parent
commit
9ca48c15e1
1 changed files with 12 additions and 1 deletions
  1. 12 1
      contrib/lisp/org-export.el

+ 12 - 1
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)