| 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 : |
;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 \204 rq\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'