# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1156858080 0
# Node ID daa3868065ff804167fe6cfb49e030fb5a56e092
# Parent  871eeda78fd765d844560ce64e1e79da7b63a738
	* hl-line.el (hl-line): New face.
	(hl-line-face): Use it.

diff -r 871eeda78fd7 -r daa3868065ff lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Aug 29 13:15:53 2006 +0000
+++ b/lisp/ChangeLog	Tue Aug 29 13:28:00 2006 +0000
@@ -1,5 +1,8 @@
 2006-08-29  Chong Yidong  <cyd@stupidchicken.com>
 
+	* hl-line.el (hl-line): New face.
+	(hl-line-face): Use it.
+
 	* image-mode.el (image-mode): Fix last fix.
 	Suggested by Kim F. Storm.
 
diff -r 871eeda78fd7 -r daa3868065ff lisp/hl-line.el
--- a/lisp/hl-line.el	Tue Aug 29 13:15:53 2006 +0000
+++ b/lisp/hl-line.el	Tue Aug 29 13:28:00 2006 +0000
@@ -64,15 +64,36 @@
 
 ;;; Code:
 
+(defvar hl-line-overlay nil
+  "Overlay used by Hl-Line mode to highlight the current line.")
+(make-variable-buffer-local 'hl-line-overlay)
+
+(defvar global-hl-line-overlay nil
+  "Overlay used by Global-Hl-Line mode to highlight the current line.")
+
 (defgroup hl-line nil
   "Highlight the current line."
   :version "21.1"
   :group 'editing)
 
-(defcustom hl-line-face 'highlight
-  "Face with which to highlight the current line."
+(defface hl-line
+  '((t :inherit highlight))
+  "Default face for highlighting the current line in Hl-Line mode."
+  :version "22.1"
+  :group 'hl-line)
+
+(defcustom hl-line-face 'hl-line
+  "Face with which to highlight the current line in Hl-Line mode."
   :type 'face
-  :group 'hl-line)
+  :group 'hl-line
+  :set (lambda (symbol value)
+	 (set symbol value)
+	 (dolist (buffer (buffer-list))
+	   (with-current-buffer buffer
+	     (when hl-line-overlay
+	       (overlay-put hl-line-overlay 'face hl-line-face))))
+	 (when global-hl-line-overlay
+	   (overlay-put global-hl-line-overlay 'face hl-line-face))))
 
 (defcustom hl-line-sticky-flag t
   "*Non-nil means highlight the current line in all windows.
@@ -92,13 +113,6 @@
 
 This variable is expected to be made buffer-local by modes.")
 
-(defvar hl-line-overlay nil
-  "Overlay used by Hl-Line mode to highlight the current line.")
-(make-variable-buffer-local 'hl-line-overlay)
-
-(defvar global-hl-line-overlay nil
-  "Overlay used by Global-Hl-Line mode to highlight the current line.")
-
 ;;;###autoload
 (define-minor-mode hl-line-mode
   "Buffer-local minor mode to highlight the line about point.