* lisp/mouse.el (tear-off-window): Fix non-mouse use (bug#32799)

diff --git a/lisp/mouse.el b/lisp/mouse.el
index f749d12054b36675b1cbffcf1ded8c4e3c56fa29..d14b5cbea4d2cc444c9d782c2920037dcf3feae5 100644 (file)
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -326,7 +326,7 @@ This command must be bound to a mouse click."
 (define-obsolete-function-alias 'mouse-tear-off-window 'tear-off-window "24.4")
 (defun tear-off-window (click)
   "Delete the selected window, and create a new frame displaying its buffer."
-  (interactive "e")
+  (interactive (list last-nonmenu-event))
   (mouse-minibuffer-check click)
   (let* ((window (posn-window (event-start click)))
         (buf (window-buffer window))