# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 835989151 0
# Node ID 5ceed3aa6a1c4983a0d3570c2380a176fcb1bc67
# Parent  103a6af424a81f525ebf71148d6f1a86cef34c08
(make_frame_without_minibuffer): GCPRO the frame f.

diff -r 103a6af424a8 -r 5ceed3aa6a1c src/frame.c
--- a/src/frame.c	Fri Jun 28 18:55:04 1996 +0000
+++ b/src/frame.c	Fri Jun 28 19:12:31 1996 +0000
@@ -383,6 +383,7 @@
      Lisp_Object display;
 {
   register struct frame *f;
+  struct gcpro gcpro1;
 
   if (!NILP (mini_window))
     CHECK_LIVE_WINDOW (mini_window, 0);
@@ -402,10 +403,16 @@
       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;
     }