From cc5ba0e7ace5f8b2f4a8a1ff2bb83db2802ef834 Mon Sep 17 00:00:00 2001
From: Philippe Brochard <pbrochard@common-lisp.net>
Date: Tue, 7 May 2013 21:00:43 +0200
Subject: [PATCH] Takes care of *steal-focus* variable in run-or-raise function

---
 src/clfswm-util.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/clfswm-util.lisp b/src/clfswm-util.lisp
index 5489dc9..68e00a6 100644
--- a/src/clfswm-util.lisp
+++ b/src/clfswm-util.lisp
@@ -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))))
 
-- 
2.11.4.GIT