Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
ca160bc4
Commit
ca160bc4
authored
Jun 03, 1993
by
Richard M. Stallman
Browse files
(View-scroll-lines-forward): If we exit, do nothing else.
parent
08f7aa3e
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
17 additions
and
17 deletions
+17
-17
lisp/view.el
lisp/view.el
+17
-17
No files found.
lisp/view.el
View file @
ca160bc4
...
...
@@ -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\".
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment