mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-26 19:18:50 +00:00
Code Issues Releases Activity

(hl-line-highlight, hl-line-unhighlight):

Browse Source 
Definitions moved down after hl-line-mode var's definition.
This commit is contained in:
Richard M. Stallman 2002-02-01 04:18:46 +00:00
parent f87d993410
commit 57e46f945e
1 changed files with 18 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
lisp/hl-line.el
View File

@ -63,24 +63,6 @@
(defvar hl-line-overlay nil)
(defun hl-line-highlight ()
"Active the Hl-Line overlay on the current line in the current window.
\(Unless it's a minibuffer window.)"
(when hl-line-mode ; Could be made buffer-local.
(unless (window-minibuffer-p (selected-window)) ; silly in minibuffer
(unless hl-line-overlay
(setq hl-line-overlay (make-overlay 1 1)) ; to be moved
(overlay-put hl-line-overlay 'face hl-line-face))
(overlay-put hl-line-overlay 'window (selected-window))
(move-overlay hl-line-overlay
(line-beginning-position) (1+ (line-end-position))
(current-buffer)))))
(defun hl-line-unhighlight ()
"Deactivate the Hl-Line overlay on the current line in the current window."
(if hl-line-overlay
(delete-overlay hl-line-overlay)))
;;;###autoload
(define-minor-mode hl-line-mode
"Minor mode to highlight the line about point in the current window.
@ -101,6 +83,24 @@ Uses functions `hl-line-unhighlight' and `hl-line-highlight' on
global-hl-line-mode hl-line-mode hl-line-mode
:group 'hl-line)
(defun hl-line-highlight ()
"Active the Hl-Line overlay on the current line in the current window.
\(Unless it's a minibuffer window.)"
(when hl-line-mode ; Could be made buffer-local.
(unless (window-minibuffer-p (selected-window)) ; silly in minibuffer
(unless hl-line-overlay
(setq hl-line-overlay (make-overlay 1 1)) ; to be moved
(overlay-put hl-line-overlay 'face hl-line-face))
(overlay-put hl-line-overlay 'window (selected-window))
(move-overlay hl-line-overlay
(line-beginning-position) (1+ (line-end-position))
(current-buffer)))))
(defun hl-line-unhighlight ()
"Deactivate the Hl-Line overlay on the current line in the current window."
(if hl-line-overlay
(delete-overlay hl-line-overlay)))
(provide 'hl-line)
;;; hl-line.el ends here