# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1252977701 0
# Node ID 589ca5b7f8cc2a645bd5c5a2f72e2dd2d34b8251
# Parent  bfda253c8f66c8532044fe2cfb371df497ac8402
(what-page): Don't move to beginning of line.
See <87tyz5ajte.fsf@x2.delysid.org> in emacs-devel.

diff -r bfda253c8f66 -r 589ca5b7f8cc lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Sep 15 00:11:51 2009 +0000
+++ b/lisp/ChangeLog	Tue Sep 15 01:21:41 2009 +0000
@@ -1,3 +1,8 @@
+2009-09-15  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* textmodes/page.el (what-page): Don't move to beginning of line.
+	See <87tyz5ajte.fsf@x2.delysid.org> in emacs-devel.
+
 2009-09-15  Dan Nicolaescu  <dann@ics.uci.edu>
 
 	* vc-git.el (vc-git-dir-extra-headers): Show the remote location.
diff -r bfda253c8f66 -r 589ca5b7f8cc lisp/textmodes/page.el
--- a/lisp/textmodes/page.el	Tue Sep 15 00:11:51 2009 +0000
+++ b/lisp/textmodes/page.el	Tue Sep 15 01:21:41 2009 +0000
@@ -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"