# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 1118791237 0
# Node ID d6d67f85ab761cd082a57e3b4ff6997c800b9c06
# Parent  b9811baefe1a10e3135c20e47b185768555d837c
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-412

Remove "-face" suffix from flymake faces

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

   * lisp/progmodes/flymake.el (flymake-errline, flymake-warnline):
   Remove "-face" suffix from face names.
   (flymake-errline-face, flymake-warnline-face):
   New backward-compatibility aliases for renamed faces.
   (flymake-highlight-line): Use renamed flymake faces.

diff -r b9811baefe1a -r d6d67f85ab76 lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Jun 14 22:49:47 2005 +0000
+++ b/lisp/ChangeLog	Tue Jun 14 23:20:37 2005 +0000
@@ -1,5 +1,11 @@
 2005-06-14  Miles Bader  <miles@gnu.org>
 
+	* progmodes/flymake.el (flymake-errline, flymake-warnline): 
+	Remove "-face" suffix from face names.
+	(flymake-errline-face, flymake-warnline-face):
+	New backward-compatibility aliases for renamed faces.
+	(flymake-highlight-line): Use renamed flymake faces.
+
 	* progmodes/ebrowse.el (ebrowse-tree-mark, ebrowse-root-class)
 	(ebrowse-file-name, ebrowse-default, ebrowse-member-attribute)
 	(ebrowse-member-class, ebrowse-progress):
diff -r b9811baefe1a -r d6d67f85ab76 lisp/progmodes/flymake.el
--- a/lisp/progmodes/flymake.el	Tue Jun 14 22:49:47 2005 +0000
+++ b/lisp/progmodes/flymake.el	Tue Jun 14 23:20:37 2005 +0000
@@ -839,19 +839,23 @@
       (setq ov (cdr ov)))
     has-flymake-overlays))
 
-(defface flymake-errline-face
+(defface flymake-errline
   ;;+   '((((class color)) (:foreground "OrangeRed" :bold t :underline t))
   ;;+   '((((class color)) (:underline "OrangeRed"))
   '((((class color)) (:background "LightPink"))
     (t (:bold t)))
   "Face used for marking error lines."
   :group 'flymake)
+;; backward-compatibility alias
+(put 'flymake-errline-face 'face-alias 'flymake-errline)
 
-(defface flymake-warnline-face
+(defface flymake-warnline
   '((((class color)) (:background "LightBlue2"))
     (t (:bold t)))
   "Face used for marking warning lines."
   :group 'flymake)
+;; backward-compatibility alias
+(put 'flymake-warnline-face 'face-alias 'flymake-warnline)
 
 (defun flymake-highlight-line (line-no line-err-info-list)
   "Highlight line LINE-NO in current buffer.
@@ -886,8 +890,8 @@
       (setq end (point)))
 
     (if (> (flymake-get-line-err-count line-err-info-list "e") 0)
-	(setq face 'flymake-errline-face)
-      (setq face 'flymake-warnline-face))
+	(setq face 'flymake-errline)
+      (setq face 'flymake-warnline))
 
     (flymake-make-overlay beg end tooltip-text face nil)))