From: Juri Linkov <juri@jurta.org>
Date: Tue, 9 Aug 2005 21:34:40 +0000 (+0000)
Subject: (compilation-mode-font-lock-keywords):
X-Git-Tag: emacs-pretest-22.0.90~7676
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=38dbf92be67e0e09ed0aaf8a1925b1f889a6897a;p=emacs.git

(compilation-mode-font-lock-keywords):
Remove `-text' from face variable names.
(compilation-error-file-name, compilation-warning-file-name)
(compilation-info-file-name): Delete faces.
(compilation-line-number, compilation-column-number):
Remove face underlining.
(compilation-message-face): Set to `underline' value by default.
(compilation-error-face, compilation-warning-face)
(compilation-info-face): Remove `-file-name' from face names.
(compilation-error-text-face, compilation-warning-text-face)
(compilation-info-text-face): Delete face variables.
(compilation-text-face): Delete function.
---

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index b7b14c238b3..6d5acfcbdf4 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -377,13 +377,13 @@ you may also want to change `compilation-page-delimiter'.")
    '(;; configure output lines.
      ("^[Cc]hecking \\(?:[Ff]or \\|[Ii]f \\|[Ww]hether \\(?:to \\)?\\)?\\(.+\\)\\.\\.\\. *\\(?:(cached) *\\)?\\(\\(yes\\(?: .+\\)?\\)\\|no\\|\\(.*\\)\\)$"
       (1 font-lock-variable-name-face)
-      (2 (compilation-text-face '(4 . 3))))
+      (2 (compilation-face '(4 . 3))))
      ;; Command output lines.  Recognize `make[n]:' lines too.
      ("^\\([[:alnum:]_/.+-]+\\)\\(\\[\\([0-9]+\\)\\]\\)?[ \t]*:"
       (1 font-lock-function-name-face) (3 compilation-line-face nil t))
      (" --?o\\(?:utfile\\|utput\\)?[= ]?\\(\\S +\\)" . 1)
-     ("^Compilation finished" . compilation-info-text-face)
-     ("^Compilation exited abnormally" . compilation-error-text-face))
+     ("^Compilation finished" . compilation-info-face)
+     ("^Compilation exited abnormally" . compilation-error-face))
    "Additional things to highlight in Compilation mode.
 This gets tacked on the end of the generated expressions.")
 
@@ -499,67 +499,35 @@ starting the compilation process.")
 ;; backward-compatibility alias
 (put 'compilation-info-face 'face-alias 'compilation-info)
 
-(defface compilation-error-file-name
-  '((default :inherit compilation-error)
-    (((supports :underline t)) :underline t))
-  "Face for displaying file names in error messages."
-  :group 'font-lock-highlighting-faces
-  :version "22.1")
-
-(defface compilation-warning-file-name
-  '((default :inherit compilation-warning)
-    (((supports :underline t)) :underline t))
-  "Face for displaying file names in warning messages."
-  :group 'font-lock-highlighting-faces
-  :version "22.1")
-
-(defface compilation-info-file-name
-  '((default :inherit compilation-info)
-    (((supports :underline t)) :underline t))
-  "Face for displaying file names in informational messages."
-  :group 'font-lock-highlighting-faces
-  :version "22.1")
-
 (defface compilation-line-number
-  '((default :inherit font-lock-variable-name-face)
-    (((supports :underline t)) :underline t))
+  '((t :inherit font-lock-variable-name-face))
   "Face for displaying line numbers in compiler messages."
   :group 'font-lock-highlighting-faces
   :version "22.1")
 
 (defface compilation-column-number
-  '((default :inherit font-lock-type-face)
-    (((supports :underline t)) :underline t))
+  '((t :inherit font-lock-type-face))
   "Face for displaying column numbers in compiler messages."
   :group 'font-lock-highlighting-faces
   :version "22.1")
 
-(defvar compilation-message-face nil
+(defvar compilation-message-face 'underline
   "Face name to use for whole messages.
 Faces `compilation-error-face', `compilation-warning-face',
 `compilation-info-face', `compilation-line-face' and
 `compilation-column-face' get prepended to this, when applicable.")
 
-(defvar compilation-error-face 'compilation-error-file-name
+(defvar compilation-error-face 'compilation-error
   "Face name to use for file name in error messages.")
 
-(defvar compilation-error-text-face 'compilation-error
-  "Face name to use for text of error messages.")
-
-(defvar compilation-warning-face 'compilation-warning-file-name
+(defvar compilation-warning-face 'compilation-warning
   "Face name to use for file name in warning messages.")
 
-(defvar compilation-warning-text-face 'compilation-warning
-  "Face name to use for text of warning messages.")
-
-(defvar compilation-info-face 'compilation-info-file-name
+(defvar compilation-info-face 'compilation-info
   "Face name to use for file name in informational messages.")
 
-(defvar compilation-info-text-face 'compilation-info
-  "Face name to use for text of informational messages.")
-
 (defvar compilation-line-face 'compilation-line-number
-  "Face name to use for line numbers in compiler message.")
+  "Face name to use for line numbers in compiler messages.")
 
 (defvar compilation-column-face 'compilation-column-number
   "Face name to use for column numbers in compiler messages.")
@@ -585,11 +553,6 @@ Faces `compilation-error-face', `compilation-warning-face',
       (and (cdr type) (match-end (cdr type)) compilation-info-face)
       compilation-error-face))
 
-(defun compilation-text-face (type)
-  (or (and (car type) (match-end (car type)) compilation-warning-text-face)
-      (and (cdr type) (match-end (cdr type)) compilation-info-text-face)
-      compilation-error-text-face))
-
 ;; Internal function for calculating the text properties of a directory
 ;; change message.  The directory property is important, because it is
 ;; the stack of nested enter-messages.  Relative filenames on the following