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

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

Browse source 
Add `scroll-up-command' and `scroll-down-command' (bug#6164).
This commit is contained in:
Juri Linkov 2010-05-11 22:42:21 +03:00
parent f2b9ed185a
commit 841c4085a8
2 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
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.

4
lisp/scroll-all.el
View file

@ -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))