changeset 64863:2838cf662e70

(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.

--- a/lisp/progmodes/compile.el	Tue Aug 09 21:00:39 2005 +0000
+++ b/lisp/progmodes/compile.el	Tue Aug 09 21:34:40 2005 +0000
@@ -377,13 +377,13 @@
    '(;; 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 @@
 ;; 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 @@
       (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