diff options
| author | Christian Neukirchen <chneukirchen@gmail.com> | 2008-04-09 18:53:41 +0200 |
|---|---|---|
| committer | Christian Neukirchen <chneukirchen@gmail.com> | 2008-04-09 18:53:41 +0200 |
| commit | 2d341311055de31d8842cb6cc99c45ae5c8ef987 (patch) | |
| tree | d8c22f196763e0e4b35fadaab69922ee307338c6 | |
| parent | 974d1193d2d0c039ba4d89d776218bf3a2fbe564 (diff) | |
| download | gitsum-2d341311055de31d8842cb6cc99c45ae5c8ef987.tar.gz gitsum-2d341311055de31d8842cb6cc99c45ae5c8ef987.tar.xz gitsum-2d341311055de31d8842cb6cc99c45ae5c8ef987.zip | |
Ensure log buffer has correct default-directory
| -rw-r--r-- | gitsum.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gitsum.el b/gitsum.el index fcc9262..ccef992 100644 --- a/gitsum.el +++ b/gitsum.el @@ -87,9 +87,11 @@ A numeric argument serves as a repeat count." "Commit the patch as-is, asking for a commit message." (interactive) (shell-command-on-region (point-min) (point-max) "git apply --check --cached") - (let ((buffer (get-buffer-create "*gitsum-commit*"))) + (let ((buffer (get-buffer-create "*gitsum-commit*")) + (dir default-directory)) (shell-command-on-region (point-min) (point-max) "(cat; git diff --cached) | git apply --stat" buffer) (with-current-buffer buffer + (setq default-directory dir) (goto-char (point-min)) (insert "\n") (while (re-search-forward "^" nil t) |