# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 1118391231 0
# Node ID eef21c221effc3b8eeb5596086b06043f97bf08c
# Parent  6d9a2cf91f62922ed3ed2eafe65fdeb818f8eb9b
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-371

Remove "-face" suffix from whitespace-highlight face

2005-06-10  Miles Bader  <miles@gnu.org>

   * lisp/whitespace.el (whitespace-highlight): Remove "-face" suffix from
   face name.
   (whitespace-highlight-the-space): Use renamed face.
   (whitespace-highlight-face): New backward-compatibility aliases
   for renamed face.

diff -r 6d9a2cf91f62 -r eef21c221eff lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Jun 10 08:07:29 2005 +0000
+++ b/lisp/ChangeLog	Fri Jun 10 08:13:51 2005 +0000
@@ -1,5 +1,11 @@
 2005-06-10  Miles Bader  <miles@gnu.org>
 
+	* whitespace.el (whitespace-highlight): Remove "-face" suffix from
+	face name.
+	(whitespace-highlight-the-space): Use renamed face.
+	(whitespace-highlight-face): New backward-compatibility aliases
+	for renamed face.
+
 	* woman.el (woman-italic, woman-bold, woman-unknown)
 	(woman-addition, woman-symbol-face):
 	Remove "-face" suffix from face names.
diff -r 6d9a2cf91f62 -r eef21c221eff lisp/whitespace.el
--- a/lisp/whitespace.el	Fri Jun 10 08:07:29 2005 +0000
+++ b/lisp/whitespace.el	Fri Jun 10 08:13:51 2005 +0000
@@ -307,8 +307,8 @@
   :group 'whitespace)
 
 (defcustom whitespace-display-spaces-in-color t
-  "Display the bogus whitespaces by coloring them with
-`whitespace-highlight-face'."
+  "Display the bogus whitespaces by coloring them with the face
+`whitespace-highlight'."
   :type 'boolean
   :group 'whitespace)
 
@@ -318,18 +318,20 @@
   :group 'whitespace
   :group 'faces)
 
-(defface whitespace-highlight-face '((((class color) (background light))
-				      (:background "green1"))
-				     (((class color) (background dark))
-				      (:background "sea green"))
-				     (((class grayscale mono)
-				       (background light))
-				      (:background "black"))
-				     (((class grayscale mono)
-				       (background dark))
-				      (:background "white")))
+(defface whitespace-highlight '((((class color) (background light))
+				 (:background "green1"))
+				(((class color) (background dark))
+				 (:background "sea green"))
+				(((class grayscale mono)
+				  (background light))
+				 (:background "black"))
+				(((class grayscale mono)
+				  (background dark))
+				 (:background "white")))
   "Face used for highlighting the bogus whitespaces that exist in the buffer."
   :group 'whitespace-faces)
+;; backward-compatibility alias
+(put 'whitespace-highlight-face 'face-alias 'whitespace-highlight)
 
 (if (not (assoc 'whitespace-mode minor-mode-alist))
     (setq minor-mode-alist (cons '(whitespace-mode whitespace-mode-line)
@@ -734,7 +736,7 @@
   (if whitespace-display-spaces-in-color
       (let ((ol (whitespace-make-overlay b e)))
 	(push ol whitespace-highlighted-space)
-	(whitespace-overlay-put ol 'face 'whitespace-highlight-face))))
+	(whitespace-overlay-put ol 'face 'whitespace-highlight))))
 ;;  (add-hook 'pre-command-hook 'whitespace-unhighlight-the-space))
 
 (defun whitespace-unhighlight-the-space()