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

[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  74320af30b9c8cba649690252f48be1dc04b3ebc (commit)
      from  29254aac066a910669406599cd229404af7c28c0 (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 74320af30b9c8cba649690252f48be1dc04b3ebc
Author: Ales Guzik <ales.guzik at gmail.com>
Date:   Wed Jan 4 23:12:00 2012 +0100

    src/clfswm-layout.lisp (update-layout-managed-children-keep-position): Fix an inattention error.

diff --git a/ChangeLog b/ChangeLog
index 0c91d05..8721247 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2012-01-04  Ales Guzik <ales.guzik at gmail.com>
+
+	* src/clfswm-layout.lisp (update-layout-managed-children-keep-position):
+	Fix an inattention error.
+
 2012-01-04  Philippe Brochard  <pbrochard at common-lisp.net>
 
 	* src/xlib-util.lisp (with-xlib-protect): Protect from
diff --git a/src/clfswm-layout.lisp b/src/clfswm-layout.lisp
index 449e1c6..fd80deb 100644
--- a/src/clfswm-layout.lisp
+++ b/src/clfswm-layout.lisp
@@ -237,7 +237,7 @@
 	(managed-in-parent (get-managed-child parent)))
     (dolist (ch managed-in-parent)
       (unless (child-member ch managed-children)
-	(setf managed-children (append managed-children (list child)))))
+	(setf managed-children (append managed-children (list ch)))))
     (setf managed-children (remove-if-not (lambda (x)
 					    (child-member x managed-in-parent))
 					  managed-children))

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

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


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