468 |
;; History of compile commands. |
;; History of compile commands. |
469 |
(defvar compile-history nil) |
(defvar compile-history nil) |
470 |
|
|
471 |
(defface compilation-warning-face |
(defface compilation-warning |
472 |
'((((class color) (min-colors 16)) (:foreground "Orange" :weight bold)) |
'((((class color) (min-colors 16)) (:foreground "Orange" :weight bold)) |
473 |
(((class color)) (:foreground "cyan" :weight bold)) |
(((class color)) (:foreground "cyan" :weight bold)) |
474 |
(t (:weight bold))) |
(t (:weight bold))) |
475 |
"Face used to highlight compiler warnings." |
"Face used to highlight compiler warnings." |
476 |
:group 'font-lock-highlighting-faces |
:group 'font-lock-highlighting-faces |
477 |
:version "22.1") |
:version "22.1") |
478 |
|
;; backward-compatibility alias |
479 |
|
(put 'compilation-warning-face 'face-alias 'compilation-warning) |
480 |
|
|
481 |
(defface compilation-info-face |
(defface compilation-info |
482 |
'((((class color) (min-colors 16) (background light)) |
'((((class color) (min-colors 16) (background light)) |
483 |
(:foreground "Green3" :weight bold)) |
(:foreground "Green3" :weight bold)) |
484 |
(((class color) (min-colors 88) (background dark)) |
(((class color) (min-colors 88) (background dark)) |
490 |
"Face used to highlight compiler warnings." |
"Face used to highlight compiler warnings." |
491 |
:group 'font-lock-highlighting-faces |
:group 'font-lock-highlighting-faces |
492 |
:version "22.1") |
:version "22.1") |
493 |
|
;; backward-compatibility alias |
494 |
|
(put 'compilation-info-face 'face-alias 'compilation-info) |
495 |
|
|
496 |
(defvar compilation-message-face nil |
(defvar compilation-message-face nil |
497 |
"Face name to use for whole messages. |
"Face name to use for whole messages. |
502 |
(defvar compilation-error-face 'font-lock-warning-face |
(defvar compilation-error-face 'font-lock-warning-face |
503 |
"Face name to use for file name in error messages.") |
"Face name to use for file name in error messages.") |
504 |
|
|
505 |
(defvar compilation-warning-face 'compilation-warning-face |
(defvar compilation-warning-face 'compilation-warning |
506 |
"Face name to use for file name in warning messages.") |
"Face name to use for file name in warning messages.") |
507 |
|
|
508 |
(defvar compilation-info-face 'compilation-info-face |
(defvar compilation-info-face 'compilation-info |
509 |
"Face name to use for file name in informational messages.") |
"Face name to use for file name in informational messages.") |
510 |
|
|
511 |
(defvar compilation-line-face 'font-lock-variable-name-face |
(defvar compilation-line-face 'font-lock-variable-name-face |