From 4834bf07a3faeb9de9d6c99069810c49ead1f581 Mon Sep 17 00:00:00 2001
From: Philippe Brochard <pbrochard@common-lisp.net>
Date: Fri, 22 Mar 2013 23:11:38 +0100
Subject: [PATCH] Do not destroy manually windows on destroy notify event
 (clfswm is a non reparent window manager)

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

diff --git a/src/clfswm.lisp b/src/clfswm.lisp
index e2f6ce5..34f50ad 100644
--- a/src/clfswm.lisp
+++ b/src/clfswm.lisp
@@ -117,8 +117,7 @@
               (xlib:window-equal window event-window))
     (when (find-child window *root-frame*)
       (delete-child-in-all-frames window)
-      (show-all-children)
-      (xlib:destroy-window window))))
+      (show-all-children))))
 
 
 (define-handler main-mode :enter-notify  (window root-x root-y)
-- 
2.11.4.GIT