# HG changeset patch
# User Jason Rumney <jasonr@gnu.org>
# Date 1190153849 0
# Node ID feefd62722f73d0094b4099dbd20c74f631c7371
# Parent  9ef5fe7bc4ab8ddaaf7c090b74664ee0f7d2f687
(select-frame-set-input-focus, select-frame-by-name): Use x-focus-frame for w32.

diff -r 9ef5fe7bc4ab -r feefd62722f7 lisp/frame.el
--- a/lisp/frame.el	Tue Sep 18 22:15:06 2007 +0000
+++ b/lisp/frame.el	Tue Sep 18 22:17:29 2007 +0000
@@ -818,10 +818,8 @@
     (select-frame frame)
     (raise-frame frame)
     ;; Ensure, if possible, that frame gets input focus.
-    (cond ((memq (window-system frame) '(x max))
-	   (x-focus-frame frame))
-	  ((eq (window-system frame) 'w32)
-	   (w32-focus-frame frame)))
+    (cond ((memq (window-system frame) '(x max w32))
+	   (x-focus-frame frame)))
     (cond (focus-follows-mouse
 	   (set-mouse-position (selected-frame) (1- (frame-width)) 0))))
 
@@ -905,10 +903,8 @@
     (raise-frame frame)
     (select-frame frame)
     ;; Ensure, if possible, that frame gets input focus.
-    (cond ((eq (window-system frame) 'x)
-	   (x-focus-frame frame))
-	  ((eq (window-system frame) 'w32)
-	   (w32-focus-frame frame)))
+    (cond ((memq (window-system frame) '(x w32))
+	   (x-focus-frame frame)))
     (when focus-follows-mouse
       (set-mouse-position frame (1- (frame-width frame)) 0))))