From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/9700 Path: main.gmane.org!not-for-mail From: Rich Pieri Newsgroups: gmane.emacs.gnus.general Subject: No More Colors Date: 29 Jan 1997 12:44:32 -0500 Message-ID: NNTP-Posting-Host: coloc-standby.netfonds.no X-Trace: main.gmane.org 1035149683 19986 80.91.224.250 (20 Oct 2002 21:34:43 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 21:34:43 +0000 (UTC) Return-Path: 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 KAA29835 for ; Wed, 29 Jan 1997 10:05:09 -0800 Original-Received: from londo.asds.com (londo.prescienttech.com [199.103.216.62]) by ifi.uio.no with ESMTP (8.6.11/ifi2.4) id for ; Wed, 29 Jan 1997 18:44:37 +0100 Original-Received: from gkar.asds.com (gkar.asds.com [111.17.19.1]) by londo.asds.com (8.8.4/8.8.4) with ESMTP id MAA19559 for ; Wed, 29 Jan 1997 12:44:35 -0500 Original-Received: (from ratinox@localhost) by gkar.asds.com (8.8.4/8.8.4) id MAA21522; Wed, 29 Jan 1997 12:44:32 -0500 Original-To: ding@ifi.uio.no Original-Lines: 41 X-Mailer: Gnus v5.2.40/Emacs 19.34 Xref: main.gmane.org gmane.emacs.gnus.general:9700 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:9700 Credit for this patch goes to Kevin Christian . I only cleaned it up a bit. Thanks, Kevin. (No PGP signature this time; it messes up the leading dashes). *** custom.el.orig Sun Jan 26 06:08:25 1997 --- custom.el Wed Jan 29 12:40:48 1997 *************** *** 352,357 **** --- 352,361 ---- (apply 'custom-face-attribites-set face frame atts) (setq spec nil)))))) + (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 *************** *** 382,390 **** window-system))) (setq match (memq type options)))) ((eq req 'class) ! (let ((class (if (fboundp 'device-class) (device-class (frame-device frame)) ! (frame-property frame 'display-type)))) (setq match (memq class options)))) ((eq req 'background) (let ((background (or custom-background-mode --- 386,395 ---- window-system))) (setq match (memq type options)))) ((eq req 'class) ! (let ((class (if (eq custom-no-colors t) `mono ! (if (fboundp 'device-class) (device-class (frame-device frame)) ! (frame-property frame 'display-type))))) (setq match (memq class options)))) ((eq req 'background) (let ((background (or custom-background-mode