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 9e92ad7d9bcab49decf24d1f91579575b185f015..eb50213b0128eadcafc6a5d6698f3d340b13933c 100644 (file)
--- a/contrib/stgit.el
+++ b/contrib/stgit.el
@@ -247,7 +247,7 @@ (defun stgit-init ()
   "Run stg init"
   (interactive)
   (stgit-capture-output nil
   "Run stg init"
   (interactive)
   (stgit-capture-output nil

-   (stgit-run "init"))
+    (stgit-run "init"))

   (stgit-reload))
 
 (defun stgit-mark ()
   (stgit-reload))
 
 (defun stgit-mark ()


@@ -287,7 +287,7 @@ (defun stgit-repair ()
   "Run stg repair"
   (interactive)
   (stgit-capture-output nil
   "Run stg repair"
   (interactive)
   (stgit-capture-output nil

-   (stgit-run "repair"))
+    (stgit-run "repair"))

   (stgit-reload))
 
 (defun stgit-commit ()
   (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
   (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 ()
     (stgit-reload)))
 
 (defun stgit-goto ()


@@ -337,7 +337,7 @@ (defun stgit-goto ()
   (interactive)
   (let ((patch (stgit-patch-at-point)))
     (stgit-capture-output nil
   (interactive)
   (let ((patch (stgit-patch-at-point)))
     (stgit-capture-output nil

-       (stgit-run "goto" patch))
+      (stgit-run "goto" patch))

     (stgit-reload)))
 
 (defun stgit-show ()
     (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
 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))
     (stgit-capture-output nil
       (apply 'stgit-run "refresh" patchargs)))
   (stgit-reload))