From 2b444e1f3080999e1acc9c362aa0a4cd54335767 Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Sat, 13 Oct 2007 16:50:36 +0000 Subject: [PATCH] * frame.el (select-frame-set-input-focus): Fix typo "max" -> "mac". Do not use a single clause cond. --- lisp/ChangeLog | 3 +++ lisp/frame.el | 4 ++-- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index bd4f1bbb74..bd963faf52 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2007-10-13 Dan Nicolaescu + * 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 37673835f3..95cddb5112 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)))) -- 2.20.1