/[emacs]/emacs/lisp/emacs-lisp/lisp-mode.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/lisp-mode.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.125 by pj, Thu Nov 15 15:56:23 2001 UTC revision 1.126 by monnier, Tue Nov 20 15:10:25 2001 UTC
# Line 1082  and initial semicolons." Line 1082  and initial semicolons."
1082            (narrow-to-region            (narrow-to-region
1083             ;; Find the first line we should include in the region to fill.             ;; Find the first line we should include in the region to fill.
1084             (save-excursion             (save-excursion
1085               (while (and (looking-at "[ \t]*;")               (while (and (zerop (forward-line -1))
1086                           (zerop (forward-line -1))))                           (looking-at "[ \t]*;")))
1087                 ;; We may have gone too far.  Go forward again.
1088                 (or (looking-at ".*;")
1089                     (forward-line 1))
1090               (point))               (point))
1091             ;; Find the beginning of the first line past the region to fill.             ;; Find the beginning of the first line past the region to fill.
1092             (save-excursion             (save-excursion

Legend:
Removed from v.1.125  
changed lines
  Added in v.1.126

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26