From 045826c39e41b41d4e28b7236b30528071a4831a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 10 Apr 1996 01:51:27 +0000 Subject: (read_minibuf): GCPRO ambient_dir. --- src/minibuf.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/minibuf.c b/src/minibuf.c index 24cabccee30..9a65e2c9df5 100644 --- a/src/minibuf.c +++ b/src/minibuf.c @@ -176,15 +176,17 @@ read_minibuf (map, initial, prompt, backup_n, expflag, histvar, histpos) Lisp_Object val; int count = specpdl_ptr - specpdl; Lisp_Object mini_frame, ambient_dir; - struct gcpro gcpro1, gcpro2, gcpro3; + struct gcpro gcpro1, gcpro2, gcpro3, gcpro4; single_kboard_state (); val = Qnil; + ambient_dir = current_buffer->directory; + /* Don't need to protect PROMPT, HISTVAR, and HISTPOS because we store them away before we can GC. Don't need to protect BACKUP_N because we use the value only if it is an integer. */ - GCPRO3 (map, initial, val); + GCPRO4 (map, initial, val, ambient_dir); if (!STRINGP (prompt)) prompt = build_string (""); @@ -194,8 +196,6 @@ read_minibuf (map, initial, prompt, backup_n, expflag, histvar, histpos) && (EQ (selected_window, minibuf_window))) error ("Command attempted to use minibuffer while in minibuffer"); - ambient_dir = current_buffer->directory; - /* Choose the minibuffer window and frame, and take action on them. */ choose_minibuf_frame (); -- cgit v1.2.1