# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 822900424 0
# Node ID 11a297676bda865e24a685472b09f063d2d6f5a4
# Parent  9defc34879adc19196a574351a0d54289835f5cd
(face-color-gray-p): Return nil if x-color-values does.

diff -r 9defc34879ad -r 11a297676bda lisp/faces.el
--- a/lisp/faces.el	Mon Jan 29 05:26:21 1996 +0000
+++ b/lisp/faces.el	Mon Jan 29 07:27:04 1996 +0000
@@ -139,7 +139,8 @@
 	 (r (nth 0 values))
 	 (g (nth 1 values))
 	 (b (nth 2 values)))
-    (and (< (abs (- r g)) (/ (max 1 (abs r) (abs g)) 20))
+    (and values
+	 (< (abs (- r g)) (/ (max 1 (abs r) (abs g)) 20))
 	 (< (abs (- g b)) (/ (max 1 (abs g) (abs b)) 20))
 	 (< (abs (- b r)) (/ (max 1 (abs b) (abs r)) 20)))))