# HG changeset patch
# User YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
# Date 1143272418 0
# Node ID cdfc7cf7bfbe85f180e963fd4d1a1b6776a236f0
# Parent  5f7de9821aeb6c0cd00c17eae8cf52fb5c6882a4
(select-frame-by-name): Call x-focus-frame also when
window-system is mac.

diff -r 5f7de9821aeb -r cdfc7cf7bfbe lisp/frame.el
--- a/lisp/frame.el	Sat Mar 25 00:55:09 2006 +0000
+++ b/lisp/frame.el	Sat Mar 25 07:40:18 2006 +0000
@@ -767,7 +767,7 @@
     (raise-frame frame)
     (select-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)))