Commit ed3c6391 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

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

parent a8e1e57f
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
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment