Mercurial > emacs
changeset 15735:14de14552296
Don't test X colors unless using X.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Sat, 20 Jul 1996 06:08:32 +0000 |
| parents | 98d8e063fdae |
| children | 73a325c414a5 |
| files | lisp/gnus-cus.el |
| diffstat | 1 files changed, 5 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus-cus.el Sat Jul 20 04:44:09 1996 +0000 +++ b/lisp/gnus-cus.el Sat Jul 20 06:08:32 1996 +0000 @@ -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 @@ ((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))