procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(forward-paragraph): Don't ever move forward again across a line if we

Browse source 
stopped there because it doesn't start with the fill prefix.
This commit is contained in:
Richard M. Stallman 1996-09-25 07:20:19 +00:00
parent aa9063cb23
commit b53ce41df6
1 changed files with 8 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/textmodes/paragraphs.el
View file

@ -195,12 +195,14 @@ to which the end of the previous line belongs, or the end of the buffer."
(setq multiple-lines t))
(forward-line -1))
(move-to-left-margin)
;; Don't move back over a line before the paragraph
;; which doesn't start with fill-prefix
;; unless that is the only line we've moved over.
(and (not (looking-at fill-prefix-regexp))
multiple-lines
(forward-line 1))
;;; This deleted code caused a long hanging-indent line
;;; not to be filled together with the following lines.
;;; ;; Don't move back over a line before the paragraph
;;; ;; which doesn't start with fill-prefix
;;; ;; unless that is the only line we've moved over.
;;; (and (not (looking-at fill-prefix-regexp))
;;; multiple-lines
;;; (forward-line 1))
(not (bobp)))
(while (and (re-search-backward sp-paragraph-start nil 1)
;; Found a candidate, but need to check if it is a