From 996e3c6c7b5f17dd2f3b602e157dc0d09df4b22b Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Sat, 20 Jul 1996 06:08:32 +0000 Subject: [PATCH] Don't test X colors unless using X. --- lisp/gnus-cus.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) 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)) -- 2.39.5