Skip to content

GitLab

Commit 841c4085 authored by Juri Linkov's avatar Juri Linkov
Browse files
Options

* scroll-all.el (scroll-all-check-to-scroll): 

Add `scroll-up-command' and `scroll-down-command' (bug#6164).
parent f2b9ed18
Hide whitespace changes
Inline Side-by-side
Showing with 7 additions and 2 deletions
lisp/ChangeLog
View file @ 841c4085
2010-05-11 Juri Linkov <juri@jurta.org>
* scroll-all.el (scroll-all-check-to-scroll):
Add `scroll-up-command' and `scroll-down-command' (bug#6164).
2010-05-11 Stefan Monnier <monnier@iro.umontreal.ca>
* iimage.el (iimage-mode-map): Move initialization into declaration.
......
lisp/scroll-all.el
View file @ 841c4085
......@@ -90,9 +90,9 @@
(call-interactively 'scroll-all-scroll-down-all))
((eq this-command 'previous-line)
(call-interactively 'scroll-all-scroll-up-all))
((eq this-command 'scroll-up)
((memq this-command '(scroll-up scroll-up-command))
(call-interactively 'scroll-all-page-down-all))
((eq this-command 'scroll-down)
((memq this-command '(scroll-down scroll-down-command))
(call-interactively 'scroll-all-page-up-all))
((eq this-command 'beginning-of-buffer)
(call-interactively 'scroll-all-beginning-of-buffer-all))
......
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