[sawfish/edge-actions] improved fallback values for hot-spots (not erroring when called if not user re-defined)

[Christopher Bratusek <chrisb src gnome org>]

commit 4774877b0680adfe447a0641b54b27673f5c29f7
Author: Christopher Roy Bratusek <zanghar freenet de>
Date:   Sat Nov 20 10:53:04 2010 +0100

    improved fallback values for hot-spots
    (not erroring when called if not user re-defined)

 lisp/sawfish/wm/edge/hot-spots.jl |   16 ++++++++--------
 1 files changed, 8 insertions(+), 8 deletions(-)
---
diff --git a/lisp/sawfish/wm/edge/hot-spots.jl b/lisp/sawfish/wm/edge/hot-spots.jl
index 061dbe0..394c602 100644
--- a/lisp/sawfish/wm/edge/hot-spots.jl
+++ b/lisp/sawfish/wm/edge/hot-spots.jl
@@ -33,28 +33,28 @@
 
   (define-structure-alias hot-spots sawfish.wm.edge.hot-spots)
 
-  (defvar left-edge-program nil
+  (defvar left-edge-program (lambda () t)
     "The program launched when hitting the left-edge.")
 
-  (defvar top-left-corner-program nil
+  (defvar top-left-corner-program (lambda () t)
     "The program launched when hitting the top-left-corner.")
 
-  (defvar top-edge-program nil
+  (defvar top-edge-program (lambda () t)
     "The program launched when hitting the top-edge.")
 
-  (defvar top-right-corner-program nil
+  (defvar top-right-corner-program (lambda () t)
     "The program launched when hitting the top-right-corner.")
 
-  (defvar right-edge-program nil
+  (defvar right-edge-program (lambda () t)
     "The program launched when hitting the right-edge.")
 
-  (defvar bottom-right-corner-program nil
+  (defvar bottom-right-corner-program (lambda () t)
     "The program launched when hitting the bottom-right-corner.")
 
-  (defvar bottom-edge-program nil
+  (defvar bottom-edge-program (lambda () t)
     "The program launched when hitting the bottom-edge.")
 
-  (defvar bottom-left-corner-program nil
+  (defvar bottom-left-corner-program (lambda () t)
     "The program launched when hitting the bottom-left-corner.")
 
   (define (hot-spot-activate spot)