# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1226505132 0
# Node ID c4253d0af9b09aa1203cdc259df0b50bc810e3c7
# Parent  a6f3b375799ad24e42f05c9c530ffe701a0f9c41
(x_set_alpha): Set alpha to -1 if nil given.

diff -r a6f3b375799a -r c4253d0af9b0 src/frame.c
--- a/src/frame.c	Wed Nov 12 15:51:35 2008 +0000
+++ b/src/frame.c	Wed Nov 12 15:52:12 2008 +0000
@@ -3654,25 +3654,24 @@
       else
         item = arg;
 
-      if (! NILP (item))
-        {
-          if (FLOATP (item))
-            {
-              alpha = XFLOAT_DATA (item);
-              if (alpha < 0.0 || 1.0 < alpha)
-                args_out_of_range (make_float (0.0), make_float (1.0));
-            }
-          else if (INTEGERP (item))
-            {
-              ialpha = XINT (item);
-              if (ialpha < 0 || 100 < ialpha)
-                args_out_of_range (make_number (0), make_number (100));
-              else
-                alpha = ialpha / 100.0;
-            }
-          else
-            wrong_type_argument (Qnumberp, item);
-        }
+      if (NILP (item))
+	alpha = - 1.0;
+      else if (FLOATP (item))
+	{
+	  alpha = XFLOAT_DATA (item);
+	  if (alpha < 0.0 || 1.0 < alpha)
+	    args_out_of_range (make_float (0.0), make_float (1.0));
+	}
+      else if (INTEGERP (item))
+	{
+	  ialpha = XINT (item);
+	  if (ialpha < 0 || 100 < ialpha)
+	    args_out_of_range (make_number (0), make_number (100));
+	  else
+	    alpha = ialpha / 100.0;
+	}
+      else
+	wrong_type_argument (Qnumberp, item);
       newval[i] = alpha;
     }