# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1192298267 0
# Node ID 7fdf1d7a2fb4b78e9a0de055943e7df74adb4b37
# Parent  d0de3022445da9743ea4f2d56e988b4572b02a6f
Do not use a single clause cond.

diff -r d0de3022445d -r 7fdf1d7a2fb4 lisp/frame.el
--- a/lisp/frame.el	Sat Oct 13 16:50:36 2007 +0000
+++ b/lisp/frame.el	Sat Oct 13 17:57:47 2007 +0000
@@ -821,9 +821,9 @@
     (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.