diff src/xfns.c @ 6519:22c56514eeb3

(x_set_frame_parameters, x_get_arg, x_window, Fx_create_frame, Fx_create_frame): Use assignment, not initialization.
author Karl Heuer <kwzh@gnu.org>
date Fri, 25 Mar 1994 00:41:56 +0000
parents 0d4be1fbfb4d
children eecaa7b19b6c
line wrap: on
line diff
--- a/src/xfns.c	Fri Mar 25 00:41:29 1994 +0000
+++ b/src/xfns.c	Fri Mar 25 00:41:56 1994 +0000
@@ -460,9 +460,10 @@
 	left = val;
       else
 	{
-	  register Lisp_Object param_index = Fget (prop, Qx_frame_parameter);
-	  register Lisp_Object old_value = get_frame_param (f, prop);
-
+	  register Lisp_Object param_index, old_value;
+
+	  param_index = Fget (prop, Qx_frame_parameter);
+	  old_value = get_frame_param (f, prop);
 	  store_frame_param (f, prop, val);
 	  if (XTYPE (param_index) == Lisp_Int
 	      && XINT (param_index) >= 0
@@ -1432,7 +1433,8 @@
 	      /* As a special case, we map the values `true' and `on'
 		 to Qt, and `false' and `off' to Qnil.  */
 	      {
-		Lisp_Object lower = Fdowncase (tem);
+		Lisp_Object lower;
+		lower = Fdowncase (tem);
 		if (!strcmp (XSTRING (tem)->data, "on")
 		    || !strcmp (XSTRING (tem)->data, "true"))
 		  return Qt;
@@ -1833,11 +1835,12 @@
      place where that assumption isn't correct; f->name is set, but
      the X server hasn't been told.  */
   {
-    Lisp_Object name = f->name;
+    Lisp_Object name;
     int explicit = f->explicit_name;
 
+    f->explicit_name = 0;
+    name = f->name;
     f->name = Qnil;
-    f->explicit_name = 0;
     x_set_name (f, name, explicit);
   }
 
@@ -2144,8 +2147,9 @@
   /* Make the window appear on the frame and enable display,
      unless the caller says not to.  */
   {
-    Lisp_Object visibility = x_get_arg (parms, Qvisibility, 0, 0, symbol);
-
+    Lisp_Object visibility;
+
+    visibility = x_get_arg (parms, Qvisibility, 0, 0, symbol);
     if (EQ (visibility, Qunbound))
       visibility = Qt;
 
@@ -2384,8 +2388,9 @@
 
   /* Make the window appear on the frame and enable display.  */
   {
-    Lisp_Object visibility = x_get_arg (parms, Qvisibility, 0, 0, symbol);
-
+    Lisp_Object visibility;
+
+    visibility = x_get_arg (parms, Qvisibility, 0, 0, symbol);
     if (EQ (visibility, Qunbound))
       visibility = Qt;