/[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.4.1 by gm, Mon May 27 20:57:03 2002 UTC revision 1.5.4.2 by gm, Mon May 27 20:59:48 2002 UTC
# Line 66  use either M-x customize or the function Line 66  use either M-x customize or the function
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."
# Line 79  use either M-x customize or the function Line 79  use either M-x customize or the function
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."
# Line 114  use either M-x customize or the function Line 114  use either M-x customize or the function
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

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

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