Mercurial > emacs
diff lisp/frame.el @ 85269:7fdf1d7a2fb4
Do not use a single clause cond.
author | Dan Nicolaescu <dann@ics.uci.edu> |
---|---|
date | Sat, 13 Oct 2007 17:57:47 +0000 |
parents | d0de3022445d |
children | 591c29778a30 |
line wrap: on
line diff
--- 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.