;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:46:28 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/hl-line.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`hl-line.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (custom-declare-group 'hl-line nil "Highlight the current line." :version "21.1" :group 'editing) #@48 Face with which to highlight the current line. (custom-declare-variable 'hl-line-face ''highlight '(#$ . 714) :type 'face :group 'hl-line) (byte-code "\301B\302\301!\204\f\303\303\207" [current-load-list hl-line-overlay boundp nil] 2) #@106 Active the Hl-Line overlay on the current line in the current window. (Unless it's a minibuffer window.) (defalias 'hl-line-highlight #[nil "\205+\303\304 !?\205+ \204\305\306\211\"\307 \310\n#\210\307 \311\304 #\210\312 \313 \314 Tp$\207" [hl-line-mode hl-line-overlay hl-line-face window-minibuffer-p selected-window make-overlay 1 overlay-put face window move-overlay line-beginning-position line-end-position] 5 (#$ . 960)]) #@75 Deactivate the Hl-Line overlay on the current line in the current window. (defalias 'hl-line-unhighlight #[nil "\205\301!\207" [hl-line-overlay delete-overlay] 2 (#$ . 1401)]) #@93 Non-nil if Hl-Line mode is enabled. Use the command `hl-line-mode' to change this variable. (defvar hl-line-mode nil (#$ . 1587)) (make-variable-buffer-local 'hl-line-mode) #@243 Minor mode to highlight the line about point in the current window. With ARG, turn Hl-Line mode on if ARG is positive, off otherwise. Uses functions `hl-line-unhighlight' and `hl-line-highlight' on `pre-command-hook' and `post-command-hook'. (defalias 'hl-line-mode #[(&optional arg) "\203\f\302!\303V\202 ?\211\203 \304\305\306\"\210\304\307\310\"\210\202-\306 \210\311\305\306\"\210\311\307\310\"\210\312\313 \2037\314\2028\315\"\210t\203K\316\317 \203H\320\202I\321\"\210\322 \210 \207" [arg hl-line-mode prefix-numeric-value 0 add-hook pre-command-hook hl-line-unhighlight post-command-hook hl-line-highlight remove-hook run-hooks hl-line-mode-hook hl-line-mode-on-hook hl-line-mode-off-hook message "Hl-Line mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 1767) nil]) #@49 Hook run at the end of function `hl-line-mode'. (custom-declare-variable 'hl-line-mode-hook 'nil '(#$ . 2568) :group 'hl-line :type 'hook) (byte-code "\300\301\302\303\304!\205 \304J#\207" [add-minor-mode hl-line-mode nil boundp hl-line-mode-map] 5) #@236 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; use either \[customize] or the function `global-hl-line-mode'. (custom-declare-variable 'global-hl-line-mode 'nil '(#$ . 2826) :set (lambda (symbol value) (funcall symbol (or value 0))) :initialize 'custom-initialize-default :group 'hl-line :type 'boolean :require 'hl-line) #@225 Toggle Hl-Line mode in every buffer. With prefix ARG, turn Global-Hl-Line mode on if and only if ARG is positive. Hl-Line mode is actually not turned on in every buffer but only in those in which `hl-line-mode' turns it on. (defalias 'global-hl-line-mode #[(&optional arg) "\203\f\305!\306V\202 ?\211\203 \307\310\311\"\210\307\312\313\"\210\202*\314\310\311\"\210\314\312\313\"\210\315 \316\211\203T @r\nq\210 \203D\304 \210\202L\f\203L\304\317!\210) A\211\2043*\320\321 \203_\322\202`\323\"\210t\203s\324\325 \203p\326\202q\327\"\210\330 \210 \207" [arg global-hl-line-mode buf #1=#:--dolist-temp--97273 hl-line-mode prefix-numeric-value 0 add-hook find-file-hooks global-hl-line-mode-buffers change-major-mode-hook global-hl-line-mode-cmmh remove-hook buffer-list nil -1 run-hooks global-hl-line-mode-hook global-hl-line-mode-on-hook global-hl-line-mode-off-hook message "Global-Hl-Line mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 3280) nil]) #@56 Hook run at the end of function `global-hl-line-mode'. (custom-declare-variable 'global-hl-line-mode-hook 'nil '(#$ . 4267) :group 'hl-line :type 'hook) (byte-code "\305\301\306\307\310!\205 \310J#\210\203 \203\n\204\311\312\"\210\304 B\307\304!\204*\306\306\207" [load-file-name global-hl-line-mode purify-flag current-load-list global-hl-line-mode-buffers add-minor-mode nil boundp global-hl-line-mode-map eval-after-load (global-hl-line-mode 1)] 5) (defalias 'global-hl-line-mode-buffers #[nil "\302\303\300\"\210\205!\211A@\304 !\203r q\210\305 \210))\202\207" [global-hl-line-mode-buffers buf remove-hook post-command-hook buffer-live-p hl-line-mode] 3]) (defalias 'global-hl-line-mode-cmmh #[nil "\300\301p\"\210\302\303\301\"\207" [add-to-list global-hl-line-mode-buffers add-hook post-command-hook] 3]) (provide 'hl-line)