ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/scroll-all.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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) "\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 (#$ . 410)])
#@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 (#$ . 721) "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 (#$ . 886) "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 (#$ . 1051) "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 (#$ . 1213) "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 (#$ . 1373) "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 (#$ . 1579) "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 (#$ . 1767)])
#@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 '(#$ . 2363) :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) "\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 (#$ . 2793) (list (or current-prefix-arg 'toggle))])
#@180 Hook run after entering or leaving `scroll-all-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar scroll-all-mode-hook nil (#$ . 3917))
(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)
Kontol Shell Bypass