From: Philippe Brochard <pbrochard@common-lisp.net>
Date: Fri, 2 Aug 2013 12:45:29 +0000 (+0200)
Subject: Always focus from frame
X-Git-Url: https://repo.or.cz/w/clfswm.git/commitdiff_plain/fd52c5eaf5641ef98a23d9233db46ad0bb3878bb

Always focus from frame
---

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)