(read_minibuf): GCPRO ambient_dir.

diff --git a/src/minibuf.c b/src/minibuf.c
index 24cabccee3018b4d16ec22ef5b7675f1ef07b54e..9a65e2c9df54f6559e6757e5e62eadd301495991 100644 (file)
--- 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 ();