[sawfish] Corrected indents of 'let' using new sawfish.el.

[Christopher Bratusek <chrisb src gnome org>]

commit 058444be711665368d60cf07831599351f20f85b
Author: Teika kazura <teika lavabit com>
Date:   Sat Nov 6 14:53:32 2010 +0900

    Corrected indents of 'let' using new sawfish.el.

 lisp/sawfish/gtk/widget.jl       |   14 +++++++-------
 lisp/sawfish/wm/commands.jl      |   32 ++++++++++++++++----------------
 lisp/sawfish/wm/custom.jl        |   10 +++++-----
 lisp/sawfish/wm/state/wm-spec.jl |    2 +-
 lisp/sawfish/wm/util/ping.jl     |    2 +-
 5 files changed, 30 insertions(+), 30 deletions(-)
---
diff --git a/lisp/sawfish/gtk/widget.jl b/lisp/sawfish/gtk/widget.jl
index d3e244b..1c7bf93 100644
--- a/lisp/sawfish/gtk/widget.jl
+++ b/lisp/sawfish/gtk/widget.jl
@@ -197,13 +197,13 @@
 			 last (_ (or (cadar rest)
 				     (symbol-name (car rest)))))))
 	    (gtk-menu-shell-append menu button)
-	      (gtk-widget-show button)
-	      (g-signal-connect button "toggled"
-				(lambda (w)
-				  (when (gtk-check-menu-item-active w)
-				    (setq value (or (caar rest) (car rest)))
-				    (call-callback changed-callback))))
-	      (loop (cdr rest) button))))
+	    (gtk-widget-show button)
+	    (g-signal-connect button "toggled"
+			      (lambda (w)
+				(when (gtk-check-menu-item-active w)
+				  (setq value (or (caar rest) (car rest)))
+				  (call-callback changed-callback))))
+	    (loop (cdr rest) button))))
       (gtk-option-menu-set-menu omenu menu)
       (gtk-widget-show-all omenu)
       (lambda (op)
diff --git a/lisp/sawfish/wm/commands.jl b/lisp/sawfish/wm/commands.jl
index ec56d41..9761d32 100644
--- a/lisp/sawfish/wm/commands.jl
+++ b/lisp/sawfish/wm/commands.jl
@@ -218,22 +218,22 @@ command called NAME (optionally whose arguments have custom-type TYPE)."
 			    (setq point (+ point 2)))
 			(setq code (aref spec point))
 			(setq point (1+ point)))
-			(let ((end (if (string-match "(\n|$)" spec point)
-				       (match-start)
-				     (length spec))))
-			  (unless (= point end)
-			    (setq prompt (substring spec point end)))
-			    (setq point (1+ end)))
-			(let (arg)
-			  (let-fluids ((arg-can-be-nil nil))
-			    (setq arg (if local
-					  (local-codes code prompt)
-					(global-codes code prompt)))
-			    (when (and (not (fluid arg-can-be-nil))
-				       (null arg))
-			      (error "Null argument to command: %s"
-				     name)))
-			    (loop (cons arg args) point)))))))
+		      (let ((end (if (string-match "(\n|$)" spec point)
+				     (match-start)
+				   (length spec))))
+			(unless (= point end)
+			  (setq prompt (substring spec point end)))
+			(setq point (1+ end)))
+		      (let (arg)
+			(let-fluids ((arg-can-be-nil nil))
+			  (setq arg (if local
+					(local-codes code prompt)
+				      (global-codes code prompt)))
+			  (when (and (not (fluid arg-can-be-nil))
+				     (null arg))
+			    (error "Null argument to command: %s"
+				   name)))
+			(loop (cons arg args) point)))))))
 	  ((functionp spec) (spec))
 	  ((consp spec) (user-eval spec))))
 
diff --git a/lisp/sawfish/wm/custom.jl b/lisp/sawfish/wm/custom.jl
index e04994c..b1bce79 100644
--- a/lisp/sawfish/wm/custom.jl
+++ b/lisp/sawfish/wm/custom.jl
@@ -286,11 +286,11 @@ of choices."
       (setq full-group (list full-group)))
     (let loop ((group full-group)
 	       (parent custom-groups))
-         (if (null group)
-             parent
-           (loop (cdr group)
-                 (or (assq (car group) (cddr parent))
-                     (error "No such group: %S" full-group))))))
+      (if (null group)
+	  parent
+	(loop (cdr group)
+	      (or (assq (car group) (cddr parent))
+		  (error "No such group: %S" full-group))))))
 
   (define (custom-add-to-group cell full-group)
     (when (and (symbolp full-group) (not (null full-group)))
diff --git a/lisp/sawfish/wm/state/wm-spec.jl b/lisp/sawfish/wm/state/wm-spec.jl
index 313f6b6..fa723f9 100644
--- a/lisp/sawfish/wm/state/wm-spec.jl
+++ b/lisp/sawfish/wm/state/wm-spec.jl
@@ -223,7 +223,7 @@
 						 (screen-height))))
 		  (let ((vp-data (cdr (assoc i workspace-viewport-data))))
 		    (aset view (* i 2) (car vp-data))
-		      (aset view (1+ (* i 2)) (nth 1 vp-data))))
+		    (aset view (1+ (* i 2)) (nth 1 vp-data))))
 		(loop (1+ i))))))
 
 	;; _NET_WORKAREA
diff --git a/lisp/sawfish/wm/util/ping.jl b/lisp/sawfish/wm/util/ping.jl
index 2bded3d..7d9329c 100644
--- a/lisp/sawfish/wm/util/ping.jl
+++ b/lisp/sawfish/wm/util/ping.jl
@@ -94,7 +94,7 @@ milliseconds (defaults to 1 second), false otherwise."
 		 ;; found our ping
 		 (let ((this (car rest)))
 		   (setq pings-in-transit (delq this pings-in-transit))
-		     ((ping-callback this) t)))
+		   ((ping-callback this) t)))
 
 		(t (loop (cdr rest))))))
       t))