[Clfswm-cvs] [clfswm-git]CLFSWM - A(nother) Common Lisp FullScreen Window Manager branch master updated. R-1212-66-g4c665d5

[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  4c665d59be7af1cdf7c7d31cfb937b23a80de004 (commit)
      from  a83e36e68f26a8c4ca04939362507fe31e5772db (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 4c665d59be7af1cdf7c7d31cfb937b23a80de004
Author: Philippe Brochard <pbrochard at common-lisp.net>
Date:   Wed Feb 25 22:06:31 2015 +0100

    Expose mode - save root list to prevent root change

diff --git a/src/clfswm-expose-mode.lisp b/src/clfswm-expose-mode.lisp
index 2515ee9..fb47fc0 100644
--- a/src/clfswm-expose-mode.lisp
+++ b/src/clfswm-expose-mode.lisp
@@ -218,7 +218,7 @@
                   (xlib:window (find-parent-frame child))
                   (frame child))))
     (when (and child parent)
-      (change-root (find-root parent) parent)
+	  (change-root (find-root parent) parent)
       (setf (current-child) child)
       (focus-all-children child parent t))))
 
@@ -230,7 +230,8 @@
   (expose-mode-display-accel-windows)
   (let ((child (expose-select-child)))
 	(expose-restore-windows present-window)
-    child))
+	child))
+
 
 (defun expose-windows-mode ()
   "Present all windows in currents roots (An expose like)"
@@ -254,7 +255,8 @@
 
 (defun expose-current-child-mode ()
   "Present all windows in currents roots (An expose like)"
-  (awhen (expose-do-main nil)
-    (expose-focus-child it))
+  (with-saved-root-list ()
+	(awhen (expose-do-main nil)
+	  (expose-focus-child it)))
   (show-all-children)
   t)

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

Summary of changes:
 src/clfswm-expose-mode.lisp | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)


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