66 |
(count 1)) |
(count 1)) |
67 |
(if (> num-windows 1) |
(if (> num-windows 1) |
68 |
(progn (other-window 1) |
(progn (other-window 1) |
69 |
(while (< count num-windows) |
(while (< count num-windows) |
70 |
(if (not (eq (point) (point-max))) |
(if (not (eq (point) (point-max))) |
71 |
(progn (call-interactively 'next-line))) |
(progn (call-interactively 'next-line))) |
72 |
(other-window 1) |
(other-window 1) |
73 |
(setq count (1+ count))))))) |
(setq count (1+ count))))))) |
74 |
|
|
75 |
(defun scroll-all-scroll-up-all (arg) |
(defun scroll-all-scroll-up-all (arg) |
76 |
"Scroll up all visible windows." |
"Scroll up all visible windows." |
79 |
(count 1)) |
(count 1)) |
80 |
(if (> num-windows 1) |
(if (> num-windows 1) |
81 |
(progn (other-window 1) |
(progn (other-window 1) |
82 |
(while (< count num-windows) |
(while (< count num-windows) |
83 |
(if (not (eq (point) (point-min))) |
(if (not (eq (point) (point-min))) |
84 |
(progn (call-interactively 'previous-line))) |
(progn (call-interactively 'previous-line))) |
85 |
(other-window 1) |
(other-window 1) |
86 |
(setq count (1+ count))))))) |
(setq count (1+ count))))))) |
87 |
|
|
88 |
(defun scroll-all-page-down-all (arg) |
(defun scroll-all-page-down-all (arg) |
89 |
"Page down in all visible windows." |
"Page down in all visible windows." |
114 |
"Check `this-command' to see if a scroll is to be done." |
"Check `this-command' to see if a scroll is to be done." |
115 |
(cond |
(cond |
116 |
((eq this-command 'next-line) |
((eq this-command 'next-line) |
117 |
(call-interactively 'scroll-all-scroll-down-all)) |
(call-interactively 'scroll-all-scroll-down-all)) |
118 |
((eq this-command 'previous-line) |
((eq this-command 'previous-line) |
119 |
(call-interactively 'scroll-all-scroll-up-all)) |
(call-interactively 'scroll-all-scroll-up-all)) |
120 |
((eq this-command 'scroll-up) |
((eq this-command 'scroll-up) |
121 |
(call-interactively 'scroll-all-page-down-all)) |
(call-interactively 'scroll-all-page-down-all)) |
122 |
((eq this-command 'scroll-down) |
((eq this-command 'scroll-down) |
123 |
(call-interactively 'scroll-all-page-up-all)))) |
(call-interactively 'scroll-all-page-up-all)))) |
124 |
|
|
125 |
|
|
126 |
;;;###autoload |
;;;###autoload |