diff options
author | Richard M. Stallman <rms@gnu.org> | 2002-02-01 04:18:46 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 2002-02-01 04:18:46 +0000 |
commit | 57e46f945ec87c89a17469195a6c8dcd12ac7e29 (patch) | |
tree | 2e28d2ef0f0497e29b494253387c327f4c013492 /lisp/hl-line.el | |
parent | f87d993410e38fad12d69b2f18b0ee6f64cb3d78 (diff) | |
download | emacs-57e46f945ec87c89a17469195a6c8dcd12ac7e29.tar.gz |
(hl-line-highlight, hl-line-unhighlight):
Definitions moved down after hl-line-mode var's definition.
Diffstat (limited to 'lisp/hl-line.el')
-rw-r--r-- | lisp/hl-line.el | 36 |
1 files changed, 18 insertions, 18 deletions
diff --git a/lisp/hl-line.el b/lisp/hl-line.el index 2e269925887..a2d73b7351d 100644 --- a/lisp/hl-line.el +++ b/lisp/hl-line.el @@ -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 |