From 655a39775cad71e4184563c24771306b34b4a470 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Gustav=20H=C3=A5llberg?= Date: Wed, 28 Oct 2009 12:22:51 +0100 Subject: [PATCH] stgit.el: Position point at beginning of buffer before editing messages MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Signed-off-by: Gustav HÃ¥llberg Signed-off-by: Karl Wiberg --- contrib/stgit.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) 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 -- 2.11.0