mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-06 11:55:48 +00:00
Code Issues Releases Activity

Fix color-distance docstring

Browse Source 
Also feed the translated color to the metric argument.
* src/xfaces.c (color-distance): Reword docstring to be more helpful.
Avoid duplicating effort in lcms2 by passing the translated 16 bit RGB
instead of the function's color arguments.
This commit is contained in:
Mark Oteiza 2017-09-15 13:27:39 -04:00
parent 7911ebc610
commit 6e38b9253e
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/xfaces.c
View File

@ -4093,7 +4093,8 @@ DEFUN ("color-distance", Fcolor_distance, Scolor_distance, 2, 4, 0,
COLOR1 and COLOR2 may be either strings containing the color name,
or lists of the form (RED GREEN BLUE), each in the range 0 to 65535 inclusive.
If FRAME is unspecified or nil, the current frame is used.
If METRIC is unspecified or nil, a modified L*u*v* metric is used. */)
If METRIC is specified, it should be a function that accepts
two lists of the form (RED GREEN BLUE) aforementioned. */)
(Lisp_Object color1, Lisp_Object color2, Lisp_Object frame,
Lisp_Object metric)
{
@ -4112,7 +4113,13 @@ If METRIC is unspecified or nil, a modified L*u*v* metric is used. */)
if (NILP (metric))
return make_number (color_distance (&cdef1, &cdef2));
else
return call2 (metric, color1, color2);
return call2 (metric,
list3 (make_number (cdef1.red),
make_number (cdef1.green),
make_number (cdef1.blue)),
list3 (make_number (cdef2.red),
make_number (cdef2.green),
make_number (cdef2.blue)));
}