diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-01-29 07:27:04 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-01-29 07:27:04 +0000 |
| commit | 27de63aafd222b2c296b55fa1127335a1285974d (patch) | |
| tree | a8c1504e4b13bad740199dee9c15275da293f511 /lisp | |
| parent | c6fb3394c30bb5b1cc9e7b8ea25b46c05052fb9b (diff) | |
| download | emacs-27de63aafd222b2c296b55fa1127335a1285974d.tar.gz | |
(face-color-gray-p): Return nil if x-color-values does.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/faces.el | 3 |
1 files changed, 2 insertions, 1 deletions
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))))) |