From 0f076fe6b1a561a3a84a2f5938110118944577a2 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Gustav=20H=C3=A5llberg?= <gustav@virtutech.com>
Date: Wed, 10 Dec 2008 21:03:50 +0100
Subject: [PATCH] stgit.el: Add stgit-git-status
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

Signed-off-by: Gustav HÃ¥llberg <gustav@virtutech.com>
Acked-by: David KÃ¥gedal <davidk@lysator.liu.se>
Signed-off-by: Karl Hasselström <kha@treskal.com>
---
 contrib/stgit.el | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/contrib/stgit.el b/contrib/stgit.el
index eb50213..220e159 100644
--- a/contrib/stgit.el
+++ b/contrib/stgit.el
@@ -9,6 +9,8 @@
 ;;
 ;; To start: `M-x stgit'
 
+(require 'git nil t)
+
 (defun stgit (dir)
   "Manage stgit patches"
   (interactive "DDirectory: \n")
@@ -149,6 +151,16 @@ Argument DIR is the repository path."
   (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))))
+
 (defvar stgit-mode-hook nil
   "Run after `stgit-mode' is setup.")
 
@@ -167,6 +179,7 @@ Argument DIR is the repository path."
           ("h" .        stgit-help)
           ("p" .        previous-line)
           ("n" .        next-line)
+          ("s" .        stgit-git-status)
           ("g" .        stgit-reload)
           ("r" .        stgit-refresh)
           ("\C-c\C-r" . stgit-rename)
-- 
2.11.0