changeset 6500:551bff5cffde

(next_frame, prev_frame, other_visible_frames, Fdelete_frame): Use assignment, not initialization.
author Karl Heuer <kwzh@gnu.org>
date Wed, 23 Mar 1994 22:29:45 +0000
parents e0bef61003ae
children d7ac9a417f87
files src/frame.c
diffstat 1 files changed, 10 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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);