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

This commit is contained in:
Stefan Monnier 2018-09-22 19:16:55 -04:00
parent 8b8a4c0aeb
commit a3639317bc

View file

@ -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))