;ELC ;;; Compiled by buildd@akateko.buildd on Fri Oct 25 13:52:54 2013 ;;; from file /build/buildd/emacs23-23.4+1/debian/build-x/lisp/scroll-all.el ;;; in Emacs version 23.4.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 (#$ . 540)]) #@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 (#$ . 855) "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 (#$ . 1020) "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 (#$ . 1186) "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 (#$ . 1348) "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 (#$ . 1508) "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 (#$ . 1714) "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 (#$ . 1902)]) #@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 '(#$ . 2456) :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( \203\305 !\306V\202(\n\204\"\307\202(\310\311\302\"\210\312\211\2035\313\314\315\"\210\202:\316\314\315\"\210\317\320\n\203D\321\202E\322\"\210\323\324!\203j\325\302!\210\303 \203]\303 \232\203j\310\326\n\203g\327\202h\330\"\210)\331 \210\n\207" [#1=#:last-message arg scroll-all-mode current-message 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 any customize-mark-as-set "Scroll-All mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 2905) (list (or current-prefix-arg 'toggle))]) (byte-code "\301\302\303\304\300!\205\n#\210\305\306!\207" [scroll-all-mode-map add-minor-mode scroll-all-mode " *SL*" boundp provide scroll-all] 5)