Commit 32b50df6 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(fill-region-as-paragraph): if left-margin is nonzero,

do adaptive-fill processing even for one-line paragraphs.
parent 5bca93ac
......@@ -85,11 +85,15 @@ From program, pass args FROM, TO and JUSTIFY-FLAG."
(setq fill-prefix (buffer-substring start (point))))
(goto-char (min from to))
(if (eolp) (forward-line 1))
;; If paragraph has only one line, don't assume
;; If paragraph has only one line, don't assume in general
;; that additional lines would have the same starting
;; decoration. Assume no indentation.
;; (re-search-forward adaptive-fill-regexp)
;; (setq fill-prefix (make-string (current-column) ?\ ))
;; But if left-margin is nonzero, we can assume ordinary
;; lines do have indentation.
(if (> left-margin 0)
(progn
(re-search-forward adaptive-fill-regexp)
(setq fill-prefix (make-string (current-column) ?\ ))))
)))
(save-restriction
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment