(what-page): Don't move to beginning of line.

See <87tyz5ajte.fsf@x2.delysid.org> in emacs-devel.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5884e69dd69b8451aabeed105f050626e9bafc62..5acc46dafec108c1aabbb11937994a24749d09a7 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/textmodes/page.el b/lisp/textmodes/page.el
index e650a88f6f33d46ebdc125e39efec58f43751cb1..79976459ff650f873d20e3e06c7ccf5c80e323d4 100644 (file)
--- a/lisp/textmodes/page.el
+++ b/lisp/textmodes/page.el
@@ -149,10 +149,9 @@ thus showing a page other than the one point was originally in."
   (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"