tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

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.
This commit is contained in:
Nicolas Goaziou 2013-02-01 23:47:00 +01:00
parent 787a07421c
commit cb1386ba39
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
contrib/lisp/org-e-ascii.el
View 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)))