# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 829101087 0
# Node ID ea072e2f75f84cd765e1f53549a8ff95ec3fbe86
# Parent  1351c75bc3d6995056c81385f4183b7d1f5c5ace
(read_minibuf): GCPRO ambient_dir.

diff -r 1351c75bc3d6 -r ea072e2f75f8 src/minibuf.c
--- a/src/minibuf.c	Wed Apr 10 01:00:12 1996 +0000
+++ b/src/minibuf.c	Wed Apr 10 01:51:27 1996 +0000
@@ -176,15 +176,17 @@
   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 @@
       && (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 ();