Browse Source

org-e-ascii: Fix justification for lines looking like a fill-prefix

* contrib/lisp/org-e-ascii.el (org-e-ascii--justify-string): Fill
  justification for lines looking-like a fill-prefix.
Nicolas Goaziou 5 years ago
parent
commit
cb1386ba39
1 changed files with 4 additions and 1 deletions
  1. 4 1
      contrib/lisp/org-e-ascii.el

+ 4 - 1
contrib/lisp/org-e-ascii.el

@@ -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)))