[StGit PATCH] Add support for initializing a branch for stgit from Emacs.

["David Kågedal" <davidk@lysator.liu.se>]

Signed-off-by: David Kågedal <davidk@lysator.liu.se>
---
 contrib/stgit.el |   12 +++++++++++-
 1 files changed, 11 insertions(+), 1 deletions(-)

This diff was taken against kha/experimental, but I don't think the
file has changed there.

diff --git a/contrib/stgit.el b/contrib/stgit.el
index 5aaf311..aafefaf 100644
--- a/contrib/stgit.el
+++ b/contrib/stgit.el
@@ -130,7 +130,10 @@ Argument DIR is the repository path."
                                     'face 'stgit-description-face)
                  (when (memq patchsym stgit-marked-patches)
                    (replace-match "*" nil nil nil 2)
-                   (setq marked (cons patchsym marked))))))
+                   (setq marked (cons patchsym marked)))))
+              ((looking-at "stg series: Branch \".*\" not initialised")
+               (forward-line 1)
+               (insert "Run M-x stgit-init to initialise")))
         (forward-line 1))
       (setq stgit-marked-patches (nreverse marked)))))
 
@@ -218,6 +221,13 @@ Commands:
       (goto-char p)
       nil)))
 
+(defun stgit-init ()
+  "Run stg init"
+  (interactive)
+  (stgit-capture-output nil
+   (stgit-run "init"))
+  (stgit-refresh))
+
 (defun stgit-mark ()
   "Mark the patch under point"
   (interactive)
-- 
1.6.0.rc2.7.gbf8a


-- 
David Kågedal