diff options
| author | Miles Bader <miles@gnu.org> | 2005-06-10 07:34:16 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2005-06-10 07:34:16 +0000 |
| commit | 541a6d0de2860e20b7e18d8df0d1f5f33b4a1495 (patch) | |
| tree | 4073acd15c32c5ae831dc5e64ee3fdd3aa3cfbdf /lisp | |
| parent | fe735a8d8e3dbe65c79e7ea80034d2dbcc359028 (diff) | |
| download | emacs-541a6d0de2860e20b7e18d8df0d1f5f33b4a1495.tar.gz | |
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.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 7 | ||||
| -rw-r--r-- | lisp/progmodes/compile.el | 12 |
2 files changed, 15 insertions, 4 deletions
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 <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 --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 |