From: Miles Bader Date: Fri, 10 Jun 2005 07:34:16 +0000 (+0000) Subject: Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-367 X-Git-Tag: emacs-pretest-22.0.90~9150 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=541a6d0de2860e20b7e18d8df0d1f5f33b4a1495;p=emacs.git Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-367 Remove "-face" suffix from compilation faces 2005-06-10 Miles Bader * 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 --git a/lisp/ChangeLog b/lisp/ChangeLog index 7c95351e74e..ab88f6429be 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,12 @@ 2005-06-10 Miles Bader + * 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 --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index e0c8ded307a..e1b63e54b17 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -468,15 +468,17 @@ starting the compilation process.") ;; 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 @@ starting the compilation process.") "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 @@ Faces `compilation-error-face', `compilation-warning-face', (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