Mercurial > emacs
changeset 105018:589ca5b7f8cc
(what-page): Don't move to beginning of line.
See <87tyz5ajte.fsf@x2.delysid.org> in emacs-devel.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 15 Sep 2009 01:21:41 +0000 |
| parents | bfda253c8f66 |
| children | a4b91a313ddf |
| files | lisp/ChangeLog lisp/textmodes/page.el |
| diffstat | 2 files changed, 6 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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"