Mercurial > emacs
changeset 108489:aacdc5451940
* scroll-all.el (scroll-all-check-to-scroll):
Add `scroll-up-command' and `scroll-down-command' (bug#6164).
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Tue, 11 May 2010 22:42:21 +0300 |
| parents | 925f002ec4ab |
| children | f01adbed6fd8 |
| files | lisp/ChangeLog lisp/scroll-all.el |
| diffstat | 2 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue May 11 14:51:27 2010 -0400 +++ b/lisp/ChangeLog Tue May 11 22:42:21 2010 +0300 @@ -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.
--- a/lisp/scroll-all.el Tue May 11 14:51:27 2010 -0400 +++ b/lisp/scroll-all.el Tue May 11 22:42:21 2010 +0300 @@ -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))