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

[stgit] / contrib / stgit.el

diff --git a/contrib/stgit.el b/contrib/stgit.el
index 220e1590e1211f57820c94a07076d073ccbe6671..fb632d237c7d73c6d9055e410b08e295204f2103 100644 (file)
--- a/contrib/stgit.el
+++ b/contrib/stgit.el
@@ -386,8 +386,10 @@ (defun stgit-confirm-edit ()
 (defun stgit-new ()
   "Create a new patch"
   (interactive)
 (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)
 
 (defun stgit-confirm-new ()
   (interactive)