[sawfish] fixed a bug in edge.actions: don't call edge-action for non-dragging, while the one for while-draggi

[Christopher Bratusek <chrisb src gnome org>]

commit b7ce7f8a3a2e02bcb5a773973969ddd3e7178d44
Author: Christopher Roy Bratusek <zanghar freenet de>
Date:   Sun Feb 13 11:22:15 2011 +0100

    fixed a bug in edge.actions:
    don't call edge-action for non-dragging, while the one for while-dragging is called
    (else both actions would have been done)

 lisp/sawfish/wm/edge/actions.jl |    4 +++-
 1 files changed, 3 insertions(+), 1 deletions(-)
---
diff --git a/lisp/sawfish/wm/edge/actions.jl b/lisp/sawfish/wm/edge/actions.jl
index 772f1ba..2a0c750 100644
--- a/lisp/sawfish/wm/edge/actions.jl
+++ b/lisp/sawfish/wm/edge/actions.jl
@@ -62,7 +62,9 @@
        (edge-flip-invoke edge 'workspace))
       ((flip-viewport)
        (edge-flip-invoke edge 'viewport))
-      (t (hot-spot-invoke edge))))
+      ((none/hot-spot)
+       (hot-spot-invoke edge))
+      (t nil)))
 
   ;; Entry point without dragging 
   (define (edge-action-hook-func)