Mercurial > emacs

changeset 84632:feefd62722f7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(select-frame-set-input-focus, select-frame-by-name): Use x-focus-frame for w32.
author Jason Rumney <jasonr@gnu.org>
date Tue, 18 Sep 2007 22:17:29 +0000
parents 9ef5fe7bc4ab
children 74f243cb2274
files lisp/frame.el
diffstat 1 files changed, 4 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- 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))))