Mercurial > emacs
comparison lisp/scroll-all.el @ 44725:60dbf4a139f2
(scroll-all-beginning-of-buffer-all, scroll-all-end-of-buffer-all): Call
beginning-of-buffer, end-of-buffer interactively.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sun, 21 Apr 2002 17:36:16 +0000 |
| parents | c4139de15915 |
| children | 5d3c147b760a |
comparison
equal
deleted
inserted
replaced
| 44724:867beadfbb38 | 44725:60dbf4a139f2 |
|---|---|
| 117 (let ((num-windows (count-windows)) | 117 (let ((num-windows (count-windows)) |
| 118 (count 1)) | 118 (count 1)) |
| 119 (when (> num-windows 1) | 119 (when (> num-windows 1) |
| 120 (other-window 1) | 120 (other-window 1) |
| 121 (while (< count num-windows) | 121 (while (< count num-windows) |
| 122 (beginning-of-buffer) | 122 (call-interactively 'beginning-of-buffer) |
| 123 (other-window 1) | 123 (other-window 1) |
| 124 (setq count (1+ count)))))) | 124 (setq count (1+ count)))))) |
| 125 | 125 |
| 126 (defun scroll-all-end-of-buffer-all (arg) | 126 (defun scroll-all-end-of-buffer-all (arg) |
| 127 "Go to the end of the buffer in all visible windows." | 127 "Go to the end of the buffer in all visible windows." |
| 129 (let ((num-windows (count-windows)) | 129 (let ((num-windows (count-windows)) |
| 130 (count 1)) | 130 (count 1)) |
| 131 (when (> num-windows 1) | 131 (when (> num-windows 1) |
| 132 (other-window 1) | 132 (other-window 1) |
| 133 (while (< count num-windows) | 133 (while (< count num-windows) |
| 134 (end-of-buffer) | 134 (call-interactively 'end-of-buffer) |
| 135 (other-window 1) | 135 (other-window 1) |
| 136 (setq count (1+ count)))))) | 136 (setq count (1+ count)))))) |
| 137 | 137 |
| 138 | 138 |
| 139 (defun scroll-all-check-to-scroll () | 139 (defun scroll-all-check-to-scroll () |