Mercurial > emacs
changeset 103929:901ce8956103
(Fns_set_alpha): Remove function.
(syms_of_nsfns): Don't defsubr it.
| author | YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> |
|---|---|
| date | Thu, 16 Jul 2009 08:23:54 +0000 |
| parents | fa669d6474cc |
| children | acbdb25bae13 |
| files | src/nsfns.m |
| diffstat | 1 files changed, 0 insertions(+), 27 deletions(-) [+] |
line wrap: on
line diff
--- a/src/nsfns.m Thu Jul 16 03:30:31 2009 +0000 +++ b/src/nsfns.m Thu Jul 16 08:23:54 2009 +0000 @@ -1545,32 +1545,6 @@ } -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, @@ -2700,7 +2674,6 @@ 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);