Mercurial > emacs
changeset 14409:11a297676bda
(face-color-gray-p): Return nil if x-color-values does.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 29 Jan 1996 07:27:04 +0000 |
| parents | 9defc34879ad |
| children | 1ae071abac0f |
| files | lisp/faces.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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)))))