diff options
author | Gustav HÃ¥llberg <gustav@virtutech.com> | 2009-10-28 12:22:51 +0100 |
---|---|---|
committer | Karl Wiberg <kha@treskal.com> | 2009-10-28 12:22:51 +0100 |
commit | 655a39775cad71e4184563c24771306b34b4a470 (patch) | |
tree | 2bfbf41a0c8f9b2de05ee7b87ee903e345eec3e4 | |
parent | 09700575b6884f6ed304b19c9b56c1bcb13ec31f (diff) | |
download | stgit-655a39775cad71e4184563c24771306b34b4a470.tar.gz |
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>
-rw-r--r-- | contrib/stgit.el | 8 |
1 files 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 |