/[emacs]/emacs/lisp/scroll-all.el
ViewVC logotype

Diff of /emacs/lisp/scroll-all.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by pj, Mon Jul 16 12:22:59 2001 UTC revision 1.5.4.1 by gm, Mon May 27 20:57:03 2002 UTC
# Line 55  use either M-x customize or the function Line 55  use either M-x customize or the function
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."
# Line 65  use either M-x customize or the function Line 65  use either M-x customize or the function
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)))
# Line 78  use either M-x customize or the function Line 78  use either M-x customize or the function
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)))
# Line 93  use either M-x customize or the function Line 93  use either M-x customize or the function
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    
# Line 105  use either M-x customize or the function Line 105  use either M-x customize or the function
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)

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.5.4.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26