>From 3db9702958ea757fbcce02855ca0de2bffed9203 Mon Sep 17 00:00:00 2001
From: Manuel Giraud <address@hidden>
Date: Fri, 26 Nov 2010 14:30:05 +0100
Subject: [PATCH 1/6] Saner default for floating policy in floating-group.

---
 floating-group.lisp |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/floating-group.lisp b/floating-group.lisp
index 49ad1aa..f72aed2 100644
--- a/floating-group.lisp
+++ b/floating-group.lisp
@@ -249,7 +249,7 @@
              (setf (window-x window) (xlib:drawable-x (window-parent window))
                    (window-y window) (xlib:drawable-y (window-parent window)))))))
       (t
-       (when (eq *mouse-focus-policy* :click)
+       (unless (eq *mouse-focus-policy* :sloppy)
          (focus-window window))))))
 
 (defmethod group-button-press ((group float-group) x y where)
-- 
1.7.6