From c5d45b923eaba7b6efe313fd6c0e5e4d6dc6c337 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Gustav=20H=C3=A5llberg?= <gustav@virtutech.com>
Date: Wed, 10 Dec 2008 21:03:52 +0100
Subject: [PATCH] stgit.el: Fix working directory bug in stgit-new
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 | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

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