[sawfish] Indent fix in tab.

[Christopher Bratusek <chrisb src gnome org>]

commit 393a5e94879677fa4fc6e847954aa3a6cea2044b
Author: Teika kazura <teika lavabit com>
Date:   Tue Jan 18 12:42:43 2011 +0900

    Indent fix in tab.

 lisp/sawfish/wm/tabs/tab.jl      |   20 ++++++------
 lisp/sawfish/wm/tabs/tabgroup.jl |   58 +++++++++++++++++++-------------------
 2 files changed, 39 insertions(+), 39 deletions(-)
---
diff --git a/lisp/sawfish/wm/tabs/tab.jl b/lisp/sawfish/wm/tabs/tab.jl
index d8a2699..7b77e30 100644
--- a/lisp/sawfish/wm/tabs/tab.jl
+++ b/lisp/sawfish/wm/tabs/tab.jl
@@ -20,18 +20,18 @@
 
 (define-structure sawfish.wm.tabs.tab
 
-	(export tab-add-to-group 
+    (export tab-add-to-group 
             set-tab-adjustments)
 
-	(open rep
-	      rep.system
-	      sawfish.wm.misc
-	      sawfish.wm.custom
-	      sawfish.wm.commands
-	      sawfish.wm.frames
-	      sawfish.wm.tabs.tabgroup
-	      sawfish.wm.util.marks
-	      sawfish.wm.windows
+    (open rep
+	  rep.system
+	  sawfish.wm.misc
+	  sawfish.wm.custom
+	  sawfish.wm.commands
+	  sawfish.wm.frames
+	  sawfish.wm.tabs.tabgroup
+	  sawfish.wm.util.marks
+	  sawfish.wm.windows
           sawfish.wm.gaol)
 
   (define-structure-alias tab sawfish.wm.tabs.tab)
diff --git a/lisp/sawfish/wm/tabs/tabgroup.jl b/lisp/sawfish/wm/tabs/tabgroup.jl
index c428132..61fa85f 100644
--- a/lisp/sawfish/wm/tabs/tabgroup.jl
+++ b/lisp/sawfish/wm/tabs/tabgroup.jl
@@ -23,26 +23,26 @@
 
 (define-structure sawfish.wm.tabs.tabgroup
 
-	(export tab-release-window
-	        tab-raise-left-window
+    (export tab-release-window
+	    tab-raise-left-window
             tab-raise-right-window
             tab-find-window
             tab-rank
             tab-group-window-list
             tab-group-window)
     
-	(open rep
-	      rep.system
-	      rep.data.records
-	      sawfish.wm.misc
-	      sawfish.wm.custom
-	      sawfish.wm.commands
-	      sawfish.wm.windows
+    (open rep
+	  rep.system
+	  rep.data.records
+	  sawfish.wm.misc
+	  sawfish.wm.custom
+	  sawfish.wm.commands
+	  sawfish.wm.windows
           sawfish.wm.frames
-	      sawfish.wm.state.iconify
-	      sawfish.wm.state.shading
+	  sawfish.wm.state.iconify
+	  sawfish.wm.state.shading
           sawfish.wm.commands.move-resize
-	      sawfish.wm.stacking
+	  sawfish.wm.stacking
           sawfish.wm.util.groups
           sawfish.wm.commands.groups
           sawfish.wm.workspace)
@@ -79,26 +79,26 @@
   (define (tab-find-window win)
     "Return a group containing win"
     (let loop ((gr tab-groups))
-         (cond
-          ((null gr)
-           (tab-make-new-group win)
-           )
-          ((member win (tab-group-window-list (car gr)))
-           (car gr))
-          (t
-           (loop (cdr gr))))))
+      (cond
+       ((null gr)
+	(tab-make-new-group win)
+	)
+       ((member win (tab-group-window-list (car gr)))
+	(car gr))
+       (t
+	(loop (cdr gr))))))
 
   (define (tab-window-group-index win)
     "Return the index of the group containing win"
     (let loop ((index 0))
-         (cond
-          ((eq index (length tab-groups))
-           (tab-make-new-group win)
-           index)
-          ((member win (tab-group-window-list (nth index tab-groups)))
-           index)
-          (t
-           (loop (+ index 1))))))
+      (cond
+       ((eq index (length tab-groups))
+	(tab-make-new-group win)
+	index)
+       ((member win (tab-group-window-list (nth index tab-groups)))
+	index)
+       (t
+	(loop (+ index 1))))))
 
   (define (tab-rank elem list)
     (if (eq elem (car list))
@@ -306,7 +306,7 @@
               (lambda (win args)
                 (if (= '(frame-style) args)
                     (adjustment-title win)
-                    (tab-refresh-group win 'reframe-style))))
+		  (tab-refresh-group win 'reframe-style))))
     (add-hook 'window-state-change-hook
               (lambda (win args)
                 (if (= '(type) args)