From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 28 Jun 1996 19:12:31 +0000 (+0000)
Subject: (make_frame_without_minibuffer): GCPRO the frame f.
X-Git-Tag: emacs-19.34~307
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=363b873b9b8db400c05dbc2b743e59638bc00656;p=emacs.git

(make_frame_without_minibuffer): GCPRO the frame f.
---

diff --git a/src/frame.c b/src/frame.c
index 4256a9187c9..48bd2453167 100644
--- a/src/frame.c
+++ b/src/frame.c
@@ -383,6 +383,7 @@ make_frame_without_minibuffer (mini_window, kb, display)
      Lisp_Object display;
 {
   register struct frame *f;
+  struct gcpro gcpro1;
 
   if (!NILP (mini_window))
     CHECK_LIVE_WINDOW (mini_window, 0);
@@ -402,10 +403,16 @@ make_frame_without_minibuffer (mini_window, kb, display)
       if (!FRAMEP (kb->Vdefault_minibuffer_frame)
 	  || ! FRAME_LIVE_P (XFRAME (kb->Vdefault_minibuffer_frame)))
 	{
+          Lisp_Object frame_dummy;
+
+          XSETFRAME (frame_dummy, f);
+          GCPRO1 (frame_dummy);
 	  /* If there's no minibuffer frame to use, create one.  */
-	  kb->Vdefault_minibuffer_frame
-	    = call1 (intern ("make-initial-minibuffer-frame"), display);
+	  kb->Vdefault_minibuffer_frame =
+	    call1 (intern ("make-initial-minibuffer-frame"), display);
+          UNGCPRO;
 	}
+   
       mini_window = XFRAME (kb->Vdefault_minibuffer_frame)->minibuffer_window;
     }