From: YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
Date: Thu, 16 Jul 2009 08:26:20 +0000 (+0000)
Subject: (Fns_set_alpha): Remove function.
X-Git-Tag: emacs-23.1~59
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2311a85530dd30ca4f2017c6fa266d73900e8103;p=emacs.git

(Fns_set_alpha): Remove function.
(syms_of_nsfns): Don't defsubr it.
---

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);