mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

* lisp/mouse.el (tear-off-window): Rename from mouse-tear-off-window since

Browse Source 
it also makes sense to bind it to a non-mouse event.
This commit is contained in:
Stefan Monnier 2014-07-20 21:38:21 -04:00
parent 4ce2720e1c
commit 5bfcb88ced
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -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>

7
lisp/mouse.el
View File

@ -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)))