[clfswm-cvs] [clfswm-git]CLFSWM - A(nother) Common Lisp FullScreen Window Manager branch master updated. R-1212-15-g13ebf06

[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  13ebf0682b1a9c5960af1a48173751a47c0e0029 (commit)
      from  e1c7bb92ff3bf56c83544b36f4e424040563f63c (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 13ebf0682b1a9c5960af1a48173751a47c0e0029
Author: Philippe Brochard <pbrochard at common-lisp.net>
Date:   Sun Mar 17 23:29:52 2013 +0100

    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)

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

Summary of changes:
 load.lisp       |    2 +-
 src/clfswm.lisp |    5 ++---
 2 files changed, 3 insertions(+), 4 deletions(-)


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