* 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 518e5ba1a6d2c3898eeafa025b1680410d663400..f2366feff6b9a8fd502b8505832118e6a2a244a1 100644 (file)
--- 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 d3bcf02f2178e0cd5fd3a5987a8575dcb4d6f4e6..2606c8b4ca44d9e7acf6dd633b00cb1734583083 100644 (file)
--- 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)))