diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/textmodes/page-ext.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/textmodes/page-ext.el b/lisp/textmodes/page-ext.el index a351dcb5e3d..847d0b674e2 100644 --- a/lisp/textmodes/page-ext.el +++ b/lisp/textmodes/page-ext.el @@ -341,7 +341,10 @@ With arg (prefix if interactive), move that many pages." nil (goto-char (point-max))) (setq count (1- count))) - (while (and (< count 0) (not (bobp))) + ;; If COUNT is negative, we want to go back -COUNT + 1 page boundaries. + ;; The first page boundary we reach is the top of the current page, + ;; which doesn't count. + (while (and (< count 1) (not (bobp))) (if (re-search-backward page-delimiter nil t) (goto-char (match-beginning 0)) (goto-char (point-min))) |