# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1273606941 -10800
# Node ID aacdc5451940d21e04af6a37c3cf7c06296e9412
# Parent  925f002ec4abbfa362d51e9cccb98afd8c0be794
* scroll-all.el (scroll-all-check-to-scroll):
Add `scroll-up-command' and `scroll-down-command' (bug#6164).

diff -r 925f002ec4ab -r aacdc5451940 lisp/ChangeLog
--- 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.
diff -r 925f002ec4ab -r aacdc5451940 lisp/scroll-all.el
--- 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))