From 363b873b9b8db400c05dbc2b743e59638bc00656 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 28 Jun 1996 19:12:31 +0000 Subject: [PATCH] (make_frame_without_minibuffer): GCPRO the frame f. --- src/frame.c | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) 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; } -- 2.39.2