[Emacs-diffs] trunk r117556: * lisp/mouse.el (tear-off-window): Rename from mouse-tear-off-window since

[Stefan Monnier]

------------------------------------------------------------
revno: 117556
revision-id: address@hidden
parent: address@hidden
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Sun 2014-07-20 21:38:21 -0400
message:
  * 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.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/mouse.el                  mouse.el-20091113204419-o5vbwnq5f7feedwu-123

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-07-21 01:25:59 +0000
+++ b/lisp/ChangeLog    2014-07-21 01:38:21 +0000
@@ -1,5 +1,8 @@
 2014-07-21  Stefan Monnier  <address@hidden>
 
+       * 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  <address@hidden>

=== modified file 'lisp/mouse.el'
--- a/lisp/mouse.el     2014-07-03 06:00:53 +0000
+++ b/lisp/mouse.el     2014-07-21 01:38:21 +0000
@@ -313,13 +313,14 @@
     (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)))