--- /usr/share/emacs/site-lisp/git.el.orig	2007-08-03 21:59:26 +0800
+++ /usr/share/emacs/site-lisp/git.el	2007-08-03 22:07:41 +0800
@@ -97,6 +97,15 @@ if there is already one that displays th
   :group 'git
   :type 'string)
 
+(defcustom git-status-modeline-format "*git-status*"
+  "Format specification for git-status modeline.
+These fields are available at this moment:
+
+%d	directory, opened by git-status
+"
+  :group 'git
+  :type 'string)
+
 
 (defface git-status-face
   '((((class color) (background light)) (:foreground "purple")))
@@ -1200,7 +1209,7 @@ Commands:
   (setq dir (git-get-top-dir dir))
   (if (file-directory-p (concat (file-name-as-directory dir) ".git"))
       (let ((buffer (or (and git-reuse-status-buffer (git-find-status-buffer dir))
-                        (create-file-buffer (expand-file-name "*git-status*" dir)))))
+                        (create-file-buffer (expand-file-name (format-spec git-status-modeline-format (list (cons ?d dir))) dir)))))
         (switch-to-buffer buffer)
         (cd dir)
         (git-status-mode)