* 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.

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  <monnier@iro.umontreal.ca>
 
+        * 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  <monnier@iro.umontreal.ca>
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)))