From 2311a85530dd30ca4f2017c6fa266d73900e8103 Mon Sep 17 00:00:00 2001 From: YAMAMOTO Mitsuharu Date: Thu, 16 Jul 2009 08:26:20 +0000 Subject: [PATCH] (Fns_set_alpha): Remove function. (syms_of_nsfns): Don't defsubr it. --- src/nsfns.m | 27 --------------------------- 1 file changed, 27 deletions(-) diff --git a/src/nsfns.m b/src/nsfns.m index 8cd7bfbb168..dc1c71d0613 100644 --- a/src/nsfns.m +++ b/src/nsfns.m @@ -1544,32 +1544,6 @@ If VALUE is nil, the default is removed. */) } -DEFUN ("ns-set-alpha", Fns_set_alpha, Sns_set_alpha, 2, 2, 0, - doc: /* Return a color equivalent to COLOR with alpha setting ALPHA. -The argument ALPHA should be a number between 0 and 1, where 0 is full -transparency and 1 is opaque. */) - (color, alpha) - Lisp_Object color; - Lisp_Object alpha; -{ - NSColor *col; - float a; - - CHECK_STRING (color); - CHECK_NUMBER_OR_FLOAT (alpha); - - if (ns_lisp_to_color (color, &col)) - error ("Unknown color"); - - a = XFLOATINT (alpha); - if (a < 0.0 || a > 1.0) - error ("Alpha value should be between 0 and 1 inclusive"); - - col = [col colorWithAlphaComponent: a]; - return ns_color_to_lisp (col); -} - - DEFUN ("x-server-max-request-size", Fx_server_max_request_size, Sx_server_max_request_size, 0, 1, 0, @@ -2699,7 +2673,6 @@ be used as the image of the icon representing the frame. */); defsubr (&Sx_display_backing_store); defsubr (&Sx_display_save_under); defsubr (&Sx_create_frame); - defsubr (&Sns_set_alpha); defsubr (&Sx_open_connection); defsubr (&Sx_close_connection); defsubr (&Sx_display_list); -- 2.39.2