summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <n.goaziou@gmail.com>2013-02-01 23:47:00 +0100
committerNicolas Goaziou <n.goaziou@gmail.com>2013-02-01 23:47:00 +0100
commitcb1386ba39d4115a4fe05656bee2043272e8e3d8 (patch)
treef92e8bb6b2c7f075eb977ad445cd202876e9831f
parent787a07421c7d7007dd1b44229e443ccf39e1801a (diff)
downloadorg-mode-cb1386ba39d4115a4fe05656bee2043272e8e3d8.tar.gz
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.
-rw-r--r--contrib/lisp/org-e-ascii.el5
1 files changed, 4 insertions, 1 deletions
diff --git a/contrib/lisp/org-e-ascii.el b/contrib/lisp/org-e-ascii.el
index 7bfc4c2..c137fd7 100644
--- a/contrib/lisp/org-e-ascii.el
+++ b/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)))