From: Gustav Hållberg <gustav@virtutech.com>
Date: Wed, 10 Dec 2008 20:03:52 +0000 (+0100)
Subject: stgit.el: Fix working directory bug in stgit-new
X-Git-Tag: v0.15-rc1~81
X-Git-Url: https://git.distorted.org.uk/~mdw/stgit/commitdiff_plain/c5d45b923eaba7b6efe313fd6c0e5e4d6dc6c337

stgit.el: Fix working directory bug in stgit-new

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>
---

diff --git a/contrib/stgit.el b/contrib/stgit.el
index 220e159..fb632d2 100644
--- a/contrib/stgit.el
+++ b/contrib/stgit.el
@@ -386,8 +386,10 @@ With numeric prefix argument, pop that many patches."
 (defun stgit-new ()
   "Create a new patch"
   (interactive)
-  (let ((edit-buf (get-buffer-create "*StGit edit*")))
-    (log-edit 'stgit-confirm-new t nil edit-buf)))
+  (let ((edit-buf (get-buffer-create "*StGit edit*"))
+        (dir default-directory))
+    (log-edit 'stgit-confirm-new t nil edit-buf)
+    (setq default-directory dir)))
 
 (defun stgit-confirm-new ()
   (interactive)