# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 763193263 0
# Node ID 853b88dd99456bcd758f1bc0c9233fa0f7c3fcc8
# Parent  8bd31035cf90f803632410d78c9dec0cdba34bd3
(Fcall_interactively): Don't select an active minibuffer.

diff -r 8bd31035cf90 -r 853b88dd9945 src/callint.c
--- a/src/callint.c	Wed Mar 09 06:02:56 1994 +0000
+++ b/src/callint.c	Wed Mar 09 06:07:43 1994 +0000
@@ -328,7 +328,13 @@
 	      && 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;