Current File : //usr/local/share/emacs/27.2/lisp/scroll-lock.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@30 Keymap for Scroll Lock mode.
(defvar scroll-lock-mode-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210)\207" [map make-sparse-keymap define-key [remap next-line] scroll-lock-next-line [remap previous-line] scroll-lock-previous-line [remap forward-paragraph] scroll-lock-forward-paragraph [remap backward-paragraph] scroll-lock-backward-paragraph [S-down] scroll-lock-next-line-always-scroll] 4) (#$ . 408))
#@65 Used for saving the state of `scroll-preserve-screen-position'.
(defvar scroll-lock-preserve-screen-pos-save scroll-preserve-screen-position (#$ . 886))
(make-variable-buffer-local 'scroll-lock-preserve-screen-pos-save)
#@62 Like `temporary-goal-column' but for scroll-lock-* commands.
(defvar scroll-lock-temporary-goal-column 0 (#$ . 1112))
#@101 Non-nil if Scroll-Lock mode is enabled.
Use the command `scroll-lock-mode' to change this variable.
(defvar scroll-lock-mode nil (#$ . 1237))
(make-variable-buffer-local 'scroll-lock-mode)
#@642 Buffer-local minor mode for pager-like scrolling.
If called interactively, enable Scroll-Lock 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 enabled, keys that normally move point by line or paragraph
will scroll the buffer by the respective amount of lines instead
and point will be kept vertically fixed relative to window
boundaries during scrolling.
Note that the default key binding to Scroll_Lock will not work on
MS-Windows systems if `w32-scroll-lock-modifier' is non-nil.
(defalias 'scroll-lock-mode #[(&optional arg) "\306 \307=\203 \n?\202 \310 !\311V\211\203# \312\303!\210\313\202% \f\314\315\n\203/ \316\2020 \317\"\210\320\321!\203U \306 \203D \306 \232\203U \322 \323\324\n\203P \325\202Q \326
#\210))\327 \210\n\207" [#1=#:last-message arg scroll-lock-mode scroll-preserve-screen-position scroll-lock-preserve-screen-pos-save local current-message toggle prefix-numeric-value 0 make-local-variable always run-hooks scroll-lock-mode-hook scroll-lock-mode-on-hook scroll-lock-mode-off-hook called-interactively-p any " in current buffer" message "Scroll-Lock mode %sabled%s" "en" "dis" force-mode-line-update] 5 (#$ . 1433) (list (or current-prefix-arg 'toggle))])
(defvar scroll-lock-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\211%\207" [scroll-lock-mode-map scroll-lock-mode-hook variable-documentation put "Hook run after entering or leaving `scroll-lock-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-lock-mode " ScrLck" nil] 6)
#@58 Update `scroll-lock-temporary-goal-column' if necessary.
(defalias 'scroll-lock-update-goal-column #[nil "\302>?\205\n i\211\207" [last-command scroll-lock-temporary-goal-column (scroll-lock-next-line scroll-lock-previous-line scroll-lock-forward-paragraph scroll-lock-backward-paragraph)] 2 (#$ . 3206)])
#@52 Like `move-to-column' but cater for wrapped lines.
(defalias 'scroll-lock-move-to-column #[(column) "n\204 \301`\302 Z\303 \"\304U\204 \305!\207\306 `Z^u\207" [column mod line-beginning-position window-width 0 move-to-column line-end-position] 3 (#$ . 3520)])
#@42 Scroll up ARG lines keeping point fixed.
(defalias 'scroll-lock-next-line-always-scroll #[(&optional arg) "\204 \302\303 \210\3041 \305!0\202 \210db\210\306\302!\210\307 !\207" [arg scroll-lock-temporary-goal-column 1 scroll-lock-update-goal-column (end-of-buffer) scroll-up recenter scroll-lock-move-to-column] 2 (#$ . 3790) "p"])
#@42 Scroll up ARG lines keeping point fixed.
(defalias 'scroll-lock-next-line #[(&optional arg) "\204 \302\303 \210\304d!\203 y\210\202 \305!\210\306 !\207" [arg scroll-lock-temporary-goal-column 1 scroll-lock-update-goal-column pos-visible-in-window-p scroll-up scroll-lock-move-to-column] 2 (#$ . 4134) "p"])
#@42 Scroll up ARG lines keeping point fixed.
(defalias 'scroll-lock-previous-line #[(&optional arg) "\204 \302\303 \210\3041 \305!0\202 \210[y\210\306 !\207" [arg scroll-lock-temporary-goal-column 1 scroll-lock-update-goal-column (beginning-of-buffer) scroll-down scroll-lock-move-to-column] 2 (#$ . 4454) "p"])
#@49 Scroll down ARG paragraphs keeping point fixed.
(defalias 'scroll-lock-forward-paragraph #[(&optional arg) "\204 \302\303 \210\304\305`\212\306!\210`)\"!\210\307 !\207" [arg scroll-lock-temporary-goal-column 1 scroll-lock-update-goal-column scroll-up count-screen-lines forward-paragraph scroll-lock-move-to-column] 5 (#$ . 4775) "p"])
#@47 Scroll up ARG paragraphs keeping point fixed.
(defalias 'scroll-lock-backward-paragraph #[(&optional arg) "\204 \303\304 \210\212\305!\210`)\3061 \307\310 `\"!0\202\" \210 b\210)\311\n!\207" [arg goal scroll-lock-temporary-goal-column 1 scroll-lock-update-goal-column backward-paragraph (beginning-of-buffer) scroll-down count-screen-lines scroll-lock-move-to-column] 4 (#$ . 5121) "p"])
(provide 'scroll-lock)
Mini Shell