* No More Colors
@ 1997-01-29 17:44 Rich Pieri
0 siblings, 0 replies; only message in thread
From: Rich Pieri @ 1997-01-29 17:44 UTC (permalink / raw)
Credit for this patch goes to Kevin Christian
<Kevin.Christian@symbios.com>. 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
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~1997-01-29 17:44 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
1997-01-29 17:44 No More Colors Rich Pieri
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).