From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 10 Apr 1996 01:51:27 +0000 (+0000)
Subject: (read_minibuf): GCPRO ambient_dir.
X-Git-Tag: emacs-19.34~891
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=57ceaa8a70a029d0f673c63768428d19d1b946fe;p=emacs.git

(read_minibuf): GCPRO ambient_dir.
---

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 ();