From: YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
Date: Sat, 25 Mar 2006 07:40:18 +0000 (+0000)
Subject: (select-frame-by-name): Call x-focus-frame also when
X-Git-Tag: emacs-pretest-22.0.90~3433
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4c08371a0461a350861d645e79e959da41b0437c;p=emacs.git

(select-frame-by-name): Call x-focus-frame also when
window-system is mac.
---

diff --git a/lisp/frame.el b/lisp/frame.el
index 8437475dfd6..d041da254f5 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -767,7 +767,7 @@ If there is no frame by that name, signal an error."
     (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)))