# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 762645940 0
# Node ID 9422e430f06713b07700c8bb858d4b889920d83c
# Parent  3aafcde7e7c48d1bb0f098e8ca5da85a027e26ec
(Fdelete_frame): Don't initialize a Lisp_Object.
Clean up line breaks.

diff -r 3aafcde7e7c4 -r 9422e430f067 src/frame.c
--- a/src/frame.c	Wed Mar 02 22:03:44 1994 +0000
+++ b/src/frame.c	Wed Mar 02 22:05:40 1994 +0000
@@ -701,14 +701,13 @@
 	   CONSP (frames);
 	   frames = XCONS (frames)->cdr)
 	{
-	  Lisp_Object this = XCONS (frames)->car;
+	  Lisp_Object this;
+	  this = XCONS (frames)->car;
 
 	  if (! EQ (this, frame)
 	      && EQ (frame,
-		     (WINDOW_FRAME
-		      (XWINDOW
-		       (FRAME_MINIBUF_WINDOW
-			(XFRAME (this)))))))
+		     WINDOW_FRAME (XWINDOW
+				   (FRAME_MINIBUF_WINDOW (XFRAME (this))))))
 	    error ("Attempt to delete a surrogate minibuffer frame");
 	}
     }