[sawfish] Typo fix "lenght" -> "length" in edge.

[Christopher Bratusek <chrisb src gnome org>]

commit 39688e4ed7c28d12ef4e6560670a1d4fdb596e58
Author: Teika kazura <teika lavabit com>
Date:   Tue Feb 1 14:17:04 2011 +0900

    Typo fix "lenght" -> "length" in edge.

 lisp/sawfish/wm/edge/util.jl |   18 +++++++++---------
 man/sawfish.texi             |    2 +-
 2 files changed, 10 insertions(+), 10 deletions(-)
---
diff --git a/lisp/sawfish/wm/edge/util.jl b/lisp/sawfish/wm/edge/util.jl
index 7754c1b..bd89795 100644
--- a/lisp/sawfish/wm/edge/util.jl
+++ b/lisp/sawfish/wm/edge/util.jl
@@ -45,7 +45,7 @@
       (remove-hook 'after-restacking-hook raise-flippers)
       (remove-hook 'randr-change-notify-hook recreate-flippers)))
 
-  (defcustom hot-spots-corner-lenght 50
+  (defcustom hot-spots-corner-length 50
     "In hot-spot, this size portion is recognized as \"corners\".
 The unit is pixel, and applies to both x and y direction."
     :type number
@@ -55,28 +55,28 @@ The unit is pixel, and applies to both x and y direction."
   (define (get-active-corner)
     (let ((cursor-x (car (query-pointer)))
 	  (cursor-y (cdr (query-pointer))))
-      (cond ((or (and (< cursor-x hot-spots-corner-lenght)
+      (cond ((or (and (< cursor-x hot-spots-corner-length)
 		      (<= cursor-y 1))
 		 (and (<= cursor-x 1)
-		      (< cursor-y hot-spots-corner-lenght)))
+		      (< cursor-y hot-spots-corner-length)))
 	     'top-left)
 
-	    ((or (and (> cursor-x (- (screen-width) hot-spots-corner-lenght))
+	    ((or (and (> cursor-x (- (screen-width) hot-spots-corner-length))
 		      (<= cursor-y 1))
 		 (and (>= cursor-x (- (screen-width) 1))
-		      (< cursor-y hot-spots-corner-lenght)))
+		      (< cursor-y hot-spots-corner-length)))
 	     'top-right)
 
-	    ((or (and (> cursor-x (- (screen-width) hot-spots-corner-lenght))
+	    ((or (and (> cursor-x (- (screen-width) hot-spots-corner-length))
 		      (>= cursor-y (- (screen-height) 1)))
 		 (and (>= cursor-x (- (screen-width) 1))
-		      (> cursor-y (- (screen-height) hot-spots-corner-lenght))))
+		      (> cursor-y (- (screen-height) hot-spots-corner-length))))
 	     'bottom-right)
 
-	    ((or (and (< cursor-x hot-spots-corner-lenght)
+	    ((or (and (< cursor-x hot-spots-corner-length)
 		      (>= cursor-y (- (screen-height) 1)))
 		 (and (<= cursor-x 1)
-		      (> cursor-y (- (screen-height) hot-spots-corner-lenght))))
+		      (> cursor-y (- (screen-height) hot-spots-corner-length))))
 	     'bottom-left))))
 
   (define (get-active-edge)
diff --git a/man/sawfish.texi b/man/sawfish.texi
index 6c50482..35e67fe 100644
--- a/man/sawfish.texi
+++ b/man/sawfish.texi
@@ -4808,7 +4808,7 @@ which additionally adds (respectively removes) the required hook-functions.
 @end defun
 
 @defvr Customizable hot-spots-corner-length 50
-Lenght in px (in both x and y direction) wich is used for the hot-spot corners.
+Length in px (in both x and y direction) wich is used for the hot-spot corners.
 All remaining pixels represent the borders.
 @end defvr