From 25ae394e86a5bfd05c311e4a1a5ef21804d67e2f Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 29 Jan 1996 07:27:04 +0000 Subject: [PATCH] (face-color-gray-p): Return nil if x-color-values does. --- lisp/faces.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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))))) -- 2.39.2