[sawfish/edge-actions] forgot the timer for edge-actions

[Christopher Bratusek <chrisb src gnome org>]

commit 1377c0acf3dc17670457b71bd5526dbb5afdeaaa
Author: Christopher Roy Bratusek <zanghar freenet de>
Date:   Tue Nov 2 20:58:01 2010 +0100

    forgot the timer for edge-actions

 lisp/sawfish/wm/edge/actions.jl |   17 +++++++++++++----
 1 files changed, 13 insertions(+), 4 deletions(-)
---
diff --git a/lisp/sawfish/wm/edge/actions.jl b/lisp/sawfish/wm/edge/actions.jl
index 0e349bc..971310e 100644
--- a/lisp/sawfish/wm/edge/actions.jl
+++ b/lisp/sawfish/wm/edge/actions.jl
@@ -24,6 +24,7 @@
 
     (open rep
 	  rep.system
+	  rep.io.timers
 	  sawfish.wm.misc
 	  sawfish.wm.events
 	  sawfish.wm.custom
@@ -86,13 +87,21 @@
 	  (hot-spot-activate corner)
 	(setq func nil)
 	(cond ((eq edge 'left)
-	       (edge-action-call left-edge-func edge))
+	       (make-timer (lambda () (edge-action-call left-edge-func edge))
+		  (quotient edge-actions-delay 1000)
+		  (mod edge-actions-delay 1000)))
 	      ((eq edge 'right)
-               (edge-action-call right-edge-func edge))
+               (make-timer (lambda () (edge-action-call right-edge-func edge))
+		  (quotient edge-actions-delay 1000)
+		  (mod edge-actions-delay 1000)))
 	      ((eq edge 'top)
-	       (edge-action-call top-edge-func edge))
+	       (make-timer (lambda () (edge-action-call top-edge-func edge))
+		  (quotient edge-actions-delay 1000)
+		  (mod edge-actions-delay 1000)))
 	      ((eq edge 'bottom)
-	       (edge-action-call bottom-edge-func edge))))))
+	       (make-timer (lambda () (edge-action-call bottom-edge-func edge))
+		  (quotient edge-actions-delay 1000)
+		  (mod edge-actions-delay 1000)))))))
 
   (define (edges-activate)
     (if edge-actions-enabled