[Emacs-diffs] Changes to emacs/lisp/progmodes/compile.el

[Miles Bader]

Index: emacs/lisp/progmodes/compile.el
diff -c emacs/lisp/progmodes/compile.el:1.359 
emacs/lisp/progmodes/compile.el:1.360
*** emacs/lisp/progmodes/compile.el:1.359       Mon Jun  6 12:27:44 2005
--- emacs/lisp/progmodes/compile.el     Fri Jun 10 07:34:16 2005
***************
*** 468,482 ****
  ;; History of compile commands.
  (defvar compile-history nil)
  
! (defface compilation-warning-face
    '((((class color) (min-colors 16)) (:foreground "Orange" :weight bold))
      (((class color)) (:foreground "cyan" :weight bold))
      (t (:weight bold)))
    "Face used to highlight compiler warnings."
    :group 'font-lock-highlighting-faces
    :version "22.1")
  
! (defface compilation-info-face
    '((((class color) (min-colors 16) (background light))
       (:foreground "Green3" :weight bold))
      (((class color) (min-colors 88) (background dark))
--- 468,484 ----
  ;; History of compile commands.
  (defvar compile-history nil)
  
! (defface compilation-warning
    '((((class color) (min-colors 16)) (:foreground "Orange" :weight bold))
      (((class color)) (:foreground "cyan" :weight bold))
      (t (:weight bold)))
    "Face used to highlight compiler warnings."
    :group 'font-lock-highlighting-faces
    :version "22.1")
+ ;; backward-compatibility alias
+ (put 'compilation-warning-face 'face-alias 'compilation-warning)
  
! (defface compilation-info
    '((((class color) (min-colors 16) (background light))
       (:foreground "Green3" :weight bold))
      (((class color) (min-colors 88) (background dark))
***************
*** 488,493 ****
--- 490,497 ----
    "Face used to highlight compiler warnings."
    :group 'font-lock-highlighting-faces
    :version "22.1")
+ ;; backward-compatibility alias
+ (put 'compilation-info-face 'face-alias 'compilation-info)
  
  (defvar compilation-message-face nil
    "Face name to use for whole messages.
***************
*** 498,507 ****
  (defvar compilation-error-face 'font-lock-warning-face
    "Face name to use for file name in error messages.")
  
! (defvar compilation-warning-face 'compilation-warning-face
    "Face name to use for file name in warning messages.")
  
! (defvar compilation-info-face 'compilation-info-face
    "Face name to use for file name in informational messages.")
  
  (defvar compilation-line-face 'font-lock-variable-name-face
--- 502,511 ----
  (defvar compilation-error-face 'font-lock-warning-face
    "Face name to use for file name in error messages.")
  
! (defvar compilation-warning-face 'compilation-warning
    "Face name to use for file name in warning messages.")
  
! (defvar compilation-info-face 'compilation-info
    "Face name to use for file name in informational messages.")
  
  (defvar compilation-line-face 'font-lock-variable-name-face