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

[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  acac7da7e5c3a7989f972249295872f179edaa8a (commit)
      from  a147320f8b16029e212f99dbae77de6c883271ea (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 acac7da7e5c3a7989f972249295872f179edaa8a
Author: Philippe Brochard <pbrochard at common-lisp.net>
Date:   Sat Apr 5 01:48:09 2014 +0200

    Leave second mode when retrieving windows

diff --git a/src/clfswm-util.lisp b/src/clfswm-util.lisp
index e525829..bf45aee 100644
--- a/src/clfswm-util.lisp
+++ b/src/clfswm-util.lisp
@@ -459,7 +459,9 @@ Write (defparameter *contrib-dir* \"/usr/local/lib/clfswm/\") in ~A.~%"
 
 (defun retrieve-existing-window ()
   "Retrieve existing windows not already managed by CLFSWM."
-  (process-existing-windows *screen*))
+  (process-existing-windows *screen*)
+  (show-all-children t)
+  (leave-second-mode))
 
 
 

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

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


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