diff options
| author |  Alexandre Julliard <julliard@winehq.org> | 2006-03-04 17:38:05 +0100 |
|---|---|---|
| committer |  Junio C Hamano <junkio@cox.net> | 2006-03-04 13:46:13 -0800 |
| commit | a944652c054464ab3a70cead89df170602339512 (patch) | |
| tree | c851ca5c29b2ffacb139f65f6a9889353814fab1 | |
| parent | git.el: Portability fixes for XEmacs and Emacs CVS. (diff) | |
| download | tgif-a944652c054464ab3a70cead89df170602339512.tar.xz | |
git.el: Set default directory before running the status mode setup hooks.
Also set the list-buffers-directory variable for nicer buffer list
display.
Signed-off-by: Alexandre Julliard <julliard@winehq.org>
Signed-off-by: Junio C Hamano <junkio@cox.net>
| -rw-r--r-- | contrib/emacs/git.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/contrib/emacs/git.el b/contrib/emacs/git.el index 5828d4c693..2363e48c29 100644 --- a/contrib/emacs/git.el +++ b/contrib/emacs/git.el @@ -943,6 +943,7 @@ Commands: (erase-buffer) (let ((status (ewoc-create 'git-fileinfo-prettyprint "" ""))) (set (make-local-variable 'git-status) status)) + (set (make-local-variable 'list-buffers-directory) default-directory) (run-hooks 'git-status-mode-hook))) (defun git-status (dir) @@ -952,8 +953,8 @@ Commands: (if (file-directory-p (concat (file-name-as-directory dir) ".git")) (let ((buffer (create-file-buffer (expand-file-name "*git-status*" dir)))) (switch-to-buffer buffer) - (git-status-mode) (cd dir) + (git-status-mode) (git-refresh-status) (goto-char (point-min))) (message "%s is not a git working tree." dir))) |