[Emacs-diffs] Changes to emacs/lisp/cus-edit.el

[Dan Nicolaescu]

Index: emacs/lisp/cus-edit.el
diff -c emacs/lisp/cus-edit.el:1.217 emacs/lisp/cus-edit.el:1.218
*** emacs/lisp/cus-edit.el:1.217        Tue Apr  5 06:40:12 2005
--- emacs/lisp/cus-edit.el      Fri Apr  8 14:26:13 2005
***************
*** 1633,1639 ****
    :group 'custom-buffer)
  
  (defface custom-invalid-face '((((class color))
!                               (:foreground "yellow" :background "red"))
                               (t
                                (:weight bold :slant italic :underline t)))
    "Face used when the customize item is invalid."
--- 1633,1639 ----
    :group 'custom-buffer)
  
  (defface custom-invalid-face '((((class color))
!                               (:foreground "yellow1" :background "red1"))
                               (t
                                (:weight bold :slant italic :underline t)))
    "Face used when the customize item is invalid."
***************
*** 1646,1666 ****
    "Face used when the customize item is not defined for customization."
    :group 'custom-magic-faces)
  
! (defface custom-modified-face '((((class color))
                                 (:foreground "white" :background "blue"))
                                (t
                                 (:slant italic :bold)))
    "Face used when the customize item has been modified."
    :group 'custom-magic-faces)
  
! (defface custom-set-face '((((class color))
                            (:foreground "blue" :background "white"))
                           (t
                            (:slant italic)))
    "Face used when the customize item has been set."
    :group 'custom-magic-faces)
  
! (defface custom-changed-face '((((class color))
                                (:foreground "white" :background "blue"))
                               (t
                                (:slant italic)))
--- 1646,1672 ----
    "Face used when the customize item is not defined for customization."
    :group 'custom-magic-faces)
  
! (defface custom-modified-face '(((min-colors 88) ((class color))
!                                (:foreground "white" :background "blue1"))
!                               (((class color))
                                 (:foreground "white" :background "blue"))
                                (t
                                 (:slant italic :bold)))
    "Face used when the customize item has been modified."
    :group 'custom-magic-faces)
  
! (defface custom-set-face '((((min-colors 88) (class color))
!                           (:foreground "blue1" :background "white"))
!                          (((class color))
                            (:foreground "blue" :background "white"))
                           (t
                            (:slant italic)))
    "Face used when the customize item has been set."
    :group 'custom-magic-faces)
  
! (defface custom-changed-face '((((min-colors 88) (class color))
!                               (:foreground "white" :background "blue1"))
!                              (((class color))
                                (:foreground "white" :background "blue"))
                               (t
                                (:slant italic)))
***************
*** 2148,2156 ****
    `((((class color)
        (background dark))
       (:foreground "light blue" :weight bold :height 1.2 :inherit 
variable-pitch))
      (((class color)
        (background light))
!      (:foreground "blue" :weight bold :height 1.2 :inherit variable-pitch))
      (t (:weight bold)))
    "Face used for unpushable variable tags."
    :group 'custom-faces)
--- 2154,2165 ----
    `((((class color)
        (background dark))
       (:foreground "light blue" :weight bold :height 1.2 :inherit 
variable-pitch))
+     (((min-colors 88) (class color)
+       (background light))
+      (:foreground "blue1" :weight bold :height 1.2 :inherit variable-pitch))
      (((class color)
        (background light))
!      (:foreground "blue" :weight bold :height 1.2 :inherit variable-pitch))   
 
      (t (:weight bold)))
    "Face used for unpushable variable tags."
    :group 'custom-faces)
***************
*** 3392,3397 ****
--- 3401,3409 ----
    `((((class color)
        (background dark))
       (:foreground "pink" :weight bold :height 1.2 :inherit variable-pitch))
+     (((min-colors 88) (class color)
+       (background light))
+      (:foreground "red1" :weight bold :height 1.2 :inherit variable-pitch))
      (((class color)
        (background light))
       (:foreground "red" :weight bold :height 1.2 :inherit variable-pitch))
***************
*** 3403,3408 ****
--- 3415,3423 ----
    `((((class color)
        (background dark))
       (:foreground "light blue" :weight bold :height 1.2))
+     (((min-colors 88) (class color)
+       (background light))
+      (:foreground "blue1" :weight bold :height 1.2))
      (((class color)
        (background light))
       (:foreground "blue" :weight bold :height 1.2))