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

1997-09-02 19:39:14 +00:00
parent b1667e6c86
commit 9d702ce661
1 changed files with 4 additions and 1 deletions
--- 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