diff options
| -rw-r--r-- | lisp/mouse.el | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index 71c4cf8328c..4c1908b220b 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -84,6 +84,16 @@ This must be bound to a mouse click." (interactive "e") (delete-window (posn-window (event-start click)))) +(defun mouse-tear-off-window (click) + "Delete the window clicked on, and create a new frame displaying its buffer." + (interactive "e") + (let* ((window (posn-window (event-start click))) + (buf (window-buffer window)) + (frame (new-frame))) + (select-frame frame) + (switch-to-buffer buf) + (delete-window window))) + (defun mouse-delete-other-windows () "Delete all window except the one you click on." (interactive "@") |