From: Gustav Hållberg <gustav@virtutech.com>
Date: Wed, 28 Oct 2009 11:22:51 +0000 (+0100)
Subject: stgit.el: Position point at beginning of buffer before editing messages
X-Git-Url: https://git.distorted.org.uk/~mdw/stgit/commitdiff_plain/655a39775cad71e4184563c24771306b34b4a470?ds=sidebyside

stgit.el: Position point at beginning of buffer before editing messages

Signed-off-by: Gustav Hållberg <gustav@virtutech.com>
Signed-off-by: Karl Wiberg <kha@treskal.com>
---

diff --git a/contrib/stgit.el b/contrib/stgit.el
index 9734cb4..4482e67 100644
--- a/contrib/stgit.el
+++ b/contrib/stgit.el
@@ -1703,7 +1703,8 @@ file ended up. You can then jump to the file with \
     (set (make-local-variable 'stgit-edit-patchsym) patchsym)
     (setq default-directory dir)
     (let ((standard-output edit-buf))
-      (stgit-run-silent "edit" "--save-template=-" patchsym))))
+      (save-excursion
+        (stgit-run-silent "edit" "--save-template=-" patchsym)))))
 
 (defun stgit-confirm-edit ()
   (interactive)
@@ -1891,8 +1892,9 @@ deepest patch had before the squash."
     (set (make-local-variable 'stgit-patchsyms) sorted-patchsyms)
     (setq default-directory dir)
     (let ((result (let ((standard-output edit-buf))
-                    (apply 'stgit-run-silent "squash"
-                           "--save-template=-" sorted-patchsyms))))
+                    (save-excursion
+                      (apply 'stgit-run-silent "squash"
+                             "--save-template=-" sorted-patchsyms)))))
 
       ;; stg squash may have reordered the patches or caused conflicts
       (with-current-buffer stgit-buffer