Re: horrid color choices in 5.4.25

[Stainless Steel Rat <ratinox@peorth.gweep.net>]

-----BEGIN PGP SIGNED MESSAGE-----

>>>>> "KK" == Karl Kleinpaste <karl@jprc.com> writes:

KK> I upgraded 5.4.15 -> 5.4.25 this morning.  I use a black-on-white
KK> emacs, and the new color selections are _dreadful_.

Here's my patch to cus-face.el to allow the total elimination of colors
without messing with fontification.

-----BEGIN PGP SIGNATURE-----
Version: 2.6.3
Charset: cp850

iQCVAwUBMySbqZ6VRH7BJMxHAQEu9QQAmV6KZJIbvkOedCmFtzFrZaoh4htoObbp
+fY20gVgYUgpLorKPuqhMlvxsWqYGgM/Pr7pZrQBeqt9Qua6BDdSnhGTzjJYvvjv
grb7No78A6yThwMkWmoUzf/Wv9DkNU7tkUaRSNNN8coXG1cYCwKDNJWmqUxidHSs
2ry6eaSR/fA=
=vo79
-----END PGP SIGNATURE-----
-- 
Rat <ratinox@peorth.gweep.net>    \ Do not taunt Happy Fun Ball.
PGP Key: at a key server near you! \ 
                                    \ 
*** cus-face.el.orig	Sat Mar  8 20:26:54 1997
--- cus-face.el	Sun Mar  9 11:15:34 1997
***************
*** 139,144 ****
--- 139,148 ----
        (set-face-foreground face bg frame)
        (set-face-background face fg frame))))
  
+ (defcustom custom-no-colors nil
+   "Do not use colors.
+ If t, do not use any colors.")
+ 
  (defcustom custom-background-mode nil
    "The brightness of the background.
  Set this to the symbol dark if your background color is dark, light if
***************
*** 379,385 ****
        t
      (let* ((props (custom-get-frame-properties frame))
  	   (type (plist-get props 'type))
! 	   (class (plist-get props 'class))
  	   (background (plist-get props 'background))
  	   (match t)
  	   (entries display)
--- 383,389 ----
        t
      (let* ((props (custom-get-frame-properties frame))
  	   (type (plist-get props 'type))
! 	   (class (if custom-no-colors `mono (plist-get props 'class)))
  	   (background (plist-get props 'background))
  	   (match t)
  	   (entries display)