[clfswm-cvs] [clfswm-git]CLFSWM - A(nother) Common Lisp FullScreen Window Manager branch master updated. R-1106-32-g4b41ede

[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  4b41ede4606956b7d072d5f9f1e92b01db4824f6 (commit)
      from  4f9a389cc04f1ed6358b1b7d782b4eceb045452d (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 4b41ede4606956b7d072d5f9f1e92b01db4824f6
Author: Philippe Brochard <pbrochard at common-lisp.net>
Date:   Mon Apr 30 23:54:00 2012 +0200

    src/clfswm-util.lisp (mouse-focus-move/resize-generic): Enable drawing new frame on all root window

diff --git a/src/clfswm-util.lisp b/src/clfswm-util.lisp
index 1d48e55..45fdc22 100644
--- a/src/clfswm-util.lisp
+++ b/src/clfswm-util.lisp
@@ -657,7 +657,7 @@ Focus child and its parents -
 For window: set current child to window or its parent according to window-parent"
   (labels ((move/resize-managed (child)
 	     (let ((parent (find-parent-frame child)))
-	       (when (and parent child
+	       (when (and child
                           (frame-p child)
                           (child-root-p child))
 		 (setf parent child

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

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


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