diff options
| author | Richard M. Stallman | 1996-01-29 07:27:04 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-01-29 07:27:04 +0000 |
| commit | 25ae394e86a5bfd05c311e4a1a5ef21804d67e2f (patch) | |
| tree | 43d42887b44f139f992b565ed4cde64ce49eb5bd | |
| parent | 68dff3ca9ce655658060e3b2da2936c67effb79d (diff) | |
| download | emacs-25ae394e86a5bfd05c311e4a1a5ef21804d67e2f.tar.gz emacs-25ae394e86a5bfd05c311e4a1a5ef21804d67e2f.zip | |
(face-color-gray-p): Return nil if x-color-values does.
| -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." | |||
| 139 | (r (nth 0 values)) | 139 | (r (nth 0 values)) |
| 140 | (g (nth 1 values)) | 140 | (g (nth 1 values)) |
| 141 | (b (nth 2 values))) | 141 | (b (nth 2 values))) |
| 142 | (and (< (abs (- r g)) (/ (max 1 (abs r) (abs g)) 20)) | 142 | (and values |
| 143 | (< (abs (- r g)) (/ (max 1 (abs r) (abs g)) 20)) | ||
| 143 | (< (abs (- g b)) (/ (max 1 (abs g) (abs b)) 20)) | 144 | (< (abs (- g b)) (/ (max 1 (abs g) (abs b)) 20)) |
| 144 | (< (abs (- b r)) (/ (max 1 (abs b) (abs r)) 20))))) | 145 | (< (abs (- b r)) (/ (max 1 (abs b) (abs r)) 20))))) |
| 145 | 146 | ||