From 90db975fc5177e0a54ef8eff43cc2585c5cb60cb Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Wed, 2 Feb 2011 12:14:49 -0500 Subject: [PATCH] * progmodes/compile.el: Make all faces inherit from font-lock faces. (compilation-warning): Inherit from font-lock-variable-name-face. (compilation-info): Inherit from font-lock-type-face. (compilation-line-number): Reassign to font-lock-keyword-face. (compilation-column-number): Reassign to font-lock-doc-face. (compilation-leave-directory-face): Reassign to font-lock-builtin-face. --- lisp/ChangeLog | 10 ++++++++++ lisp/progmodes/compile.el | 19 +++++-------------- 2 files changed, 15 insertions(+), 14 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 219aef943de..feb5daeca3b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,13 @@ +2011-02-02 Chong Yidong + + * progmodes/compile.el: Make all faces inherit. + (compilation-warning): Inherit from font-lock-variable-name-face. + (compilation-info): Inherit from font-lock-type-face. + (compilation-line-number): Reassign to font-lock-keyword-face. + (compilation-column-number): Reassign to font-lock-doc-face. + (compilation-leave-directory-face): Reassign to + font-lock-builtin-face. + 2011-02-02 Eli Zaretskii * dired.el (dired-insert-directory): Don't invoke `ls' when diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index e243043d668..b41eb82e27d 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -633,34 +633,25 @@ starting the compilation process.") :version "22.1") (defface compilation-warning - '((((class color) (min-colors 16)) (:foreground "Orange" :weight bold)) - (((class color)) (:foreground "cyan" :weight bold)) - (t (:weight bold))) + '((t :inherit font-lock-variable-name-face)) "Face used to highlight compiler warnings." :group 'compilation :version "22.1") (defface compilation-info - '((((class color) (min-colors 16) (background light)) - (:foreground "Green3" :weight bold)) - (((class color) (min-colors 88) (background dark)) - (:foreground "Green1" :weight bold)) - (((class color) (min-colors 16) (background dark)) - (:foreground "Green" :weight bold)) - (((class color)) (:foreground "green" :weight bold)) - (t (:weight bold))) + '((t :inherit font-lock-type-face)) "Face used to highlight compiler information." :group 'compilation :version "22.1") (defface compilation-line-number - '((t :inherit font-lock-variable-name-face)) + '((t :inherit font-lock-keyword-face)) "Face for displaying line numbers in compiler messages." :group 'compilation :version "22.1") (defface compilation-column-number - '((t :inherit font-lock-type-face)) + '((t :inherit font-lock-doc-face)) "Face for displaying column numbers in compiler messages." :group 'compilation :version "22.1") @@ -693,7 +684,7 @@ Faces `compilation-error-face', `compilation-warning-face', (defvar compilation-enter-directory-face 'font-lock-function-name-face "Face name to use for entering directory messages.") -(defvar compilation-leave-directory-face 'font-lock-type-face +(defvar compilation-leave-directory-face 'font-lock-builtin-face "Face name to use for leaving directory messages.") -- 2.11.4.GIT