[clfswm-git]CLFSWM - A(nother) Common Lisp FullScreen Window Manager branch master updated. R-1212-29-gcc5ba0e

[Philippe Brochard]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "CLFSWM - A(nother) Common Lisp FullScreen Window Manager".

The branch, master has been updated
       via  cc5ba0e7ace5f8b2f4a8a1ff2bb83db2802ef834 (commit)
      from  47265bb0579045b5528894e5db88df44fd029774 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit cc5ba0e7ace5f8b2f4a8a1ff2bb83db2802ef834
Author: Philippe Brochard <pbrochard at common-lisp.net>
Date:   Tue May 7 21:00:43 2013 +0200

    Takes care of *steal-focus* variable in run-or-raise function

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))))
 

-----------------------------------------------------------------------

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


hooks/post-receive
-- 
CLFSWM - A(nother) Common Lisp FullScreen Window Manager