;ELC   
;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:51:57 2003
;;; from file /home/pot/gnu/emacs-pretest.new/lisp/scroll-all.el
;;; in Emacs version 21.3
;;; with bytecomp version 2.85.4.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`scroll-all.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\302B\303\302!\204 \304\305	\"\302\207" [current-load-list emacs-version running-xemacs boundp string-match "XEmacs\\|Lucid"] 3)
#@145 Control/track scroll locking.

Setting this variable directly does not take effect;
use either M-x customize or the function `scroll-all-mode'.
(custom-declare-variable 'scroll-all-mode 'nil '(#$ . 768) :set (lambda (symbol value) (scroll-all-mode (if value 1 0))) :initialize 'custom-initialize-default :require 'scroll-all :type 'boolean :group 'windows)
(byte-code "\203\f \302\303\304\"\210\202 \303	\236\204 \305	B\302\207" [running-xemacs minor-mode-alist add-minor-mode scroll-all-mode " *SL*" (scroll-all-mode " *SL*")] 3)
#@34 Scroll down all visible windows.
(defalias 'scroll-all-scroll-down-all #[(arg) "\302 \303\211\303V\205* \304\303!\210	W\205* `d=\204 \305\306!\210\304\303!\210T\211\202 *\207" [count num-windows count-windows 1 other-window call-interactively next-line] 3 (#$ . 1309) "P"])
#@32 Scroll up all visible windows.
(defalias 'scroll-all-scroll-up-all #[(arg) "\302 \303\211\303V\205* \304\303!\210	W\205* `e=\204 \305\306!\210\304\303!\210T\211\202 *\207" [count num-windows count-windows 1 other-window call-interactively previous-line] 3 (#$ . 1596) "P"])
#@35 Page down in all visible windows.
(defalias 'scroll-all-page-down-all #[(arg) "\302 \303\211\303V\205$ \304\303!\210	W\205$ \305\306!\210\304\303!\210T\211\202 *\207" [count num-windows count-windows 1 other-window call-interactively scroll-up] 3 (#$ . 1883) "P"])
#@33 Page up in all visible windows.
(defalias 'scroll-all-page-up-all #[(arg) "\302 \303\211\303V\205$ \304\303!\210	W\205$ \305\306!\210\304\303!\210T\211\202 *\207" [count num-windows count-windows 1 other-window call-interactively scroll-down] 3 (#$ . 2160) "P"])
#@56 Check `this-command' to see if a scroll is to be done.
(defalias 'scroll-all-check-to-scroll #[nil "\301=\203\n \302\303!\207\304=\203 \302\305!\207\306=\203 \302\307!\207\310=\205' \302\311!\207" [this-command next-line call-interactively scroll-all-scroll-down-all previous-line scroll-all-scroll-up-all scroll-up scroll-all-page-down-all scroll-down scroll-all-page-up-all] 2 (#$ . 2435)])
#@223 Toggle Scroll-All minor mode.
With ARG, turn Scroll-All minor mode on if ARG is positive, off otherwise.
When Scroll-All mode is on, scrolling commands entered in one window
apply to all visible windows in the same frame.
(defalias 'scroll-all-mode #[(&optional arg) "\204	 	?\202 \302!\303V\211\203 \304\305\306\"\207\307\305\306\"\207" [arg scroll-all-mode prefix-numeric-value 0 add-hook post-command-hook scroll-all-check-to-scroll remove-hook] 4 (#$ . 2841) "P"])
(provide 'scroll-all)