Commit 841c4085 authored by Juri Linkov's avatar Juri Linkov

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

Add `scroll-up-command' and `scroll-down-command' (bug#6164).
parent f2b9ed18
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> 2010-05-11 Stefan Monnier <monnier@iro.umontreal.ca>
* iimage.el (iimage-mode-map): Move initialization into declaration. * iimage.el (iimage-mode-map): Move initialization into declaration.
......
...@@ -90,9 +90,9 @@ ...@@ -90,9 +90,9 @@
(call-interactively 'scroll-all-scroll-down-all)) (call-interactively 'scroll-all-scroll-down-all))
((eq this-command 'previous-line) ((eq this-command 'previous-line)
(call-interactively 'scroll-all-scroll-up-all)) (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)) (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)) (call-interactively 'scroll-all-page-up-all))
((eq this-command 'beginning-of-buffer) ((eq this-command 'beginning-of-buffer)
(call-interactively 'scroll-all-beginning-of-buffer-all)) (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