Commit 57e46f94 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

Definitions moved down after hl-line-mode var's definition.
parent f87d9934
......@@ -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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment