[Emacs-diffs] emacs/lisp ChangeLog textmodes/page.el

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        09/09/16 13:15:14

Modified files:
        lisp           : ChangeLog 
        lisp/textmodes : page.el 

Log message:
        (what-page): Make sure we don't inf-loop if
        page-delimiter matches the empty string.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16181&r2=1.16182
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/textmodes/page.el?cvsroot=emacs&r1=1.29&r2=1.30

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16181
retrieving revision 1.16182
diff -u -b -r1.16181 -r1.16182
--- ChangeLog   16 Sep 2009 03:13:55 -0000      1.16181
+++ ChangeLog   16 Sep 2009 13:15:10 -0000      1.16182
@@ -1,3 +1,8 @@
+2009-09-16  Stefan Monnier  <address@hidden>
+
+       * textmodes/page.el (what-page): Make sure we don't inf-loop if
+       page-delimiter matches the empty string.
+
 2009-09-16  Glenn Morris  <address@hidden>
 
        * emacs-lisp/bytecomp.el (byte-compile-not-obsolete-vars): Rename from

Index: textmodes/page.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/textmodes/page.el,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -b -r1.29 -r1.30
--- textmodes/page.el   15 Sep 2009 01:21:44 -0000      1.29
+++ textmodes/page.el   16 Sep 2009 13:15:13 -0000      1.30
@@ -153,6 +153,8 @@
            (opoint (point)))
        (goto-char (point-min))
        (while (re-search-forward page-delimiter opoint t)
+          (if (= (match-beginning 0) (match-end 0))
+              (forward-char 1))
          (setq count (1+ count)))
        (message "Page %d, line %d"
                 count