55 |
|
|
56 |
(if running-xemacs |
(if running-xemacs |
57 |
(add-minor-mode 'scroll-all-mode " *SL*") |
(add-minor-mode 'scroll-all-mode " *SL*") |
58 |
(or (assq 'scroll-all-mode-mode minor-mode-alist) |
(or (assq 'scroll-all-mode minor-mode-alist) |
59 |
(setq minor-mode-alist |
(setq minor-mode-alist |
60 |
(cons '(scroll-all-mode-mode " *SL*") minor-mode-alist)))) |
(cons '(scroll-all-mode " *SL*") minor-mode-alist)))) |
61 |
|
|
62 |
(defun scroll-all-scroll-down-all (arg) |
(defun scroll-all-scroll-down-all (arg) |
63 |
"Scroll down all visible windows." |
"Scroll down all visible windows." |
65 |
(let ((num-windows (count-windows)) |
(let ((num-windows (count-windows)) |
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))) |
78 |
(let ((num-windows (count-windows)) |
(let ((num-windows (count-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))) |
93 |
(if (> num-windows 1) |
(if (> num-windows 1) |
94 |
(progn (other-window 1) |
(progn (other-window 1) |
95 |
(while (< count num-windows) |
(while (< count num-windows) |
96 |
(call-interactively 'fkey-scroll-up) |
(call-interactively 'scroll-up) |
97 |
(other-window 1) |
(other-window 1) |
98 |
(setq count (1+ count))))))) |
(setq count (1+ count))))))) |
99 |
|
|
105 |
(if (> num-windows 1) |
(if (> num-windows 1) |
106 |
(progn (other-window 1) |
(progn (other-window 1) |
107 |
(while (< count num-windows) |
(while (< count num-windows) |
108 |
(call-interactively 'fkey-scroll-down) |
(call-interactively 'scroll-down) |
109 |
(other-window 1) |
(other-window 1) |
110 |
(setq count (1+ count))))))) |
(setq count (1+ count))))))) |
111 |
|
|
112 |
|
|
113 |
(defun scroll-all-check-to-scroll () |
(defun scroll-all-check-to-scroll () |
114 |
"Check `last-command' to see if a scroll was done." |
"Check `this-command' to see if a scroll is to be done." |
115 |
(if (eq this-command 'next-line) |
(cond |
116 |
(call-interactively 'scroll-all-scroll-down-all)) |
((eq this-command 'next-line) |
117 |
(if (eq this-command 'previous-line) |
(call-interactively 'scroll-all-scroll-down-all)) |
118 |
(call-interactively 'scroll-all-scroll-up-all)) |
((eq this-command 'previous-line) |
119 |
(if (eq this-command 'fkey-scroll-up) |
(call-interactively 'scroll-all-scroll-up-all)) |
120 |
(call-interactively 'scroll-all-page-down-all)) |
((eq this-command 'scroll-up) |
121 |
(if (eq this-command 'fkey-scroll-down) |
(call-interactively 'scroll-all-page-down-all)) |
122 |
(call-interactively 'scroll-all-page-up-all))) |
((eq this-command 'scroll-down) |
123 |
|
(call-interactively 'scroll-all-page-up-all)))) |
124 |
|
|
125 |
|
|
126 |
;;;###autoload |
;;;###autoload |
127 |
(defun scroll-all-mode (arg) |
(defun scroll-all-mode (arg) |