From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 29 Jan 1996 07:27:04 +0000 (+0000)
Subject: (face-color-gray-p): Return nil if x-color-values does.
X-Git-Tag: emacs-19.34~1451
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=25ae394e86a5bfd05c311e4a1a5ef21804d67e2f;p=emacs.git

(face-color-gray-p): Return nil if x-color-values does.
---

diff --git a/lisp/faces.el b/lisp/faces.el
index d96918cfd0b..93c4ec5ce25 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -139,7 +139,8 @@ FRAME specifies the frame and thus the display for interpreting COLOR."
 	 (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)))))