# HG changeset patch
# User YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
# Date 1139559576 0
# Node ID 186da3217292c0c62fd52e4c761a2c1847cf7f24
# Parent  2b19dbb7ecf5297cf28e42afd6c0d340cc1de7de
(select-frame-set-input-focus): Call x-focus-frame also
when window-system is mac.

diff -r 2b19dbb7ecf5 -r 186da3217292 lisp/frame.el
--- a/lisp/frame.el	Fri Feb 10 07:54:12 2006 +0000
+++ b/lisp/frame.el	Fri Feb 10 08:19:36 2006 +0000
@@ -695,7 +695,7 @@
     (select-frame frame)
     (raise-frame frame)
     ;; Ensure, if possible, that frame gets input focus.
-    (cond ((eq window-system 'x)
+    (cond ((memq window-system '(x mac))
 	   (x-focus-frame frame))
 	  ((eq window-system 'w32)
 	   (w32-focus-frame frame)))