Attachment 2136 Details for Bug 12460 – Git.el's patch to enable modeline customization

[patch] Git.el's patch to enable modeline customization

git-status-modeline-format.patch (text/plain), 1.04 KB, created by Evgenii Terechkov on 2007-08-03 18:29:37 MSD

(hide)

Description:

Filename:

MIME Type:

Creator: Evgenii Terechkov

Created: 2007-08-03 18:29:37 MSD

Size: 1.04 KB

patch

obsolete

>--- /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)

Actions: View | Diff

Attachments on bug 12460: 2136