procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* progmodes/compile.el: Make all faces inherit from font-lock faces.

Browse source 
(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.
This commit is contained in:
Chong Yidong 2011-02-02 12:14:49 -05:00
parent d9f1f55ed7
commit 90db975fc5
2 changed files with 15 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/ChangeLog
View file

@ -1,3 +1,13 @@
2011-02-02 Chong Yidong <cyd@stupidchicken.com>
* 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 <eliz@gnu.org>
* dired.el (dired-insert-directory): Don't invoke `ls' when

19
lisp/progmodes/compile.el
View file

@ -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.")