Mercurial > emacs
comparison lisp/mouse.el @ 16087:26b552f014ff
(mouse-select-window): Don't call unfocus-frame.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 03 Sep 1996 21:37:35 +0000 |
| parents | 2ee7579db4a9 |
| children | 14f248aae1e0 |
comparison
equal
deleted
inserted
replaced
| 16086:33519c691e63 | 16087:26b552f014ff |
|---|---|
| 128 (frame (window-frame (posn-window (event-start click))))) | 128 (frame (window-frame (posn-window (event-start click))))) |
| 129 (select-window (posn-window (event-start click))) | 129 (select-window (posn-window (event-start click))) |
| 130 (raise-frame frame) | 130 (raise-frame frame) |
| 131 (select-frame frame) | 131 (select-frame frame) |
| 132 (or (eq frame oframe) | 132 (or (eq frame oframe) |
| 133 (set-mouse-position (selected-frame) (1- (frame-width)) 0)) | 133 (set-mouse-position (selected-frame) (1- (frame-width)) 0)))) |
| 134 (unfocus-frame))) | |
| 135 | 134 |
| 136 (defun mouse-tear-off-window (click) | 135 (defun mouse-tear-off-window (click) |
| 137 "Delete the window clicked on, and create a new frame displaying its buffer." | 136 "Delete the window clicked on, and create a new frame displaying its buffer." |
| 138 (interactive "e") | 137 (interactive "e") |
| 139 (mouse-minibuffer-check click) | 138 (mouse-minibuffer-check click) |