ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/hl-line.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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 (#$ . 410))
(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 (#$ . 562))
(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 (#$ . 736))
(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)) "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 (#$ . 2557))
#@93 Non-nil if Hl-Line mode is enabled.
Use the command `hl-line-mode' to change this variable.
(defvar hl-line-mode nil (#$ . 2959))
(make-variable-buffer-local 'hl-line-mode)
#@817 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'.
(fn &optional ARG)
(defalias 'hl-line-mode #[256 "\302 \303=\203
?\202 \304!\305V\211\203? \306\307\310\311\312$\210 \203+ \313\314\310\312#\210\2022 \306\314\310\311\312$\210\315 \210\306\316\315\311\312$\210\202T \313\316\315\312#\210\310 \210\313\307\310\312#\210\313\314\310\312#\210\317\320\203^ \321\202_ \322\"\210\323\324!\203\203 \302 \203s \211\302 \232\203\203 \325\326\327\203~ \330\202 \331#\266\210\332 \210\207" [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 " in current buffer" message "Hl-Line mode %sabled%s" "en" "dis" force-mode-line-update] 8 (#$ . 3139) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
#@177 Hook run after entering or leaving `hl-line-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar hl-line-mode-hook nil (#$ . 4849))
(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)
(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 (#$ . 5341)])
#@53 Deactivate the Hl-Line overlay on the current line.
(defalias 'hl-line-unhighlight #[0 "\205 \301!\207" [hl-line-overlay delete-overlay] 2 (#$ . 5656)])
(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)
#@530 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'.
(fn &optional ARG)
(defalias 'global-hl-line-mode #[256 "\302 \303\300\304=\203 \305\300!?\202 \306!\307V\"\210\203= \310\311\312\"\210 \203- \313\314\312\"\210\2022 \310\314\312\"\210\315 \210\310\316\315\"\210\202J \317 \210\313\314\312\"\210\313\316\315\"\210\320\321\305\300!\203V \322\202W \323\"\210\324\325!\203\201 \326\300!\210\302 \203o \211\302 \232\203\201 \327\330\331\305\300!\203| \332\202} \333#\266\210\334 \210\305\300!\207" [global-hl-line-mode global-hl-line-sticky-flag current-message set-default toggle default-value prefix-numeric-value 0 add-hook change-major-mode-hook global-hl-line-unhighlight remove-hook pre-command-hook global-hl-line-highlight post-command-hook global-hl-line-unhighlight-all 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 (#$ . 6366) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
#@184 Hook run after entering or leaving `global-hl-line-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar global-hl-line-mode-hook nil (#$ . 7911))
(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 #[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 (#$ . 8281)])
#@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 (#$ . 8668)])
#@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 (#$ . 8851)])
#@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 (#$ . 9142)])
#@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 (#$ . 9612)])
(provide 'hl-line)
Kontol Shell Bypass