From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 13 Sep 1996 18:30:41 +0000 (+0000)
Subject: (recursive_edit_1): Handle a string as the throw value.
X-Git-Tag: emacs-20.1~3763
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cb252880e55ab80a0244117c3f3b699db307f3ce;p=emacs.git

(recursive_edit_1): Handle a string as the throw value.
---

diff --git a/src/keyboard.c b/src/keyboard.c
index 19f8dbb3b57..cb9ce1f9921 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -750,6 +750,10 @@ recursive_edit_1 ()
   val = command_loop ();
   if (EQ (val, Qt))
     Fsignal (Qquit, Qnil);
+  /* Handle throw from read_minibuf when using minibuffer
+     while it's active but we're in another window.  */
+  if (STRINGP (val))
+    Fsignal (Qerror, Fcons (val, Qnil));
 
   return unbind_to (count, Qnil);
 }