diff options
Diffstat (limited to 'src/xfns.c')
| -rw-r--r-- | src/xfns.c | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/src/xfns.c b/src/xfns.c index 3cadc8504f4..d5b8a01cf20 100644 --- a/src/xfns.c +++ b/src/xfns.c | |||
| @@ -3495,14 +3495,9 @@ DEFUN ("xw-color-values", Fxw_color_values, Sxw_color_values, 1, 2, 0, | |||
| 3495 | CHECK_STRING (color); | 3495 | CHECK_STRING (color); |
| 3496 | 3496 | ||
| 3497 | if (x_defined_color (f, SDATA (color), &foo, 0)) | 3497 | if (x_defined_color (f, SDATA (color), &foo, 0)) |
| 3498 | { | 3498 | return list3 (make_number (foo.red), |
| 3499 | Lisp_Object rgb[3]; | 3499 | make_number (foo.green), |
| 3500 | 3500 | make_number (foo.blue)); | |
| 3501 | rgb[0] = make_number (foo.red); | ||
| 3502 | rgb[1] = make_number (foo.green); | ||
| 3503 | rgb[2] = make_number (foo.blue); | ||
| 3504 | return Flist (3, rgb); | ||
| 3505 | } | ||
| 3506 | else | 3501 | else |
| 3507 | return Qnil; | 3502 | return Qnil; |
| 3508 | } | 3503 | } |