procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(narrow-to-page): With negative arg, move back one extra

Browse source 
page unless we start right after a page delimiter.
This commit is contained in:
Richard M. Stallman 1996-11-06 22:42:41 +00:00
parent 22819cd94f
commit cb70d91574
1 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/textmodes/page.el
View file

@ -89,7 +89,16 @@ thus showing a page other than the one point was originally in."
(if (> arg 0)
(forward-page arg)
(if (< arg 0)
(forward-page (1- arg))))
(let ((adjust 0)
(opoint (point)))
;; If we are not now at the beginning of a page,
;; move back one extra time, to get to the start of this page.
(save-excursion
(beginning-of-line)
(or (and (looking-at page-delimiter)
(eq (match-end 0) opoint))
(setq adjust 1)))
(forward-page (- arg adjust)))))
;; Find the end of the page.
(forward-page)
;; If we stopped due to end of buffer, stay there.