diff options
| author | Richard M. Stallman | 2002-04-22 07:50:50 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2002-04-22 07:50:50 +0000 |
| commit | c9787897df86906ff853f9d09525d6b0adb995aa (patch) | |
| tree | 7e4582a9784ed2cbdfec5ab949a4ed632a46c133 | |
| parent | 8d60818b54d2a4c76f005423d0949138cb7845fb (diff) | |
| download | emacs-c9787897df86906ff853f9d09525d6b0adb995aa.tar.gz emacs-c9787897df86906ff853f9d09525d6b0adb995aa.zip | |
Whitespace changes.
| -rw-r--r-- | lisp/scroll-all.el | 105 |
1 files changed, 52 insertions, 53 deletions
diff --git a/lisp/scroll-all.el b/lisp/scroll-all.el index a72c422724c..3a9e019cb48 100644 --- a/lisp/scroll-all.el +++ b/lisp/scroll-all.el | |||
| @@ -63,94 +63,93 @@ use either M-x customize or the function `scroll-all-mode'." | |||
| 63 | "Scroll down all visible windows." | 63 | "Scroll down all visible windows." |
| 64 | (interactive "P") | 64 | (interactive "P") |
| 65 | (let ((num-windows (count-windows)) | 65 | (let ((num-windows (count-windows)) |
| 66 | (count 1)) | 66 | (count 1)) |
| 67 | (when (> num-windows 1) | 67 | (when (> num-windows 1) |
| 68 | (other-window 1) | 68 | (other-window 1) |
| 69 | (while (< count num-windows) | 69 | (while (< count num-windows) |
| 70 | (if (not (eq (point) (point-max))) | 70 | (if (not (eq (point) (point-max))) |
| 71 | (call-interactively 'next-line)) | 71 | (call-interactively 'next-line)) |
| 72 | (other-window 1) | 72 | (other-window 1) |
| 73 | (setq count (1+ count)))))) | 73 | (setq count (1+ count)))))) |
| 74 | 74 | ||
| 75 | (defun scroll-all-scroll-up-all (arg) | 75 | (defun scroll-all-scroll-up-all (arg) |
| 76 | "Scroll up all visible windows." | 76 | "Scroll up all visible windows." |
| 77 | (interactive "P") | 77 | (interactive "P") |
| 78 | (let ((num-windows (count-windows)) | 78 | (let ((num-windows (count-windows)) |
| 79 | (count 1)) | 79 | (count 1)) |
| 80 | (when (> num-windows 1) | 80 | (when (> num-windows 1) |
| 81 | (other-window 1) | 81 | (other-window 1) |
| 82 | (while (< count num-windows) | 82 | (while (< count num-windows) |
| 83 | (if (not (eq (point) (point-min))) | 83 | (if (not (eq (point) (point-min))) |
| 84 | (call-interactively 'previous-line)) | 84 | (call-interactively 'previous-line)) |
| 85 | (other-window 1) | 85 | (other-window 1) |
| 86 | (setq count (1+ count)))))) | 86 | (setq count (1+ count)))))) |
| 87 | 87 | ||
| 88 | (defun scroll-all-page-down-all (arg) | 88 | (defun scroll-all-page-down-all (arg) |
| 89 | "Page down in all visible windows." | 89 | "Page down in all visible windows." |
| 90 | (interactive "P") | 90 | (interactive "P") |
| 91 | (let ((num-windows (count-windows)) | 91 | (let ((num-windows (count-windows)) |
| 92 | (count 1)) | 92 | (count 1)) |
| 93 | (when (> num-windows 1) | 93 | (when (> num-windows 1) |
| 94 | (other-window 1) | 94 | (other-window 1) |
| 95 | (while (< count num-windows) | 95 | (while (< count num-windows) |
| 96 | (condition-case nil | 96 | (condition-case nil |
| 97 | (call-interactively 'scroll-up) (end-of-buffer nil)) | 97 | (call-interactively 'scroll-up) (end-of-buffer nil)) |
| 98 | (other-window 1) | 98 | (other-window 1) |
| 99 | (setq count (1+ count)))))) | 99 | (setq count (1+ count)))))) |
| 100 | 100 | ||
| 101 | (defun scroll-all-page-up-all (arg) | 101 | (defun scroll-all-page-up-all (arg) |
| 102 | "Page up in all visible windows." | 102 | "Page up in all visible windows." |
| 103 | (interactive "P") | 103 | (interactive "P") |
| 104 | (let ((num-windows (count-windows)) | 104 | (let ((num-windows (count-windows)) |
| 105 | (count 1)) | 105 | (count 1)) |
| 106 | (when (> num-windows 1) | 106 | (when (> num-windows 1) |
| 107 | (other-window 1) | 107 | (other-window 1) |
| 108 | (while (< count num-windows) | 108 | (while (< count num-windows) |
| 109 | (condition-case nil | 109 | (condition-case nil |
| 110 | (call-interactively 'scroll-down) (beginning-of-buffer nil)) | 110 | (call-interactively 'scroll-down) (beginning-of-buffer nil)) |
| 111 | (other-window 1) | 111 | (other-window 1) |
| 112 | (setq count (1+ count)))))) | 112 | (setq count (1+ count)))))) |
| 113 | 113 | ||
| 114 | (defun scroll-all-beginning-of-buffer-all (arg) | 114 | (defun scroll-all-beginning-of-buffer-all (arg) |
| 115 | "Go to the beginning of the buffer in all visible windows." | 115 | "Go to the beginning of the buffer in all visible windows." |
| 116 | (interactive "P") | 116 | (interactive "P") |
| 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 | (call-interactively '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." |
| 128 | (interactive "P") | 128 | (interactive "P") |
| 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 | (call-interactively '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 () |
| 140 | "Check `this-command' to see if a scroll is to be done." | 140 | "Check `this-command' to see if a scroll is to be done." |
| 141 | (cond | 141 | (cond ((eq this-command 'next-line) |
| 142 | ((eq this-command 'next-line) | 142 | (call-interactively 'scroll-all-scroll-down-all)) |
| 143 | (call-interactively 'scroll-all-scroll-down-all)) | 143 | ((eq this-command 'previous-line) |
| 144 | ((eq this-command 'previous-line) | 144 | (call-interactively 'scroll-all-scroll-up-all)) |
| 145 | (call-interactively 'scroll-all-scroll-up-all)) | 145 | ((eq this-command 'scroll-up) |
| 146 | ((eq this-command 'scroll-up) | 146 | (call-interactively 'scroll-all-page-down-all)) |
| 147 | (call-interactively 'scroll-all-page-down-all)) | 147 | ((eq this-command 'scroll-down) |
| 148 | ((eq this-command 'scroll-down) | 148 | (call-interactively 'scroll-all-page-up-all)) |
| 149 | (call-interactively 'scroll-all-page-up-all)) | 149 | ((eq this-command 'beginning-of-buffer) |
| 150 | ((eq this-command 'beginning-of-buffer) | 150 | (call-interactively 'scroll-all-beginning-of-buffer-all)) |
| 151 | (call-interactively 'scroll-all-beginning-of-buffer-all)) | 151 | ((eq this-command 'end-of-buffer) |
| 152 | ((eq this-command 'end-of-buffer) | 152 | (call-interactively 'scroll-all-end-of-buffer-all)))) |
| 153 | (call-interactively 'scroll-all-end-of-buffer-all)))) | ||
| 154 | 153 | ||
| 155 | 154 | ||
| 156 | ;;;###autoload | 155 | ;;;###autoload |