diff options
author | Richard M. Stallman <rms@gnu.org> | 1996-04-10 01:51:27 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1996-04-10 01:51:27 +0000 |
commit | 045826c39e41b41d4e28b7236b30528071a4831a (patch) | |
tree | ea40cccd8ca3b80782ece50fb7d0594825bc8a3d | |
parent | 7e8e53da8ccc5cd5bb47b6df823f4e2b7f976d93 (diff) | |
download | emacs-045826c39e41b41d4e28b7236b30528071a4831a.tar.gz |
(read_minibuf): GCPRO ambient_dir.
-rw-r--r-- | src/minibuf.c | 8 |
1 files 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 (); |