From: Dan Nicolaescu <dann@ics.uci.edu>
Date: Sat, 13 Oct 2007 16:50:36 +0000 (+0000)
Subject: * frame.el (select-frame-set-input-focus): Fix typo
X-Git-Tag: emacs-pretest-23.0.90~10352
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2b444e1f3080999e1acc9c362aa0a4cd54335767;p=emacs.git

* 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 bd4f1bbb748..bd963faf52c 100644
--- 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 37673835f34..95cddb5112e 100644
--- 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))))