Mercurial > emacs
comparison lisp/scroll-all.el @ 108502:9914f26982b7
Merge from mainline.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Tue, 11 May 2010 22:45:13 +0000 |
| parents | aacdc5451940 |
| children | 417b1e4d63cd |
comparison
equal
deleted
inserted
replaced
| 108501:a5ca1d2d9889 | 108502:9914f26982b7 |
|---|---|
| 88 "Check `this-command' to see if a scroll is to be done." | 88 "Check `this-command' to see if a scroll is to be done." |
| 89 (cond ((eq this-command 'next-line) | 89 (cond ((eq this-command 'next-line) |
| 90 (call-interactively 'scroll-all-scroll-down-all)) | 90 (call-interactively 'scroll-all-scroll-down-all)) |
| 91 ((eq this-command 'previous-line) | 91 ((eq this-command 'previous-line) |
| 92 (call-interactively 'scroll-all-scroll-up-all)) | 92 (call-interactively 'scroll-all-scroll-up-all)) |
| 93 ((eq this-command 'scroll-up) | 93 ((memq this-command '(scroll-up scroll-up-command)) |
| 94 (call-interactively 'scroll-all-page-down-all)) | 94 (call-interactively 'scroll-all-page-down-all)) |
| 95 ((eq this-command 'scroll-down) | 95 ((memq this-command '(scroll-down scroll-down-command)) |
| 96 (call-interactively 'scroll-all-page-up-all)) | 96 (call-interactively 'scroll-all-page-up-all)) |
| 97 ((eq this-command 'beginning-of-buffer) | 97 ((eq this-command 'beginning-of-buffer) |
| 98 (call-interactively 'scroll-all-beginning-of-buffer-all)) | 98 (call-interactively 'scroll-all-beginning-of-buffer-all)) |
| 99 ((eq this-command 'end-of-buffer) | 99 ((eq this-command 'end-of-buffer) |
| 100 (call-interactively 'scroll-all-end-of-buffer-all)))) | 100 (call-interactively 'scroll-all-end-of-buffer-all)))) |