[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/lisp-mode.el

[Stefan Monnier]

Index: emacs/lisp/emacs-lisp/lisp-mode.el
diff -u emacs/lisp/emacs-lisp/lisp-mode.el:1.125 
emacs/lisp/emacs-lisp/lisp-mode.el:1.126
--- emacs/lisp/emacs-lisp/lisp-mode.el:1.125    Thu Nov 15 10:56:23 2001
+++ emacs/lisp/emacs-lisp/lisp-mode.el  Tue Nov 20 10:10:25 2001
@@ -1082,8 +1082,11 @@
          (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