(other-frame): Warp the mouse so that the other

frame actually stays selected.
1993-09-24 04:10:11 +00:00
parent 31ce77fa0a
commit 699213bcf1
1 changed files with 3 additions and 1 deletions
--- 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