comparison lisp/progmodes/compile.el @ 65734:77732e123c4e

(compilation-error, compilation-warning) (compilation-info, compilation-line-number, compilation-column-number): Change group from `font-lock-highlighting-faces' to `compilation'.
author Juri Linkov <juri@jurta.org>
date Thu, 29 Sep 2005 22:57:28 +0000
parents e78a07e4c513
children a2cbf1cc9c6d b1c1fc853d2f
comparison
equal deleted inserted replaced
65733:296124f7ef0e 65734:77732e123c4e
488 (defvar compile-history nil) 488 (defvar compile-history nil)
489 489
490 (defface compilation-error 490 (defface compilation-error
491 '((t :inherit font-lock-warning-face)) 491 '((t :inherit font-lock-warning-face))
492 "Face used to highlight compiler errors." 492 "Face used to highlight compiler errors."
493 :group 'font-lock-highlighting-faces 493 :group 'compilation
494 :version "22.1") 494 :version "22.1")
495 495
496 (defface compilation-warning 496 (defface compilation-warning
497 '((((class color) (min-colors 16)) (:foreground "Orange" :weight bold)) 497 '((((class color) (min-colors 16)) (:foreground "Orange" :weight bold))
498 (((class color)) (:foreground "cyan" :weight bold)) 498 (((class color)) (:foreground "cyan" :weight bold))
499 (t (:weight bold))) 499 (t (:weight bold)))
500 "Face used to highlight compiler warnings." 500 "Face used to highlight compiler warnings."
501 :group 'font-lock-highlighting-faces 501 :group 'compilation
502 :version "22.1") 502 :version "22.1")
503 503
504 (defface compilation-info 504 (defface compilation-info
505 '((((class color) (min-colors 16) (background light)) 505 '((((class color) (min-colors 16) (background light))
506 (:foreground "Green3" :weight bold)) 506 (:foreground "Green3" :weight bold))
509 (((class color) (min-colors 16) (background dark)) 509 (((class color) (min-colors 16) (background dark))
510 (:foreground "Green" :weight bold)) 510 (:foreground "Green" :weight bold))
511 (((class color)) (:foreground "green" :weight bold)) 511 (((class color)) (:foreground "green" :weight bold))
512 (t (:weight bold))) 512 (t (:weight bold)))
513 "Face used to highlight compiler information." 513 "Face used to highlight compiler information."
514 :group 'font-lock-highlighting-faces 514 :group 'compilation
515 :version "22.1") 515 :version "22.1")
516 516
517 (defface compilation-line-number 517 (defface compilation-line-number
518 '((t :inherit font-lock-variable-name-face)) 518 '((t :inherit font-lock-variable-name-face))
519 "Face for displaying line numbers in compiler messages." 519 "Face for displaying line numbers in compiler messages."
520 :group 'font-lock-highlighting-faces 520 :group 'compilation
521 :version "22.1") 521 :version "22.1")
522 522
523 (defface compilation-column-number 523 (defface compilation-column-number
524 '((t :inherit font-lock-type-face)) 524 '((t :inherit font-lock-type-face))
525 "Face for displaying column numbers in compiler messages." 525 "Face for displaying column numbers in compiler messages."
526 :group 'font-lock-highlighting-faces 526 :group 'compilation
527 :version "22.1") 527 :version "22.1")
528 528
529 (defvar compilation-message-face 'underline 529 (defvar compilation-message-face 'underline
530 "Face name to use for whole messages. 530 "Face name to use for whole messages.
531 Faces `compilation-error-face', `compilation-warning-face', 531 Faces `compilation-error-face', `compilation-warning-face',