martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages 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