From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/10167
Path: main.gmane.org!not-for-mail
From: Stainless Steel Rat <ratinox@peorth.gweep.net>
Newsgroups: gmane.emacs.gnus.general
Subject: Re: horrid color choices in 5.4.25
Date: 10 Mar 1997 18:39:39 -0500
Organization: The Happy Fun Ball Brigade
Message-ID: <wk7mjf1flv.fsf@peorth.gweep.net>
References: <vxk3eu3eqkb.fsf@pocari-sweat.jprc.com>
NNTP-Posting-Host: coloc-standby.netfonds.no
X-Trace: main.gmane.org 1035150080 22756 80.91.224.250 (20 Oct 2002 21:41:20 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Sun, 20 Oct 2002 21:41:20 +0000 (UTC)
Return-Path: <ding-request@ifi.uio.no>
Original-Received: from ifi.uio.no (0@ifi.uio.no [129.240.64.2])
	by deanna.miranova.com (8.8.5/8.8.5) with SMTP id QAA31637
	for <steve@miranova.com>; Mon, 10 Mar 1997 16:04:31 -0800
Original-Received: from londo.prescienttech.com (londo.prescienttech.com [199.103.216.62]) by ifi.uio.no with ESMTP (8.6.11/ifi2.4) 
	id <AAA16295@ifi.uio.no> for <ding@ifi.uio.no> ; Tue, 11 Mar 1997 00:49:57 +0100
Original-Received: from gkar.asds.com (gkar.asds.com [111.17.19.1])
          by londo.prescienttech.com (8.8.4/8.8.4) with ESMTP
	  id SAA16425 for <ding@ifi.uio.no>; Mon, 10 Mar 1997 18:49:55 -0500
Original-Received: from peorth.gweep.net (peorth.asds.com [111.17.16.8])
          by gkar.asds.com (8.8.4/8.8.4) with SMTP
	  id SAA31119 for <ding@ifi.uio.no>; Mon, 10 Mar 1997 18:49:47 -0500
Original-To: "(ding)" <ding@ifi.uio.no>
X-Attribution: Rat
In-Reply-To: Karl Kleinpaste's message of 10 Mar 1997 10:04:36 -0500
Original-Lines: 56
X-Mailer: Gnus v5.4.25/Emacs 19.34
Xref: main.gmane.org gmane.emacs.gnus.general:10167
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:10167

-----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)