From b0f3a26ba8cbd17b38b459fa8cd5ca5ef587d29c Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Sat, 17 Oct 1992 21:57:45 +0000 Subject: [PATCH] * mouse.el (mouse-tear-off-window): New function. --- lisp/mouse.el | 10 ++++++++++ 1 file changed, 10 insertions(+) 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 "@")