From: Philippe Brochard <pbrochard@common-lisp.net>
Date: Sun, 17 Mar 2013 22:29:52 +0000 (+0100)
Subject: Do not unmap manually windows on unmap notify event
X-Git-Url: https://repo.or.cz/w/clfswm.git/commitdiff_plain/13ebf0682b1a9c5960af1a48173751a47c0e0029

Do not unmap manually windows on unmap notify event
---

diff --git a/load.lisp b/load.lisp
index d8dd479..b0938fd 100644
--- a/load.lisp
+++ b/load.lisp
@@ -170,4 +170,4 @@ from $XDG_CONFIG_HOME/clfswm/clfswmrc")
 #+:clfswm-build-image
 (progn
   (cl-user::load-info "Building CLFSWM executable image")
-   (build-lisp-image "clfswm"))
+  (build-lisp-image "clfswm"))
diff --git a/src/clfswm.lisp b/src/clfswm.lisp
index 62cdf76..e2f6ce5 100644
--- a/src/clfswm.lisp
+++ b/src/clfswm.lisp
@@ -105,17 +105,16 @@
 
 (define-handler main-mode :unmap-notify (send-event-p event-window window)
   (unless (and (not send-event-p)
-	       (not (xlib:window-equal window event-window)))
+               (not (xlib:window-equal window event-window)))
     (when (find-child window *root-frame*)
       (setf (window-state window) +withdrawn-state+)
-      (xlib:unmap-window window)
       (remove-child-in-all-frames window)
       (show-all-children))))
 
 
 (define-handler main-mode :destroy-notify (send-event-p event-window window)
   (unless (or send-event-p
-	      (xlib:window-equal window event-window))
+              (xlib:window-equal window event-window))
     (when (find-child window *root-frame*)
       (delete-child-in-all-frames window)
       (show-all-children)