| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/scroll-all.elc |
;ELC ;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:30 2024 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/scroll-all.el ;;; in Emacs version 24.3.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 (#$ . 553)]) #@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 (#$ . 868) "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 (#$ . 1033) "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 (#$ . 1199) "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 (#$ . 1361) "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 (#$ . 1521) "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 (#$ . 1727) "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 (#$ . 1915)]) #@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 '(#$ . 2511) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'windows :type 'boolean) #@350 Toggle shared scrolling in same-frame windows (Scroll-All mode). With a prefix argument ARG, enable Scroll-All mode if ARG is positive, and disable it otherwise. If called from Lisp, enable the mode if ARG is omitted or nil. When Scroll-All mode is enabled, scrolling commands invoked 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 (#$ . 2941) (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)