From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 24 Sep 1993 04:10:11 +0000 (+0000)
Subject: (other-frame): Warp the mouse so that the other
X-Git-Tag: emacs-19.34~11067
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=699213bcf1094d4b2f3704c8ff27e4e1fb0c3ce3;p=emacs.git

(other-frame): Warp the mouse so that the other
frame actually stays selected.
---

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."
 	(setq frame (previous-frame frame)))
       (setq arg (1+ arg)))
     (raise-frame frame)
-    (select-frame frame)))
+    (select-frame frame)
+    (set-mouse-position (selected-frame) (frame-width) 0)
+    (unfocus-frame)))
 
 ;;;; Frame configurations