mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-04 11:00:45 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
do adaptive-fill processing even for one-line paragraphs.
This commit is contained in:
Richard M. Stallman 1994-05-28 08:15:16 +00:00
parent 5bca93aca7
commit 32b50df655
1 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/textmodes/fill.el
View file

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