# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 949491265 0
# Node ID c34a61cbfbf6ffe757e1ab9c17fef2a38639158d
# Parent  fd817cff1000d66ca77b64ba81e871d34b484729
Don't count colors without RGB values as gray shades.

diff -r fd817cff1000 -r c34a61cbfbf6 lisp/term/tty-colors.el
--- a/lisp/term/tty-colors.el	Wed Feb 02 11:33:01 2000 +0000
+++ b/lisp/term/tty-colors.el	Wed Feb 02 11:34:25 2000 +0000
@@ -971,7 +971,8 @@
 	    r (car desc)
 	    g (cadr desc)
 	    b (car (cddr desc)))
-      (and (eq r g) (eq g b)
+      (and (numberp r)
+	   (eq r g) (eq g b)
 	   (setq count (1+ count)))
       (setq colors (cdr colors)))
     count))