;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



#@78 Apply function FUNC with argument ARG to all visible windows.

(fn FUNC ARG)
(defalias 'scroll-all-function-all #[514 "\300 \301
\301V\205+\302\301!\210\211W\205+\3031!0\210\202 \210\302\301!\210\211T\262
\202
\207" [count-windows 1 other-window (error)] 6 (#$ . 84)])
#@57 Scroll down ARG lines in all visible windows.

(fn ARG)
(defalias 'scroll-all-scroll-down-all #[257 "\300\301\"\207" [scroll-all-function-all next-line] 4 (#$ . 368) "p"])
#@55 Scroll up ARG lines in all visible windows.

(fn ARG)
(defalias 'scroll-all-scroll-up-all #[257 "\300\301\"\207" [scroll-all-function-all previous-line] 4 (#$ . 547) "p"])
#@73 Page down in all visible windows.
ARG is like in `scroll-up'.

(fn ARG)
(defalias 'scroll-all-page-down-all #[257 "\300\301\"\207" [scroll-all-function-all scroll-up] 4 (#$ . 726) "P"])
#@73 Page up in all visible windows.
ARG is like in `scroll-down'.

(fn ARG)
(defalias 'scroll-all-page-up-all #[257 "\300\301\"\207" [scroll-all-function-all scroll-down] 4 (#$ . 919) "P"])
#@107 Go to the beginning of the buffer in all visible windows.
ARG is like in `beginning-of-buffer'.

(fn ARG)
(defalias 'scroll-all-beginning-of-buffer-all #[257 "\300\301\"\207" [scroll-all-function-all beginning-of-buffer] 4 (#$ . 1113) "P"])
#@95 Go to the end of the buffer in all visible windows.
ARG is like in `end-of-buffer'.

(fn ARG)
(defalias 'scroll-all-end-of-buffer-all #[257 "\300\301\"\207" [scroll-all-function-all end-of-buffer] 4 (#$ . 1361) "P"])
#@56 Check `this-command' to see if a scroll is to be done.
(defalias 'scroll-all-check-to-scroll #[0 "\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 (#$ . 1585)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315&\207" [custom-declare-variable scroll-all-mode funcall function #[0 "\300\207" [nil] 1 ""] "Non-nil if Scroll-All mode is enabled.\nSee the `scroll-all-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `scroll-all-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :group windows] 12)
#@763 Toggle shared scrolling in same-frame windows (Scroll-All mode).

This is a minor mode.  If called interactively, toggle the `Scroll-All
mode' mode.  If the prefix argument is positive, enable the mode, and
if it is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `(default-value \='scroll-all-mode)'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

When Scroll-All mode is enabled, scrolling commands invoked in
one window apply to all visible windows in the same frame.

(fn &optional ARG)
(defalias 'scroll-all-mode #[256 "\302 \303\301\304=\203\305\301!?\202!\247\203 \306W\203 \307\202!\310\"\210\311\300!\2038\312\301\"\305\301!\2038\301B	\203D\313\314\315\"\210\202I\316\314\315\"\210\317\320\305\301!\203U\321\202V\322\"\210\323\324!\203~\325\301!\210\302 \203n\211\302 \232\203~\326\327\305\301!\203z\330\202{\331\332#\210\210\333 \210\305\301!\207" [global-minor-modes scroll-all-mode current-message set-default toggle default-value 1 nil t boundp delq 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] 6 (#$ . 2774) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar scroll-all-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\314\300!\205#\310\211%\210\315\316!\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.)" custom-type hook standard-value nil add-minor-mode scroll-all-mode " *SL*" boundp provide scroll-all] 6)