[sawfish/sawfish-2.90] infinite-desktop: export hook function don't auto-enable it by just loading the file

[Christopher Bratusek <chrisb src gnome org>]

commit ae3cdedbecb39702a1f98bf6a942b57d0249db39
Author: Christopher Roy Bratusek <zanghar freenet de>
Date:   Mon Oct 25 22:39:55 2010 +0200

    infinite-desktop: export hook function
    don't auto-enable it by just loading the file

 lisp/sawfish/wm/edge/infinite-desktop.jl |    5 +++--
 1 files changed, 3 insertions(+), 2 deletions(-)
---
diff --git a/lisp/sawfish/wm/edge/infinite-desktop.jl b/lisp/sawfish/wm/edge/infinite-desktop.jl
index bb10776..ba28a22 100644
--- a/lisp/sawfish/wm/edge/infinite-desktop.jl
+++ b/lisp/sawfish/wm/edge/infinite-desktop.jl
@@ -20,7 +20,8 @@
 
 (define-structure sawfish.wm.edge.infinite-desktop
 
-    (export infinite-desktop-enable)
+    (export infinite-desktop-enable
+	    infinite-desktop-hook)
 
     (open rep
           rep.system
@@ -37,7 +38,7 @@
   (defgroup infinite-desktop "Infinite Desktop"
     :group workspace)
 
-  (defcustom infinite-desktop-p t
+  (defcustom infinite-desktop-p nil
     "\"Infinite desktop\", or smooth viewport motion with mouse (Conflicts edge-flipping)."
     :group (workspace infinite-desktop)
     :after-set (lambda () (infinite-desktop-enable))