From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 2 Mar 1994 22:05:40 +0000 (+0000)
Subject: (Fdelete_frame): Don't initialize a Lisp_Object.
X-Git-Tag: emacs-19.34~9695
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7a8cc3071ee4a5085c7fedb97a479da9ef9ed03d;p=emacs.git

(Fdelete_frame): Don't initialize a Lisp_Object.
Clean up line breaks.
---

diff --git a/src/frame.c b/src/frame.c
index b8d335a5095..f90d5384b0e 100644
--- a/src/frame.c
+++ b/src/frame.c
@@ -701,14 +701,13 @@ but if the second optional argument FORCE is non-nil, you may do so.")
 	   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");
 	}
     }