Current File : //usr/local/share/emacs/27.2/lisp/scroll-all.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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) "\304 \305\211\305V\2050 \306\305!\210 W\2050 \3071 \n !0\202$ \210\202% \210\306\305!\210T\211\202 *\207" [count num-windows func arg count-windows 1 other-window (error)] 3 (#$ . 408)])
#@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 (#$ . 719) "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 (#$ . 884) "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 (#$ . 1049) "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 (#$ . 1211) "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 (#$ . 1371) "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 (#$ . 1577) "P"])
#@56 Check `this-command' to see if a scroll is to be done.
(defalias 'scroll-all-check-to-scroll #[nil "\301\267\202 \302\303!\207\302\304!\207\302\305!\207\302\306!\207\302\307!\207\302\310!\207\311\207" [this-command #s(hash-table size 8 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (next-line 6 previous-line 10 scroll-up 14 scroll-up-command 14 scroll-down 18 scroll-down-command 18 beginning-of-buffer 22 end-of-buffer 26)) call-interactively scroll-all-scroll-down-all scroll-all-scroll-up-all scroll-all-page-down-all scroll-all-page-up-all scroll-all-beginning-of-buffer-all scroll-all-end-of-buffer-all nil] 2 (#$ . 1765)])
#@266 Non-nil if Scroll-All mode is enabled.
See the `scroll-all-mode' command
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 '(#$ . 2422) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'windows :type 'boolean)
#@432 Toggle shared scrolling in same-frame windows (Scroll-All mode).
If called interactively, enable Scroll-All mode if ARG is positive,
and disable it if ARG is zero or negative. If called from Lisp, also
enable the mode if ARG is omitted or nil, and toggle it if ARG is
`toggle'; disable the mode otherwise.
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) "\304 \305\302 \306=\203 \307\302!?\202 \310 !\311V\"\210\n\203% \312\313\314\"\210\202* \315\313\314\"\210\316\317\307\302!\2036 \320\2027 \321\"\210\322\323!\203b \324\302!\210\304 \203O \304 \232\203b \325\326\327\307\302!\203] \330\202^ \331 #\210))\332 \210\307\302!\207" [#1=#:last-message arg scroll-all-mode local current-message set-default toggle default-value 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%s" "en" "dis" force-mode-line-update] 4 (#$ . 2852) (list (or current-prefix-arg 'toggle))])
(defvar scroll-all-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \311\211%\210\312\313!\207" [scroll-all-mode-map scroll-all-mode-hook variable-documentation put "Hook run after entering or leaving `scroll-all-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode scroll-all-mode " *SL*" boundp nil provide scroll-all] 6)
Mini Shell