[sawfish/edge-actions] activate edges automatically (removed defcustom)

[Christopher Bratusek <chrisb src gnome org>]

commit 74b4b3c2009ad52fd42462050d9755df25fc92c0
Author: Christopher Roy Bratusek <zanghar freenet de>
Date:   Sat Nov 20 10:18:28 2010 +0100

    activate edges automatically (removed defcustom)

 lisp/sawfish/wm/edge/actions.jl |   14 ++++++--------
 1 files changed, 6 insertions(+), 8 deletions(-)
---
diff --git a/lisp/sawfish/wm/edge/actions.jl b/lisp/sawfish/wm/edge/actions.jl
index 7a7b0ea..78e45c8 100644
--- a/lisp/sawfish/wm/edge/actions.jl
+++ b/lisp/sawfish/wm/edge/actions.jl
@@ -38,14 +38,12 @@
   (define func nil)
   (define no-enter nil)
 
-  (defcustom edge-actions-enabled nil
-    "Activate the screen-edges."
-    :group edge-actions
-    :type boolean
-    :after-set (lambda () (edges-activate)))
+  ;;â??initialize the screen edges
+  (edges-activate t)
 
   (defcustom edge-actions-delay 250
-    "Delay (in miliseconds) before the edges are activated."
+    "Delay (in miliseconds) before the edges are activated.
+hot-spots are activated in half that time."
     :group edge-actions
     :type number
     :range (50 . nil))
@@ -131,8 +129,8 @@
        (edge-action-call bottom-edge-move-func 'bottom)))
     (setq no-enter nil))
 
-  (define (edges-activate)
-    (if edge-actions-enabled
+  (define (edges-activate init)
+    (if init
 	(progn
 	  (flippers-activate t)
 	  (unless (in-hook-p 'enter-flipper-hook edge-action-init)