From d1fa2e8a7adc18d129b5d80f8b83d1ebe431a054 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Wed, 9 Mar 1994 06:07:43 +0000 Subject: [PATCH] (Fcall_interactively): Don't select an active minibuffer. --- src/callint.c | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) 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; -- 2.39.5