From fd52c5eaf5641ef98a23d9233db46ad0bb3878bb Mon Sep 17 00:00:00 2001 From: Philippe Brochard Date: Fri, 2 Aug 2013 14:45:29 +0200 Subject: [PATCH] Always focus from frame --- src/clfswm-fastswitch-mode.lisp | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/clfswm-fastswitch-mode.lisp b/src/clfswm-fastswitch-mode.lisp index dad4131..f2aa376 100644 --- a/src/clfswm-fastswitch-mode.lisp +++ b/src/clfswm-fastswitch-mode.lisp @@ -213,7 +213,6 @@ (when (and (frame-p from) (frame-p to)) (remove-child-in-frame window from) (pushnew window (frame-child to) :test #'child-equal-p) - (when (child-equal-p window (current-child)) - (focus-all-children window to)))))) + (focus-all-children from from))))) (show-all-children)) t) -- 2.11.4.GIT