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