diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2013-02-01 23:47:00 +0100 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2013-02-01 23:47:00 +0100 |
commit | cb1386ba39d4115a4fe05656bee2043272e8e3d8 (patch) | |
tree | f92e8bb6b2c7f075eb977ad445cd202876e9831f | |
parent | 787a07421c7d7007dd1b44229e443ccf39e1801a (diff) | |
download | org-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.el | 5 |
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))) |