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

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        09/09/15 01:21:44

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

Log message:
        (what-page): Don't move to beginning of line.
        See <address@hidden> in emacs-devel.

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

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16169
retrieving revision 1.16170
diff -u -b -r1.16169 -r1.16170
--- ChangeLog   15 Sep 2009 00:11:51 -0000      1.16169
+++ ChangeLog   15 Sep 2009 01:21:41 -0000      1.16170
@@ -1,3 +1,8 @@
+2009-09-15  Stefan Monnier  <address@hidden>
+
+       * textmodes/page.el (what-page): Don't move to beginning of line.
+       See <address@hidden> in emacs-devel.
+
 2009-09-15  Dan Nicolaescu  <address@hidden>
 
        * vc-git.el (vc-git-dir-extra-headers): Show the remote location.

Index: textmodes/page.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/textmodes/page.el,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -b -r1.28 -r1.29
--- textmodes/page.el   5 Jan 2009 03:24:07 -0000       1.28
+++ textmodes/page.el   15 Sep 2009 01:21:44 -0000      1.29
@@ -149,10 +149,9 @@
   (save-restriction
     (widen)
     (save-excursion
-      (beginning-of-line)
       (let ((count 1)
            (opoint (point)))
-       (goto-char 1)
+       (goto-char (point-min))
        (while (re-search-forward page-delimiter opoint t)
          (setq count (1+ count)))
        (message "Page %d, line %d"