From 699213bcf1094d4b2f3704c8ff27e4e1fb0c3ce3 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 24 Sep 1993 04:10:11 +0000 Subject: [PATCH] (other-frame): Warp the mouse so that the other frame actually stays selected. --- lisp/frame.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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 -- 2.39.5