mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-03 08:30:09 +00:00
Code Issues Releases Activity

(Fns_set_alpha): Remove function.

Browse Source 
(syms_of_nsfns): Don't defsubr it.
This commit is contained in:
YAMAMOTO Mitsuharu 2009-07-16 08:23:54 +00:00
parent 6ad032d24d
commit 68d0f8a54c
1 changed files with 0 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
src/nsfns.m
View File

@ -1545,32 +1545,6 @@ Turn the input menu (an NSMenu) into a lisp list for tracking on lisp side
}
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 @@ - (NSString *)panel: (id)sender userEnteredFilename: (NSString *)filename
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);