From 2ba6a3ec1ce3c59ed674a1ff45cb97b9bfa99426 Mon Sep 17 00:00:00 2001
From: Philippe Brochard <pbrochard@common-lisp.net>
Date: Mon, 14 May 2012 00:08:12 +0200
Subject: [PATCH] src/clfswm-internal.lisp (get-connected-heads-size): Do not
 use fake test code

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

diff --git a/src/clfswm-internal.lisp b/src/clfswm-internal.lisp
index 2e351d8..adfc18d 100644
--- a/src/clfswm-internal.lisp
+++ b/src/clfswm-internal.lisp
@@ -704,7 +704,7 @@
                     (parse-integer string :junk-allowed t))
                   (split-string (substitute #\space #\x (substitute #\space #\, line))))))
 
-(defun get-connected-heads-size (&optional (fake t))
+(defun get-connected-heads-size (&optional (fake nil))
   (labels ((heads-info ()
              (if (not fake)
                  (do-shell "xdpyinfo -ext XINERAMA")
-- 
2.11.4.GIT