Mercurial > emacs
diff lisp/progmodes/compile.el @ 63196:72620d384ae2
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.
author | Miles Bader <miles@gnu.org> |
---|---|
date | Fri, 10 Jun 2005 07:34:16 +0000 |
parents | 3949ec3f5f5a |
children | ac2350be1da2 |
line wrap: on
line diff
--- 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