diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2009-09-15 01:21:41 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2009-09-15 01:21:41 +0000 |
| commit | fbc88440ddf307a6ec5d0254740b09314abf1ad0 (patch) | |
| tree | fb2db3c30350baa8a95dc93aa8dc8b726b8b1500 /lisp | |
| parent | 60308853c3ff3563d9e5855b37824b0aa3555eed (diff) | |
| download | emacs-fbc88440ddf307a6ec5d0254740b09314abf1ad0.tar.gz emacs-fbc88440ddf307a6ec5d0254740b09314abf1ad0.tar.bz2 emacs-fbc88440ddf307a6ec5d0254740b09314abf1ad0.zip | |
(what-page): Don't move to beginning of line.
See <87tyz5ajte.fsf@x2.delysid.org> in emacs-devel.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/textmodes/page.el | 3 |
2 files changed, 6 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5884e69dd69..5acc46dafec 100644 --- 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 e650a88f6f3..79976459ff6 100644 --- 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" |