# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 764461785 0
# Node ID 551bff5cffdeaaf687512b06df0479ea25cd6a9a
# Parent  e0bef61003ae1c80ce5024132b53bac133a1c24f
(next_frame, prev_frame, other_visible_frames, Fdelete_frame): Use assignment,
not initialization.

diff -r e0bef61003ae -r 551bff5cffde src/frame.c
--- a/src/frame.c	Wed Mar 23 22:29:02 1994 +0000
+++ b/src/frame.c	Wed Mar 23 22:29:45 1994 +0000
@@ -527,8 +527,9 @@
   while (1)
     for (tail = Vframe_list; CONSP (tail); tail = XCONS (tail)->cdr)
       {
-	Lisp_Object f = XCONS (tail)->car;
+	Lisp_Object f;
 
+	f = XCONS (tail)->car;
 	if (passed)
 	  {
 	    /* Decide whether this frame is eligible to be returned.  */
@@ -586,8 +587,9 @@
   prev = Qnil;
   for (tail = Vframe_list; CONSP (tail); tail = XCONS (tail)->cdr)
     {
-      Lisp_Object f = XCONS (tail)->car;
+      Lisp_Object f;
 
+      f = XCONS (tail)->car;
       if (XTYPE (f) != Lisp_Frame)
 	abort ();
 
@@ -692,8 +694,9 @@
 	   CONSP (frames);
 	   frames = XCONS (frames)->cdr)
 	{
-	  Lisp_Object this = XCONS (frames)->car;
+	  Lisp_Object this;
 
+	  this = XCONS (frames)->car;
 	  /* Verify that the frame's window still exists
 	     and we can still talk to it.  And note any recent change
 	     in visibility.  */
@@ -829,14 +832,16 @@
       Lisp_Object frames;
 
       /* The last frame we saw with a minibuffer, minibuffer-only or not.  */
-      Lisp_Object frame_with_minibuf = Qnil;
+      Lisp_Object frame_with_minibuf;
 
+      frame_with_minibuf = Qnil;
       for (frames = Vframe_list;
 	   CONSP (frames);
 	   frames = XCONS (frames)->cdr)
 	{
-	  Lisp_Object this = XCONS (frames)->car;
+	  Lisp_Object this;
 
+	  this = XCONS (frames)->car;
 	  if (XTYPE (this) != Lisp_Frame)
 	    abort ();
 	  f = XFRAME (this);