From: Karl Heuer <kwzh@gnu.org>
Date: Sat, 20 Jul 1996 06:08:32 +0000 (+0000)
Subject: Don't test X colors unless using X.
X-Git-Tag: emacs-19.34~127
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=996e3c6c7b5f17dd2f3b602e157dc0d09df4b22b;p=emacs.git

Don't test X colors unless using X.
---

diff --git a/lisp/gnus-cus.el b/lisp/gnus-cus.el
index ee78453cd8d..a83d578bec1 100644
--- a/lisp/gnus-cus.el
+++ b/lisp/gnus-cus.el
@@ -45,7 +45,9 @@
 (defvar gnus-face-dark-name-list
   (list
    ;; Not all servers have dark blue in rgb.txt.
-   (if (x-color-defined-p "dark blue") "dark blue" "royal blue")
+   (if (and (eq window-system 'x) (x-color-defined-p "dark blue"))
+       "dark blue"
+     "royal blue")
    "firebrick" "dark green" "OrangeRed" 
    "dark khaki" "dark violet" "SteelBlue4"))
 ; CornflowerBlue SeaGreen OrangeRed SteelBlue4 DeepPink3
@@ -640,7 +642,8 @@ ticked: The number of ticked articles.")
 	       ((and mailp (eq level 3)) .
 		,(custom-face-lookup
 		  ;; Not all servers have dark magenta in rgb.txt.
-		  (if (x-color-defined-p "dark magenta")
+		  (if (and (eq window-system 'x)
+			   (x-color-defined-p "dark magenta"))
 		      "dark magenta"
 		    "maroon")
 		  nil nil t))