+(defun stgit-quit ()
+ "Hide the stgit buffer"
+ (interactive)
+ (bury-buffer))
+
+(defun stgit-git-status ()
+ "Show status using `git-status'"
+ (interactive)
+ (unless (fboundp 'git-status)
+ (error "stgit-git-status requires git-status"))
+ (let ((dir default-directory))
+ (save-selected-window
+ (pop-to-buffer nil)
+ (git-status dir))))
+