From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 9 Mar 1994 06:07:43 +0000 (+0000)
Subject: (Fcall_interactively): Don't select an active minibuffer.
X-Git-Tag: emacs-19.34~9582
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d1fa2e8a7adc18d129b5d80f8b83d1ebe431a054;p=emacs.git

(Fcall_interactively): Don't select an active minibuffer.
---

diff --git a/src/callint.c b/src/callint.c
index fa3ab422f28..a489a8243d6 100644
--- a/src/callint.c
+++ b/src/callint.c
@@ -328,7 +328,13 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
 	      && XTYPE (event = XCONS (event)->cdr) == Lisp_Cons
 	      && XTYPE (event = XCONS (event)->car) == Lisp_Cons
 	      && XTYPE (event = XCONS (event)->car) == Lisp_Window)
-	    Fselect_window (event);
+	    {
+	      if (MINI_WINDOW_P (XWINDOW (window))
+		  && NILP (call1 (intern ("minibuffer-window-active-p"),
+				  window)))
+		error ("Attempt to select inactive minibuffer window");
+	      Fselect_window (event);
+	    }
 	  string++;
 	}
       else break;