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

[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  809cf340f1a50c08d191d5ced21a5023c298b52f (commit)
      from  2a97c668efec1376f35453b3a560117b1ce7435b (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 809cf340f1a50c08d191d5ced21a5023c298b52f
Author: Philippe Brochard <pbrochard at common-lisp.net>
Date:   Sun Sep 30 21:16:03 2012 +0200

    src/clfswm.lisp (configure-request handler): Protect fake configuration notify

diff --git a/src/clfswm.lisp b/src/clfswm.lisp
index 9f8faf1..f66976a 100644
--- a/src/clfswm.lisp
+++ b/src/clfswm.lisp
@@ -85,9 +85,10 @@
         (unless (eq change :resized)
           ;; To be ICCCM compliant, send a fake configuration notify event only when
           ;; the window has moved and not when it has been resized or the border width has changed.
-          (send-configuration-notify window (x-drawable-x window) (x-drawable-y window)
-                                     (x-drawable-width window) (x-drawable-height window)
-                                     (x-drawable-border-width window)))))))
+          (with-xlib-protect ()
+            (send-configuration-notify window (x-drawable-x window) (x-drawable-y window)
+                                       (x-drawable-width window) (x-drawable-height window)
+                                       (x-drawable-border-width window))))))))
 
 
 (define-handler main-mode :map-request (window send-event-p)

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

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


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