mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-21 18:23:59 +00:00
Code Issues Releases Activity

(fill-individual-paragraphs): Advance 1 line in inner loop.

Browse Source
This commit is contained in:
Richard M. Stallman 1995-11-14 23:28:24 +00:00
parent 94f62922fa
commit c62861749e
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/textmodes/fill.el
View File

@ -787,17 +787,18 @@ MAIL-FLAG for a mail message, i. e. don't fill header lines."
(save-excursion (skip-chars-forward " \t") (save-excursion (skip-chars-forward " \t")
(point)))) (point))))
fill-prefix-regexp (regexp-quote fill-prefix))) fill-prefix-regexp (regexp-quote fill-prefix)))
(move-to-left-margin 1) (forward-line 1)
(move-to-left-margin)
;; Now stop the loop if end of paragraph. ;; Now stop the loop if end of paragraph.
(and (not (eobp)) (and (not (eobp))
(if fill-individual-varying-indent (if fill-individual-varying-indent
;; If this line is a separator line, with or ;; If this line is a separator line, with or
;; without prefix, end the paragraph. ;; without prefix, end the paragraph.
(and (and
(not (looking-at paragraph-separate)) (not (looking-at paragraph-separate))
(save-excursion (save-excursion
(not (and (looking-at fill-prefix-regexp) (not (and (looking-at fill-prefix-regexp)
(progn (forward-char (length fill-prefix)) (progn (forward-char (length fill-prefix))
(looking-at paragraph-separate)))))) (looking-at paragraph-separate))))))
;; If this line has more or less indent ;; If this line has more or less indent
;; than the fill prefix wants, end the paragraph. ;; than the fill prefix wants, end the paragraph.