From: Geoff Voelker <voelker@cs.washington.edu>
Date: Tue, 2 Sep 1997 19:39:14 +0000 (+0000)
Subject: (other-frame) [windows-nt]: Use w32-focus-frame.
X-Git-Tag: emacs-20.1~267
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9d702ce661feca4d2ae568d4acf89ccac9ba0701;p=emacs.git

(other-frame) [windows-nt]: Use w32-focus-frame.
---

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