Do not use a single clause cond.

diff --git a/lisp/frame.el b/lisp/frame.el
index 95cddb5112e9d7fee3047dd1b0cb0bdcaddd852d..30573db9e66cf18b10e901429f5b0a6a81204eb9 100644 (file)
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -821,9 +821,9 @@ the user during startup."
     (raise-frame frame)
     ;; Ensure, if possible, that frame gets input focus.
     (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))))
+      (x-focus-frame frame))
+    (when focus-follows-mouse
+      (set-mouse-position (selected-frame) (1- (frame-width)) 0)))
 
 (defun other-frame (arg)
   "Select the ARGth different visible frame on current display, and raise it.