| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/hl-line.elc |
;ELC ;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:21 2024 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/hl-line.el ;;; in Emacs version 24.3.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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@61 Overlay used by Hl-Line mode to highlight the current line. (defvar hl-line-overlay nil (#$ . 550)) (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 (#$ . 702)) (byte-code "\300\301\302\303\304\305\306\307&\210\310\301\311\312\304\313\306\301&\210\314\315\316\317\320\321\306\301\322\323& \210\314\324\325\326\320\327\304\313\306\301& \210\314\330\302\331\320\327\304\332\306\301& \207" [custom-declare-group hl-line nil "Highlight the current line." :version "21.1" :group convenience custom-declare-face ((t :inherit highlight)) "Default face for highlighting the current line in Hl-Line mode." "22.1" custom-declare-variable hl-line-face 'hl-line "Face with which to highlight the current line in Hl-Line mode." :type face :set #[(symbol value) " L\210\306 \307\211\203& @r\nq\210\f\203 \310\f\311 #\210) A\211\204 *\n\2052 \310\n\311 #\207" [symbol value buffer --dolist-tail-- hl-line-overlay hl-line-face buffer-list nil overlay-put face global-hl-line-overlay] 5] hl-line-sticky-flag t "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 "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 (#$ . 2343)) #@93 Non-nil if Hl-Line mode is enabled. Use the command `hl-line-mode' to change this variable. (defvar hl-line-mode nil (#$ . 2745)) (make-variable-buffer-local 'hl-line-mode) #@797 Toggle highlighting of the current line (Hl-Line mode). With a prefix argument ARG, enable Hl-Line mode if ARG is positive, and disable it otherwise. If called from Lisp, enable the mode if ARG is omitted or nil. 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-unhighlight' on `pre-command-hook' in addition to `hl-line-highlight' on `post-command-hook'. (defalias 'hl-line-mode #[(&optional arg) "\304 \305=\203 \n?\202 \306 !\307V\211\203@ \310\311\312\313\314$\210 \203, \315\316\312\314#\210\2023 \310\316\312\313\314$\210\317 \210\310\320\317\313\314$\210\202U \315\320\317\314#\210\312 \210\315\311\312\314#\210\315\316\312\314#\210\321\322\n\203_ \323\202` \324\"\210\325\326!\203\201 \304 \203t \304 \232\203\201 \327\330\n\203~ \331\202 \332\"\210)\333 \210\n\207" [#1=#:last-message arg hl-line-mode hl-line-sticky-flag current-message toggle prefix-numeric-value 0 add-hook change-major-mode-hook hl-line-unhighlight nil t remove-hook pre-command-hook hl-line-highlight post-command-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" "en" "dis" force-mode-line-update] 6 (#$ . 2925) (list (or current-prefix-arg 'toggle))]) (byte-code "\301\302\303\304\300!\205\n \303\211%\207" [hl-line-mode-map add-minor-mode hl-line-mode nil boundp] 6) #@51 Activate the Hl-Line overlay on the current line. (defalias 'hl-line-highlight #[nil "\203# \204 \304\305\211\"\306 \307\n#\210\306 \310 ?\205 \311 #\210\312 !\207\313 \207" [hl-line-mode hl-line-overlay hl-line-face hl-line-sticky-flag make-overlay 1 overlay-put face window selected-window hl-line-move hl-line-unhighlight] 4 (#$ . 4714)]) #@53 Deactivate the Hl-Line overlay on the current line. (defalias 'hl-line-unhighlight #[nil "\205 \301!\207" [hl-line-overlay delete-overlay] 2 (#$ . 5067)]) #@278 Non-nil if Global-Hl-Line mode is enabled. See the command `global-hl-line-mode' 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 `global-hl-line-mode'. (custom-declare-variable 'global-hl-line-mode nil '(#$ . 5232) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'hl-line :type 'boolean) #@510 Toggle line highlighting in all buffers (Global Hl-Line mode). With a prefix argument ARG, enable Global Hl-Line mode if ARG is positive, and disable it otherwise. If called from Lisp, enable the mode if ARG is omitted or nil. If `global-hl-line-sticky-flag' is non-nil, Global Hl-Line mode highlights the line about the current buffer's point in all windows. Global-Hl-Line mode uses the functions `global-hl-line-unhighlight' and `global-hl-line-highlight' on `pre-command-hook' and `post-command-hook'. (defalias 'global-hl-line-mode #[(&optional arg) "\303 \304=\203 \n?\202 \305 !\306V\211\203% \307\310\311\"\210\307\312\313\"\210\2022 \311 \210\314\310\311\"\210\314\312\313\"\210\315\316\n\203< \317\202= \320\"\210\321\322!\203b \323\302!\210\303 \203U \303 \232\203b \324\325\n\203_ \326\202` \327\"\210)\330 \210\n\207" [#1=#:last-message arg global-hl-line-mode current-message toggle prefix-numeric-value 0 add-hook pre-command-hook global-hl-line-unhighlight post-command-hook global-hl-line-highlight 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" "en" "dis" force-mode-line-update] 4 (#$ . 5678) (list (or current-prefix-arg 'toggle))]) (byte-code "\301\302\303\304\300!\205\n \303\211%\207" [global-hl-line-mode-map add-minor-mode global-hl-line-mode nil boundp] 6) #@51 Highlight the current line in the current window. (defalias 'global-hl-line-highlight #[nil "\205* \304\305 !?\205* \204 \306\307\211\"\310 \311\n#\210\310 \312 ?\205% \305 #\210\313 !\207" [global-hl-line-mode global-hl-line-overlay hl-line-face global-hl-line-sticky-flag window-minibuffer-p selected-window make-overlay 1 overlay-put face window hl-line-move] 4 (#$ . 7121)]) #@60 Deactivate the Global-Hl-Line overlay on the current line. (defalias 'global-hl-line-unhighlight #[nil "\205 \301!\207" [global-hl-line-overlay delete-overlay] 2 (#$ . 7510)]) #@211 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. (defalias 'hl-line-move #[(overlay) "\305\211\211 \203 \211@\nA\202 \306\307 \307\310!\n\203+ \311\f #\2020 \311\f\312\211#+\207" [e b tmp hl-line-range-function overlay nil t line-beginning-position 2 move-overlay 1] 5 (#$ . 7696)]) #@29 Unload the Hl-Line library. (defalias 'hl-line-unload-function #[nil "\303\304!\210r\305 \306\211\203# @\211q\210\n\203 \302\304!\210 A\211\204 +\306\207" [buffer --dolist-tail-- hl-line-mode global-hl-line-mode -1 buffer-list nil] 3 (#$ . 8160)]) (provide 'hl-line)