diff options
| author | Richard M. Stallman | 1993-09-24 04:10:11 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-09-24 04:10:11 +0000 |
| commit | 699213bcf1094d4b2f3704c8ff27e4e1fb0c3ce3 (patch) | |
| tree | a92627395dd285c16daf3cfb16eec6bb68e9ecfc | |
| parent | 31ce77fa0adb7fe26b7176eaae5500b81066cc5a (diff) | |
| download | emacs-699213bcf1094d4b2f3704c8ff27e4e1fb0c3ce3.tar.gz emacs-699213bcf1094d4b2f3704c8ff27e4e1fb0c3ce3.zip | |
(other-frame): Warp the mouse so that the other
frame actually stays selected.
| -rw-r--r-- | lisp/frame.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/frame.el b/lisp/frame.el index f3cbdbb9284..e9d17fc1de3 100644 --- a/lisp/frame.el +++ b/lisp/frame.el | |||
| @@ -371,7 +371,9 @@ A negative ARG moves in the opposite order." | |||
| 371 | (setq frame (previous-frame frame))) | 371 | (setq frame (previous-frame frame))) |
| 372 | (setq arg (1+ arg))) | 372 | (setq arg (1+ arg))) |
| 373 | (raise-frame frame) | 373 | (raise-frame frame) |
| 374 | (select-frame frame))) | 374 | (select-frame frame) |
| 375 | (set-mouse-position (selected-frame) (frame-width) 0) | ||
| 376 | (unfocus-frame))) | ||
| 375 | 377 | ||
| 376 | ;;;; Frame configurations | 378 | ;;;; Frame configurations |
| 377 | 379 | ||