mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(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

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2001-11-20 Stefan Monnier <monnier@rum.cs.yale.edu>
* emacs-lisp/lisp-mode.el (lisp-fill-paragraph): Don't move back
to a line without a comment.
2001-11-20 Eli Zaretskii <eliz@is.elta.co.il>
* dired.el (dired-listing-switches): Mention in the doc string

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