Mercurial > emacs

changeset 14969:ea072e2f75f8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(read_minibuf): GCPRO ambient_dir.
author Richard M. Stallman <rms@gnu.org>
date Wed, 10 Apr 1996 01:51:27 +0000
parents 1351c75bc3d6
children 78a622f19f7f
files src/minibuf.c
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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 ();