"Run stg init"
(interactive)
(stgit-capture-output nil
- (stgit-run "init"))
+ (stgit-run "init"))
(stgit-reload))
(defun stgit-mark ()
"Run stg repair"
(interactive)
(stgit-capture-output nil
- (stgit-run "repair"))
+ (stgit-run "repair"))
(stgit-reload))
(defun stgit-commit ()
(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 ()
(interactive)
(let ((patch (stgit-patch-at-point)))
(stgit-capture-output nil
- (stgit-run "goto" patch))
+ (stgit-run "goto" patch))
(stgit-reload)))
(defun stgit-show ()
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))