From 9d702ce661feca4d2ae568d4acf89ccac9ba0701 Mon Sep 17 00:00:00 2001 From: Geoff Voelker Date: Tue, 2 Sep 1997 19:39:14 +0000 Subject: [PATCH] (other-frame) [windows-nt]: Use w32-focus-frame. --- lisp/frame.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/frame.el b/lisp/frame.el index cd23db06c08..96d103e1229 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -516,7 +516,10 @@ A negative ARG moves in the opposite order." (setq arg (1+ arg))) (raise-frame frame) (select-frame frame) - (set-mouse-position (selected-frame) (1- (frame-width)) 0))) + ;; Ensure, if possible, that frame gets input focus. + (if (eq window-system 'w32) + (w32-focus-frame frame) + (set-mouse-position (selected-frame) (1- (frame-width)) 0)))) ;;;; Frame configurations -- 2.39.2