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

(lisp-fill-paragraph): Don't move back to a line without a comment.

Browse source
This commit is contained in:
Stefan Monnier 2001-11-20 15:10:42 +00:00
parent a8e1e57f4c
commit ed3c639167
2 changed files with 10 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/emacs-lisp/lisp-mode.el
View file

@ -1082,8 +1082,11 @@ and initial semicolons."
(narrow-to-region
;; Find the first line we should include in the region to fill.
(save-excursion
(while (and (looking-at "[ \t]*;")
(zerop (forward-line -1))))
(while (and (zerop (forward-line -1))
(looking-at "[ \t]*;")))
;; We may have gone too far. Go forward again.
(or (looking-at ".*;")
(forward-line 1))
(point))
;; Find the beginning of the first line past the region to fill.
(save-excursion