Mercurial > emacs
changeset 15555:5ceed3aa6a1c
(make_frame_without_minibuffer): GCPRO the frame f.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 28 Jun 1996 19:12:31 +0000 |
| parents | 103a6af424a8 |
| children | bb72fd0a69b7 |
| files | src/frame.c |
| diffstat | 1 files changed, 9 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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; }