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 --git a/lisp/ChangeLog b/lisp/ChangeLog
index 71ccda0f4870bf8b2c8008ae3a947ad6b64abefd..c9e4d6ff8def5665ee354ab74ce43024e2a62b20 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/progmodes/flymake.el b/lisp/progmodes/flymake.el
index 7b1ba8d033f207c4b87a3796d158aec017b1d0f2..c47f2e34cd2c362092befb15d1f380c805ec2c87 100644 (file)
--- a/lisp/progmodes/flymake.el
+++ b/lisp/progmodes/flymake.el
@@ -839,19 +839,23 @@ Return t if it has at least one flymake overlay, nil if no overlay."
       (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 @@ Perhaps use text from LINE-ERR-INFO-ILST to enhance highlighting."
       (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)))