* frame.el (select-frame-set-input-focus): Fix typo

"max" -> "mac". Do not use a single clause cond.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bd4f1bbb748cea83f496afbb46ad5e5e04a94eb7..bd963faf52c40f3bb98da0b0312912a64b948260 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2007-10-13  Dan Nicolaescu  <dann@ics.uci.edu>
 
+       * frame.el (select-frame-set-input-focus): Fix typo
+       "max" -> "mac". Do not use a single clause cond.
+
        * cus-start.el (all): Use test that does not match the X11 version
        for mac.
 

diff --git a/lisp/frame.el b/lisp/frame.el
index 37673835f3474aa6cd8bcb4d0777273bf654bb3a..95cddb5112e9d7fee3047dd1b0cb0bdcaddd852d 100644 (file)
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -820,8 +820,8 @@ the user during startup."
     (select-frame frame)
     (raise-frame frame)
     ;; Ensure, if possible, that frame gets input focus.
-    (cond ((memq (window-system frame) '(x max w32))
-          (x-focus-frame frame)))
+    (when (memq (window-system frame) '(x mac w32))
+          (x-focus-frame frame))
     (cond (focus-follows-mouse
           (set-mouse-position (selected-frame) (1- (frame-width)) 0))))