;ELC
;;; Compiled by LTX@Xue-LingTaos-MacBook-Pro.local on Wed Mar 16 23:09:46 2011
;;; from file /Users/LTX/Projects/Emacs/emacs/lisp/scroll-all.el
;;; in Emacs version 24.0.50.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

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


#@63 Apply function FUNC with argument ARG to all visible windows.
(defalias 'scroll-all-function-all #[(func arg) "\302 \303\211\303V\205%\304\303!\210	W\205%\305\306\307\217\210\304\303!\210T\211\202*\207" [count num-windows count-windows 1 other-window nil (funcall func arg) ((error))] 4 (#$ . 544)])
#@37 Scroll down in all visible windows.
(defalias 'scroll-all-scroll-down-all #[(arg) "\301\302\"\207" [arg scroll-all-function-all next-line] 3 (#$ . 859) "p"])
#@35 Scroll up in all visible windows.
(defalias 'scroll-all-scroll-up-all #[(arg) "\301\302\"\207" [arg scroll-all-function-all previous-line] 3 (#$ . 1024) "p"])
#@35 Page down in all visible windows.
(defalias 'scroll-all-page-down-all #[(arg) "\301\302\"\207" [arg scroll-all-function-all scroll-up] 3 (#$ . 1190) "P"])
#@33 Page up in all visible windows.
(defalias 'scroll-all-page-up-all #[(arg) "\301\302\"\207" [arg scroll-all-function-all scroll-down] 3 (#$ . 1352) "P"])
#@59 Go to the beginning of the buffer in all visible windows.
(defalias 'scroll-all-beginning-of-buffer-all #[(arg) "\301\302\"\207" [arg scroll-all-function-all beginning-of-buffer] 3 (#$ . 1512) "P"])
#@53 Go to the end of the buffer in all visible windows.
(defalias 'scroll-all-end-of-buffer-all #[(arg) "\301\302\"\207" [arg scroll-all-function-all end-of-buffer] 3 (#$ . 1718) "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>\203(\302\311!\207\312=\2032\302\313!\207\314=\205;\302\315!\207" [this-command next-line call-interactively scroll-all-scroll-down-all previous-line scroll-all-scroll-up-all (scroll-up scroll-up-command) scroll-all-page-down-all (scroll-down scroll-down-command) scroll-all-page-up-all beginning-of-buffer scroll-all-beginning-of-buffer-all end-of-buffer scroll-all-end-of-buffer-all] 2 (#$ . 1906)])
#@266 Non-nil if Scroll-All mode is enabled.
See the command `scroll-all-mode' for a description of this minor mode.
Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization')
or call the function `scroll-all-mode'.
(custom-declare-variable 'scroll-all-mode 'nil '(#$ . 2502) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'windows :group 'scrolling :type 'boolean)
#@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) "\303 	\304=\203\n?\202\305	!\306V\211\203 \307\310\311\"\210\202%\312\310\311\"\210\313\314\n\203/\315\2020\316\"\210\317\320!\203U\321\302!\210\303 \203H\303 \232\203U\322\323\n\203R\324\202S\325\"\210)\326 \210\n\207" [#1=#:last-message arg scroll-all-mode current-message toggle prefix-numeric-value 0 add-hook post-command-hook scroll-all-check-to-scroll remove-hook run-hooks scroll-all-mode-hook scroll-all-mode-on-hook scroll-all-mode-off-hook called-interactively-p any customize-mark-as-set message "Scroll-All mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 2951) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n\305\211%\210\306\307!\207" [scroll-all-mode-map add-minor-mode scroll-all-mode " *SL*" boundp nil provide scroll-all] 6)
