# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 1118388856 0
# Node ID 72620d384ae2a892fec13fc64f03eeb46c8cc390
# Parent  d4857c25a45b6915cdf84ba33aee0bcfe05b54a0
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-367

Remove "-face" suffix from compilation faces

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

   * lisp/progmodes/compile.el (compilation-warning-face)
   (compilation-info-face): Remove "-face" suffix from face names.
   (compilation-warning-face, compilation-info-face):
   New backward-compatibility aliases for renamed faces.
   (compilation-warning-face, compilation-info-face):
   Use renamed compilation faces.

diff -r d4857c25a45b -r 72620d384ae2 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Jun 10 07:26:14 2005 +0000
+++ b/lisp/ChangeLog	Fri Jun 10 07:34:16 2005 +0000
@@ -1,5 +1,12 @@
 2005-06-10  Miles Bader  <miles@gnu.org>
 
+	* progmodes/compile.el (compilation-warning-face)
+	(compilation-info-face): Remove "-face" suffix from face names.
+	(compilation-warning-face, compilation-info-face): 
+	New backward-compatibility aliases for renamed faces.
+	(compilation-warning-face, compilation-info-face):
+	Use renamed compilation faces.
+
 	* add-log.el (change-log-date, change-log-name)
 	(change-log-email, change-log-file, change-log-list)
 	(change-log-conditionals, change-log-function)
diff -r d4857c25a45b -r 72620d384ae2 lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Fri Jun 10 07:26:14 2005 +0000
+++ b/lisp/progmodes/compile.el	Fri Jun 10 07:34:16 2005 +0000
@@ -468,15 +468,17 @@
 ;; History of compile commands.
 (defvar compile-history nil)
 
-(defface compilation-warning-face
+(defface compilation-warning
   '((((class color) (min-colors 16)) (:foreground "Orange" :weight bold))
     (((class color)) (:foreground "cyan" :weight bold))
     (t (:weight bold)))
   "Face used to highlight compiler warnings."
   :group 'font-lock-highlighting-faces
   :version "22.1")
+;; backward-compatibility alias
+(put 'compilation-warning-face 'face-alias 'compilation-warning)
 
-(defface compilation-info-face
+(defface compilation-info
   '((((class color) (min-colors 16) (background light))
      (:foreground "Green3" :weight bold))
     (((class color) (min-colors 88) (background dark))
@@ -488,6 +490,8 @@
   "Face used to highlight compiler warnings."
   :group 'font-lock-highlighting-faces
   :version "22.1")
+;; backward-compatibility alias
+(put 'compilation-info-face 'face-alias 'compilation-info)
 
 (defvar compilation-message-face nil
   "Face name to use for whole messages.
@@ -498,10 +502,10 @@
 (defvar compilation-error-face 'font-lock-warning-face
   "Face name to use for file name in error messages.")
 
-(defvar compilation-warning-face 'compilation-warning-face
+(defvar compilation-warning-face 'compilation-warning
   "Face name to use for file name in warning messages.")
 
-(defvar compilation-info-face 'compilation-info-face
+(defvar compilation-info-face 'compilation-info
   "Face name to use for file name in informational messages.")
 
 (defvar compilation-line-face 'font-lock-variable-name-face