Takes care of *steal-focus* variable in run-or-raise function
authorPhilippe Brochard <pbrochard@common-lisp.net>
Tue, 7 May 2013 19:00:43 +0000 (7 21:00 +0200)
committerPhilippe Brochard <pbrochard@common-lisp.net>
Tue, 7 May 2013 19:00:43 +0000 (7 21:00 +0200)
src/clfswm-util.lisp

index 5489dc9..68e00a6 100644 (file)
@@ -1807,7 +1807,8 @@ For window: set current child to window or its parent according to window-parent
          (put-child-on-top window parent)
           (when maximized
             (change-root (find-root parent) parent))
-         (focus-all-children window parent)
+          (when *steal-focus*
+            (focus-all-children window parent))
           (show-all-children t))
         (funcall run-fn))))