Commit 817d6535 authored by Jim Blandy's avatar Jim Blandy
Browse files

* page-ext.el (next-page): Correctly handle negative page count.

parent faa3b11d
...@@ -341,7 +341,10 @@ With arg (prefix if interactive), move that many pages." ...@@ -341,7 +341,10 @@ With arg (prefix if interactive), move that many pages."
nil nil
(goto-char (point-max))) (goto-char (point-max)))
(setq count (1- count))) (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) (if (re-search-backward page-delimiter nil t)
(goto-char (match-beginning 0)) (goto-char (match-beginning 0))
(goto-char (point-min))) (goto-char (point-min)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment