# HG changeset patch
# User Geoff Voelker <voelker@cs.washington.edu>
# Date 873229154 0
# Node ID 424f0b44e7a5543cd55db39642960446e93645b0
# Parent  90127e64071328a3c25877a2ebe48bbd6567aac4
(other-frame) [windows-nt]: Use w32-focus-frame.

diff -r 90127e640713 -r 424f0b44e7a5 lisp/frame.el
--- a/lisp/frame.el	Tue Sep 02 19:38:31 1997 +0000
+++ b/lisp/frame.el	Tue Sep 02 19:39:14 1997 +0000
@@ -516,7 +516,10 @@
       (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