Always focus from frame
authorPhilippe Brochard <pbrochard@common-lisp.net>
Fri, 2 Aug 2013 12:45:29 +0000 (2 14:45 +0200)
committerPhilippe Brochard <pbrochard@common-lisp.net>
Fri, 2 Aug 2013 12:45:29 +0000 (2 14:45 +0200)
src/clfswm-fastswitch-mode.lisp

index dad4131..f2aa376 100644 (file)
           (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)