(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 8437475dfd608ffe40cf005f05ab73e6bbcae7b0..d041da254f5204ef9dc64455250d0d9a70d0b7a4 100644 (file)
--- 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)))