diff options
| -rw-r--r-- | src/callint.c | 8 |
1 files changed, 7 insertions, 1 deletions
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; |