mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(View-scroll-lines-forward): If we exit, do nothing else.

Browse source
This commit is contained in:
Richard M. Stallman 1993-06-03 06:34:58 +00:00
parent 08f7aa3edb
commit ca160bc46d
1 changed files with 17 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

34
lisp/view.el
View file

@ -331,23 +331,23 @@ No arg means whole window full, or number of lines set by \\[View-scroll-lines-f
Arg is number of lines to scroll."
(interactive "P")
(if (pos-visible-in-window-p (point-max))
(view-exit))
(setq lines
(if lines (prefix-numeric-value lines)
(view-scroll-size)))
; (view-last-command 'View-scroll-lines-forward lines)
(if (>= lines (view-window-size))
(scroll-up nil)
(if (>= (- lines) (view-window-size))
(scroll-down nil)
(scroll-up lines)))
(cond ((pos-visible-in-window-p (point-max))
(goto-char (point-max))
(recenter -1)
(message (substitute-command-keys
"End. Type \\[view-exit] to quit viewing."))))
(move-to-window-line -1)
(beginning-of-line))
(view-exit)
(setq lines
(if lines (prefix-numeric-value lines)
(view-scroll-size)))
;; (view-last-command 'View-scroll-lines-forward lines)
(if (>= lines (view-window-size))
(scroll-up nil)
(if (>= (- lines) (view-window-size))
(scroll-down nil)
(scroll-up lines)))
(cond ((pos-visible-in-window-p (point-max))
(goto-char (point-max))
(recenter -1)
(message (substitute-command-keys
"End. Type \\[view-exit] to quit viewing."))))
(move-to-window-line -1)
(beginning-of-line)))
(defun View-scroll-lines-forward-set-scroll-size (&optional lines)
"Scroll forward LINES lines in View mode, setting the \"scroll size\".