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

(View-scroll-lines-forward):

Browse source 
Allow scrolling backward at the end of the buffer.
This commit is contained in:
Richard M. Stallman 1993-11-23 08:31:03 +00:00
parent 0744bf6404
commit 6ebbf1dcaf
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/view.el
View file

@ -332,7 +332,10 @@ mark ring."
No arg means whole window full, or number of lines set by \\[View-scroll-lines-forward-set-scroll-size].
Arg is number of lines to scroll."
(interactive "P")
(if (pos-visible-in-window-p (point-max))
(if (and (pos-visible-in-window-p (point-max))
;; Allow scrolling backward at the end of the buffer.
(or (null lines)
(> lines 0)))
(view-exit)
(setq lines
(if lines (prefix-numeric-value lines)