[sawfish/edge-actions] also delay hot-spots for corners

[Christopher Bratusek <chrisb src gnome org>]

commit d5a27fd831e5d4277aa13850c6f22f1db8112989
Author: Christopher Roy Bratusek <zanghar freenet de>
Date:   Sat Nov 20 11:23:44 2010 +0100

    also delay hot-spots for corners

 lisp/sawfish/wm/edge/actions.jl |    6 +++++-
 1 files changed, 5 insertions(+), 1 deletions(-)
---
diff --git a/lisp/sawfish/wm/edge/actions.jl b/lisp/sawfish/wm/edge/actions.jl
index 2ffd48f..893bd1d 100644
--- a/lisp/sawfish/wm/edge/actions.jl
+++ b/lisp/sawfish/wm/edge/actions.jl
@@ -94,7 +94,11 @@ activated immediately, aswell as actions for while-moving a window."
       (let ((corner (get-active-corner))
 	    (edge (get-active-edge)))
 	  (if corner
-	      (hot-spot-activate corner)
+	      ;;â??halve the delay for hot-spots
+	      (make-timer (lambda ()
+		  (hot-spot-activate corner))
+		(quotient edge-actions-delay 2000)
+		(mod edge-actions-delay 2000))
 	    (setq func nil)
 	    (cond ((or (eq edge 'left)
 		       (eq edge 'right))