From 5bfcb88ced494a272045da30891cacc838276bd7 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sun, 20 Jul 2014 21:38:21 -0400 Subject: [PATCH] * lisp/mouse.el (tear-off-window): Rename from mouse-tear-off-window since it also makes sense to bind it to a non-mouse event. --- lisp/ChangeLog | 3 +++ lisp/mouse.el | 7 ++++--- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 518e5ba1a6d..f2366feff6b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2014-07-21 Stefan Monnier + * mouse.el (tear-off-window): Rename from mouse-tear-off-window since + it also makes sense to bind it to a non-mouse event. + * vc/vc-bzr.el (vc-bzr-shelve): Make it operate on fileset. 2014-07-19 Stefan Monnier diff --git a/lisp/mouse.el b/lisp/mouse.el index d3bcf02f217..2606c8b4ca4 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -313,13 +313,14 @@ This command must be bound to a mouse click." (or (eq frame oframe) (set-mouse-position (selected-frame) (1- (frame-width)) 0)))) -(defun mouse-tear-off-window (click) - "Delete the window clicked on, and create a new frame displaying its buffer." +(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") (mouse-minibuffer-check click) (let* ((window (posn-window (event-start click))) (buf (window-buffer window)) - (frame (make-frame))) + (frame (make-frame))) ;FIXME: Use pop-to-buffer. (select-frame frame) (switch-to-buffer buf) (delete-window window))) -- 2.39.2