From: Stefan Monnier Date: Mon, 21 Jul 2014 01:38:21 +0000 (-0400) Subject: * lisp/mouse.el (tear-off-window): Rename from mouse-tear-off-window since X-Git-Tag: emacs-25.0.90~2636^3~60 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5bfcb88ced494a272045da30891cacc838276bd7;p=emacs.git * 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. --- 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)))