From 4b41ede4606956b7d072d5f9f1e92b01db4824f6 Mon Sep 17 00:00:00 2001
From: Philippe Brochard <pbrochard@common-lisp.net>
Date: Mon, 30 Apr 2012 23:54:00 +0200
Subject: [PATCH] src/clfswm-util.lisp (mouse-focus-move/resize-generic):
 Enable drawing new frame on all root window

---
 src/clfswm-util.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
2.11.4.GIT