diff options
| -rw-r--r-- | src/callint.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/callint.c b/src/callint.c index a489a8243d6..340ab5a617a 100644 --- a/src/callint.c +++ b/src/callint.c @@ -329,9 +329,9 @@ Otherwise, this is done only if an arg is read using the minibuffer.") && XTYPE (event = XCONS (event)->car) == Lisp_Cons && XTYPE (event = XCONS (event)->car) == Lisp_Window) { - if (MINI_WINDOW_P (XWINDOW (window)) + if (MINI_WINDOW_P (XWINDOW (event)) && NILP (call1 (intern ("minibuffer-window-active-p"), - window))) + event))) error ("Attempt to select inactive minibuffer window"); Fselect_window (event); } |