org-e-ascii: Fix justification for lines looking like a fill-prefix
authorNicolas Goaziou <n.goaziou@gmail.com>
Fri, 1 Feb 2013 22:47:00 +0000 (23:47 +0100)
committerNicolas Goaziou <n.goaziou@gmail.com>
Fri, 1 Feb 2013 22:47:00 +0000 (23:47 +0100)
* contrib/lisp/org-e-ascii.el (org-e-ascii--justify-string): Fill
  justification for lines looking-like a fill-prefix.

contrib/lisp/org-e-ascii.el

index 7bfc4c2..c137fd7 100644 (file)
@@ -434,7 +434,10 @@ HOW determines the type of justification: it can be `left',
   (with-temp-buffer
     (insert s)
     (goto-char (point-min))
-    (let ((fill-column text-width))
+    (let ((fill-column text-width)
+         ;; Disable `adaptive-fill-mode' so it doesn't prevent
+         ;; filling lines matching `adaptive-fill-regexp'.
+         (adaptive-fill-mode nil))
       (while (< (point) (point-max))
        (justify-current-line how)
        (forward-line)))