;ELC ;;; Compiled by cyd@localhost on Mon Apr 23 22:21:07 2007 ;;; from file /home/cyd/emacs/lisp/scroll-all.el ;;; in Emacs version 22.0.99 ;;; 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")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@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 (#$ . 567)]) #@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 (#$ . 882) "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 (#$ . 1047) "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 (#$ . 1213) "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 (#$ . 1375) "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 (#$ . 1535) "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 (#$ . 1741) "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-all-page-down-all scroll-down scroll-all-page-up-all beginning-of-buffer scroll-all-beginning-of-buffer-all end-of-buffer scroll-all-end-of-buffer-all] 2 (#$ . 1929)]) #@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 '(#$ . 2483) :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) "\302=\203 ?\202%\203\303!\304V\202% \204\305\202%\306\307\301\"\210\310\211\2032\311\312\313\"\210\2027\314\312\313\"\210\315\316 \203A\317\202B\320\"\210\321 \203Z\322\301!\210\306\323 \203W\324\202X\325\"\210\326 \210 \207" [arg scroll-all-mode toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil 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 customize-mark-as-set "Scroll-All mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 2932) (list (or current-prefix-arg 'toggle))]) (byte-code "\300\301\302\303\304!\205 \304J#\210\305\306!\207" [add-minor-mode scroll-all-mode " *SL*" boundp scroll-all-mode-map provide scroll-all] 5)