[sawfish/edge-actions] temporarly remove the timer from edge-actions

[Christopher Bratusek <chrisb src gnome org>]

commit a6db6c3893b3657dc4537a1a44ffba0e9cd6b962
Author: Christopher Roy Bratusek <zanghar freenet de>
Date:   Sat Nov 20 10:13:51 2010 +0100

    temporarly remove the timer from edge-actions

 lisp/sawfish/wm/edge/actions.jl |   25 +++++++++++--------------
 1 files changed, 11 insertions(+), 14 deletions(-)
---
diff --git a/lisp/sawfish/wm/edge/actions.jl b/lisp/sawfish/wm/edge/actions.jl
index 904d771..7a7b0ea 100644
--- a/lisp/sawfish/wm/edge/actions.jl
+++ b/lisp/sawfish/wm/edge/actions.jl
@@ -105,20 +105,17 @@
     (unless no-enter
       (let ((corner (get-active-corner))
 	    (edge (get-active-edge)))
-	(make-timer (lambda ()
-	    (if corner
-		(hot-spot-activate corner)
-	      (setq func nil)
-	      (cond ((eq edge 'left)
-		    (edge-action-call left-edge-func edge))
-		    ((eq edge 'right)
-		    (edge-action-call right-edge-func edge))
-		    ((eq edge 'top)
-		    (edge-action-call top-edge-func edge))
-		    ((eq edge 'bottom)
-		    (edge-action-call bottom-edge-func edge)))))
-	    (quotient edge-actions-delay 1000)
-	    (mod edge-actions-delay 1000)))))
+	  (if corner
+	      (hot-spot-activate corner)
+	    (setq func nil)
+	    (cond ((eq edge 'left)
+	           (edge-action-call left-edge-func edge))
+	          ((eq edge 'right)
+		   (edge-action-call right-edge-func edge))
+		  ((eq edge 'top)
+		   (edge-action-call top-edge-func edge))
+		  ((eq edge 'bottom)
+		   (edge-action-call bottom-edge-func edge)))))))
 
   (define (edge-action-move-init)
     (setq func nil)