# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 983791791 0
# Node ID c98e0f6d63f266849b4ac6ee83ee53481b62c7af
# Parent  1d22074553531721b944deda63c140ca4ae46e5d
(read_minibuf): Clean up the binding stack if
called noninteractively.

diff -r 1d2207455353 -r c98e0f6d63f2 src/minibuf.c
--- a/src/minibuf.c	Mon Mar 05 11:28:47 2001 +0000
+++ b/src/minibuf.c	Mon Mar 05 11:29:51 2001 +0000
@@ -397,9 +397,12 @@
     }
 
   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.  */