mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-03 08:30:09 +00:00
Code Issues Releases Activity

(compilation-mode-font-lock-keywords):

Browse Source 
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.
This commit is contained in:
Juri Linkov 2005-08-09 21:34:40 +00:00
parent 8012c83504
commit 38dbf92be6
1 changed files with 10 additions and 47 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
lisp/progmodes/compile.el
View File

@ -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