Current File : //usr/local/share/emacs/27.2/lisp/hl-line.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@61 Overlay used by Hl-Line mode to highlight the current line.
(defvar hl-line-overlay nil (#$ . 408))
(make-variable-buffer-local 'hl-line-overlay)
#@68 Overlay used by Global-Hl-Line mode to highlight the current line.
(defvar global-hl-line-overlay nil (#$ . 560))
(make-variable-buffer-local 'global-hl-line-overlay)
#@163 Overlays used by Global-Hl-Line mode in various buffers.
Global-Hl-Line keeps displaying one overlay in each buffer
when `global-hl-line-sticky-flag' is non-nil.
(defvar global-hl-line-overlays nil (#$ . 734))
(byte-code "\300\301\302\303\304\305\306\307&\210\310\301\311\312\304\313\306\301&\210\314\315\316\317\320DD\321\322\323\306\301\324\325& \210\314\326\316\317\327DD\330\322\331\304\313\306\301& \210\314\332\316\317\333DD\334\322\331\304\335\306\301& \207" [custom-declare-group hl-line nil "Highlight the current line." :version "21.1" :group convenience custom-declare-face ((t :inherit highlight :extend t)) "Default face for highlighting the current line in Hl-Line mode." "22.1" custom-declare-variable hl-line-face funcall function #[0 "\300\207" [hl-line] 1] "Face with which to highlight the current line in Hl-Line mode." :type face :set #[514 "L\210\303 \211\203\" \211@r\211q\210\203 \304\305 #\210)A\266\202\202 \210\n\205, \304\n\305 #\207" [hl-line-overlay hl-line-face global-hl-line-overlay buffer-list overlay-put face] 8 "\n\n(fn SYMBOL VALUE)"] hl-line-sticky-flag #[0 "\300\207" [t] 1] "Non-nil means the HL-Line mode highlight appears in all windows.\nOtherwise Hl-Line mode will highlight only in the selected\nwindow. Setting this variable takes effect the next time you use\nthe command `hl-line-mode' to turn Hl-Line mode on.\n\nThis variable has no effect in Global Highlight Line mode.\nFor that, use `global-hl-line-sticky-flag'." boolean global-hl-line-sticky-flag #[0 "\300\207" [nil] 1] "Non-nil means the Global HL-Line mode highlight appears in all windows.\nOtherwise Global Hl-Line mode will highlight only in the selected\nwindow. Setting this variable takes effect the next time you use\nthe command `global-hl-line-mode' to turn Global Hl-Line mode on." "24.1"] 10)
#@349 If non-nil, function to call to return highlight range.
The function of no args should return a cons cell; its car value
is the beginning position of highlight and its cdr value is the
end position of highlight in the buffer.
It should return nil if there's no region to be highlighted.
This variable is expected to be made buffer-local by modes.
(defvar hl-line-range-function nil (#$ . 2565))
#@64 Most recently visited buffer in which Hl-Line mode is enabled.
(defvar hl-line-overlay-buffer nil (#$ . 2967))
#@93 Non-nil if Hl-Line mode is enabled.
Use the command `hl-line-mode' to change this variable.
(defvar hl-line-mode nil (#$ . 3084))
(make-variable-buffer-local 'hl-line-mode)
#@883 Toggle highlighting of the current line (Hl-Line mode).
If called interactively, enable Hl-Line 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.
Hl-Line mode is a buffer-local minor mode. If
`hl-line-sticky-flag' is non-nil, Hl-Line mode highlights the
line about the buffer's point in all windows. Caveat: the
buffer's point might be different from the point of a
non-selected window. Hl-Line mode uses the function
`hl-line-highlight' on `post-command-hook' in this case.
When `hl-line-sticky-flag' is nil, Hl-Line mode highlights the
line about point in the selected window only. In this case, it
uses the function `hl-line-maybe-unhighlight' in
addition to `hl-line-highlight' on `post-command-hook'.
(fn &optional ARG)
(defalias 'hl-line-mode #[256 "\302 \303=\203
?\202 \304!\305V\211\2034 \306\307\310\311\312$\210\313 \210p\306\314\313\311\312$\210\306\314\315\311\312$\210\202I \316\314\313\312#\210\310 \210\316\307\310\312#\210\316\314\315\312#\210\317\320\203S \321\202T \322\"\210\323\324!\203x \302 \203h \211\302 \232\203x \325\326\327\203s \330\202t \331#\266\210\332 \210\207" [hl-line-mode hl-line-overlay-buffer current-message toggle prefix-numeric-value 0 add-hook change-major-mode-hook hl-line-unhighlight nil t hl-line-highlight post-command-hook hl-line-maybe-unhighlight remove-hook run-hooks hl-line-mode-hook hl-line-mode-on-hook hl-line-mode-off-hook called-interactively-p any " in current buffer" message "Hl-Line mode %sabled%s" "en" "dis" force-mode-line-update] 8 (#$ . 3264) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar hl-line-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\207" [hl-line-mode-map hl-line-mode-hook variable-documentation put "Hook run after entering or leaving `hl-line-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 hl-line-mode nil boundp] 6)
(defalias 'hl-line-make-overlay #[0 "\301``\"\302\303\304#\210\302\305#\210\211\207" [hl-line-face make-overlay overlay-put priority -50 face] 5])
#@51 Activate the Hl-Line overlay on the current line.
(defalias 'hl-line-highlight #[0 "\203 \204 \303 \304 \305\n?\205 \306 #\210\307 !\207\310 \207" [hl-line-mode hl-line-overlay hl-line-sticky-flag hl-line-make-overlay overlay-put window selected-window hl-line-move hl-line-unhighlight] 4 (#$ . 5572)])
#@53 Deactivate the Hl-Line overlay on the current line.
(defalias 'hl-line-unhighlight #[0 "\205 \301!\207" [hl-line-overlay delete-overlay] 2 (#$ . 5887)])
#@175 Maybe deactivate the Hl-Line overlay on the current line.
Specifically, when `hl-line-sticky-flag' is nil deactivate all
such overlays in all buffers except the current one.
(defalias 'hl-line-maybe-unhighlight #[0 "p\303!\203& \204& \211=\204& \304 \204& rq\210\305\n!\203% \306\n!\210)\305\n!\2057 \307\n!=\2057 \211\211\207" [hl-line-overlay-buffer hl-line-sticky-flag hl-line-overlay buffer-live-p minibufferp overlayp delete-overlay overlay-buffer] 4 (#$ . 6050)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315& \207" [custom-declare-variable global-hl-line-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Global Hl-Line mode is enabled.\nSee the `global-hl-line-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 `global-hl-line-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group hl-line :type boolean] 12)
#@600 Toggle line highlighting in all buffers (Global Hl-Line mode).
If called interactively, enable Global Hl-Line 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.
If `global-hl-line-sticky-flag' is non-nil, Global Hl-Line mode
highlights the line about the current buffer's point in all live
windows.
Global-Hl-Line mode uses the functions `global-hl-line-highlight'
and `global-hl-line-maybe-unhighlight' on `post-command-hook'.
(fn &optional ARG)
(defalias 'global-hl-line-mode #[256 "\301 \302\300\303=\203 \304\300!?\202 \305!\306V\"\210\2031 \307\310\311\"\210\312 \210\307\313\314\"\210\307\313\315\"\210\202C \316 \210\317\313\314\"\210\317\310\311\"\210\317\313\315\"\210\320\321\304\300!\203O \322\202P \323\"\210\324\325!\203z \326\300!\210\301 \203h \211\301 \232\203z \327\330\331\304\300!\203u \332\202v \333#\266\210\334 \210\304\300!\207" [global-hl-line-mode current-message set-default toggle default-value prefix-numeric-value 0 add-hook change-major-mode-hook global-hl-line-unhighlight global-hl-line-highlight-all post-command-hook global-hl-line-highlight global-hl-line-maybe-unhighlight global-hl-line-unhighlight-all remove-hook run-hooks global-hl-line-mode-hook global-hl-line-mode-on-hook global-hl-line-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Global Hl-Line mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 7081) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar global-hl-line-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\207" [global-hl-line-mode-map global-hl-line-mode-hook variable-documentation put "Hook run after entering or leaving `global-hl-line-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 global-hl-line-mode nil boundp] 6)
#@51 Highlight the current line in the current window.
(defalias 'global-hl-line-highlight #[0 "\205* \304 ?\205* \204 \305 \n\235\204 \nB\306 \307 ?\205% \310 #\210\311 !\207" [global-hl-line-mode global-hl-line-overlay global-hl-line-overlays global-hl-line-sticky-flag window-minibuffer-p hl-line-make-overlay overlay-put window selected-window hl-line-move] 4 (#$ . 9138)])
#@49 Highlight the current line in all live windows.
(defalias 'global-hl-line-highlight-all #[0 "\300\301\302\303#\207" [walk-windows #[257 "r\300!q\210\301 )\207" [window-buffer global-hl-line-highlight] 3 "\n\n(fn W)"] nil t] 4 (#$ . 9525)])
#@60 Deactivate the Global-Hl-Line overlay on the current line.
(defalias 'global-hl-line-unhighlight #[0 "\205 \301!\207" [global-hl-line-overlay delete-overlay] 2 (#$ . 9772)])
#@189 Maybe deactivate the Global-Hl-Line overlay on the current line.
Specifically, when `global-hl-line-sticky-flag' is nil deactivate
all such overlays in all buffers except the current one.
(defalias 'global-hl-line-maybe-unhighlight #[0 "\301\302\"\207" [global-hl-line-overlays mapc #[257 "\302!?\205) \303!\205) \211p=?\205) \304 ?\205) r\211q\210\305 !\205( \306 !)\207" [global-hl-line-sticky-flag global-hl-line-overlay overlay-buffer bufferp minibufferp overlayp delete-overlay] 4 "\n\n(fn OV)"]] 3 (#$ . 9956)])
#@41 Deactivate all Global-Hl-Line overlays.
(defalias 'global-hl-line-unhighlight-all #[0 "\301\302\"\210\303\211\207" [global-hl-line-overlays mapc #[257 "\300!\301!\205 r\211q\210\302 )\207" [overlay-buffer bufferp global-hl-line-unhighlight] 4 "\n\n(fn OV)"] nil] 3 (#$ . 10484)])
#@225 Move the Hl-Line overlay.
If `hl-line-range-function' is non-nil, move the OVERLAY to the position
where the function returns. If `hl-line-range-function' is nil, fill
the line including the point by OVERLAY.
(fn OVERLAY)
(defalias 'hl-line-move #[257 "\301\211\211\203 \262@\262A\262\202\" \302\262\303 \262\303\304!\262\203. \305#\2023 \305\306\211#\207" [hl-line-range-function nil t line-beginning-position 2 move-overlay 1] 8 (#$ . 10776)])
#@29 Unload the Hl-Line library.
(defalias 'hl-line-unload-function #[0 "\301\302!\210r\303 \211\203 \211@\211q\210\203 \300\302!\210A\266\202\202 \210)\304\207" [hl-line-mode global-hl-line-mode -1 buffer-list nil] 4 (#$ . 11247)])
(provide 'hl-line)
Mini Shell