[Emacs-diffs] Changes to emacs/lisp/hl-line.el

[Richard M. Stallman]

Index: emacs/lisp/hl-line.el
diff -c emacs/lisp/hl-line.el:1.16 emacs/lisp/hl-line.el:1.17
*** emacs/lisp/hl-line.el:1.16  Sun Jan 20 04:27:07 2002
--- emacs/lisp/hl-line.el       Thu Jan 31 23:18:46 2002
***************
*** 63,86 ****
  
  (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.
--- 63,68 ----
***************
*** 100,105 ****
--- 82,105 ----
  (easy-mmode-define-global-mode
   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)