mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-29 11:02:01 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 1996-01-29 07:27:04 +00:00
parent 68dff3ca9c
commit 25ae394e86
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/faces.el
View File

@ -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)))))