(read_minibuf): Clean up the binding stack if

called noninteractively.

diff --git a/src/ChangeLog b/src/ChangeLog
index 70d32d7126d1a928fcbdb9867feb691689706fa5..84017d4a4220cf4b3ceaa8bfff1756ed2bf96734 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2001-03-05  Gerd Moellmann  <gerd@gnu.org>
+
+       * minibuf.c (read_minibuf): Clean up the binding stack if
+       called noninteractively.
+
 2001-03-05  Kenichi Handa  <handa@etl.go.jp>
 
        * coding.c (syms_of_coding): Docstring modified.

diff --git a/src/minibuf.c b/src/minibuf.c
index a5e8bf8369e45c996d60f6f19d68334bcac57aed..173028665208d7e8f15487d8d1e1ff8fecea0d26 100644 (file)
--- a/src/minibuf.c
+++ b/src/minibuf.c
@@ -397,9 +397,12 @@ read_minibuf (map, initial, prompt, backup_n, expflag,
     }
 
   if (noninteractive)
-    return read_minibuf_noninteractive (map, initial, prompt, backup_n,
-                                       expflag, histvar, histpos, defalt,
-                                       allow_props, inherit_input_method);
+    {
+      val = read_minibuf_noninteractive (map, initial, prompt, backup_n,
+                                        expflag, histvar, histpos, defalt,
+                                        allow_props, inherit_input_method);
+      return unbind_to (count, val);
+    }
 
   /* Choose the minibuffer window and frame, and take action on them.  */