From: Gustav Hållberg <gustav@virtutech.com>
Date: Mon, 8 Dec 2008 20:24:37 +0000 (+0100)
Subject: stgit.el: Fix some indentation
X-Git-Tag: v0.15-rc1~85
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/stgit/commitdiff_plain/b0424080e1f7f74495faab93ee00b2b7d0546d6f

stgit.el: Fix some indentation

Signed-off-by: Gustav Hållberg <gustav@virtutech.com>
Signed-off-by: Karl Hasselström <kha@treskal.com>
---

diff --git a/contrib/stgit.el b/contrib/stgit.el
index 9e92ad7..eb50213 100644
--- a/contrib/stgit.el
+++ b/contrib/stgit.el
@@ -247,7 +247,7 @@ (defun stgit-init ()
   "Run stg init"
   (interactive)
   (stgit-capture-output nil
-   (stgit-run "init"))
+    (stgit-run "init"))
   (stgit-reload))
 
 (defun stgit-mark ()
@@ -287,7 +287,7 @@ (defun stgit-repair ()
   "Run stg repair"
   (interactive)
   (stgit-capture-output nil
-   (stgit-run "repair"))
+    (stgit-run "repair"))
   (stgit-reload))
 
 (defun stgit-commit ()
@@ -329,7 +329,7 @@ (defun stgit-push-or-pop ()
   (let ((patch (stgit-patch-at-point))
         (applied (stgit-applied-at-point)))
     (stgit-capture-output nil
-       (stgit-run (if applied "pop" "push") patch))
+      (stgit-run (if applied "pop" "push") patch))
     (stgit-reload)))
 
 (defun stgit-goto ()
@@ -337,7 +337,7 @@ (defun stgit-goto ()
   (interactive)
   (let ((patch (stgit-patch-at-point)))
     (stgit-capture-output nil
-       (stgit-run "goto" patch))
+      (stgit-run "goto" patch))
     (stgit-reload)))
 
 (defun stgit-show ()
@@ -461,14 +461,14 @@ (defun stgit-refresh (&optional arg)
 With prefix argument, refresh the patch under point."
   (interactive "P")
   (let ((patchargs (if arg
-                      (let ((patches (stgit-patches-marked-or-at-point)))
-                        (cond ((null patches)
-                               (error "no patch to update"))
-                              ((> (length patches) 1)
-                               (error "too many patches selected"))
-                              (t
-                               (cons "-p" patches))))
-                    nil)))
+                       (let ((patches (stgit-patches-marked-or-at-point)))
+                         (cond ((null patches)
+                                (error "no patch to update"))
+                               ((> (length patches) 1)
+                                (error "too many patches selected"))
+                               (t
+                                (cons "-p" patches))))
+                     nil)))
     (stgit-capture-output nil
       (apply 'stgit-run "refresh" patchargs)))
   (stgit-reload))