[PATCH 2/5] git.el: Set default directory before running the status mode setup hooks.

Alexandre Julliard· Mar 4, 2006, 16:38 UTC · lore

Also set the list-buffers-directory variable for nicer buffer list display.

Signed-off-by: Alexandre Julliard <julliard@winehq.org>

---

 contrib/emacs/git.el |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

437d990348e13e6a4460cc445ec5d2b2077cf2fb

Show changes to contrib/emacs/git.el +2 −1

diff --git a/contrib/emacs/git.el b/contrib/emacs/git.el
index 5828d4c..2363e48 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)))

-- 
1.2.4.g0040-dirty


-- 
Alexandre Julliard
julliard@winehq.org

patch, 5 partsgit.el: Set default directory before running the status mode setup hooks.