[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r100232: * scroll-all.el (scroll-all-
From: |
Juri Linkov |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r100232: * scroll-all.el (scroll-all-check-to-scroll): |
Date: |
Tue, 11 May 2010 22:42:21 +0300 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
revno: 100232
committer: Juri Linkov <address@hidden>
branch nick: trunk
timestamp: Tue 2010-05-11 22:42:21 +0300
message:
* scroll-all.el (scroll-all-check-to-scroll):
Add `scroll-up-command' and `scroll-down-command' (bug#6164).
modified:
lisp/ChangeLog
lisp/scroll-all.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2010-05-11 18:51:27 +0000
+++ b/lisp/ChangeLog 2010-05-11 19:42:21 +0000
@@ -1,3 +1,8 @@
+2010-05-11 Juri Linkov <address@hidden>
+
+ * scroll-all.el (scroll-all-check-to-scroll):
+ Add `scroll-up-command' and `scroll-down-command' (bug#6164).
+
2010-05-11 Stefan Monnier <address@hidden>
* iimage.el (iimage-mode-map): Move initialization into declaration.
=== modified file 'lisp/scroll-all.el'
--- a/lisp/scroll-all.el 2010-01-13 08:35:10 +0000
+++ b/lisp/scroll-all.el 2010-05-11 19:42:21 +0000
@@ -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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r100232: * scroll-all.el (scroll-all-check-to-scroll):,
Juri Linkov <=