]> git.eshelyaron.com Git - emacs.git/commitdiff
(read_minibuf): Clean up the binding stack if
authorGerd Moellmann <gerd@gnu.org>
Mon, 5 Mar 2001 11:30:18 +0000 (11:30 +0000)
committerGerd Moellmann <gerd@gnu.org>
Mon, 5 Mar 2001 11:30:18 +0000 (11:30 +0000)
called noninteractively.

src/ChangeLog
src/minibuf.c

index 70d32d7126d1a928fcbdb9867feb691689706fa5..84017d4a4220cf4b3ceaa8bfff1756ed2bf96734 100644 (file)
@@ -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.
index a5e8bf8369e45c996d60f6f19d68334bcac57aed..173028665208d7e8f15487d8d1e1ff8fecea0d26 100644 (file)
@@ -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.  */