diff options
author | Masatake YAMATO <[email protected]> | 2007-06-15 13:56:48 +0000 |
---|---|---|
committer | Masatake YAMATO <[email protected]> | 2007-06-15 13:56:48 +0000 |
commit | 3827b5322ab25be0bed9afa9e4415bd85651ac26 (patch) | |
tree | 5f608d70ce8e3f276fb0d0e4c84d1b3ee49e2047 | |
parent | efc64f821d4e62a7009170627b7ea34686a8df95 (diff) |
* vc.el (vc-dired-mode): Show backend name as part of mode name.
-rw-r--r-- | lisp/ChangeLog | 4 | ||||
-rw-r--r-- | lisp/vc.el | 4 |
2 files changed, 7 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1d64632e07..e4dfd7f7d4 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2007-06-15 Masatake YAMATO <[email protected]> + + * vc.el (vc-dired-mode): Show backend name as part of mode name. + 2007-06-14 Chong Yidong <[email protected]> * wid-edit.el (widget-default-create): Move ?h handling here... diff --git a/lisp/vc.el b/lisp/vc.el index a65e698669..7d9844f3bc 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -2096,7 +2096,7 @@ See Info node `Merging'." (define-key vmap "t" 'vc-dired-toggle-terse-mode) map)) -(define-derived-mode vc-dired-mode dired-mode "Dired under VC" +(define-derived-mode vc-dired-mode dired-mode "Dired under " "The major mode used in VC directory buffers. It works like Dired, but lists only files under version control, with @@ -2156,6 +2156,8 @@ There is a special command, `*l', to mark all files currently locked." (set (make-local-variable 'dired-actual-switches) vc-dired-switches)) (set (make-local-variable 'vc-dired-terse-mode) vc-dired-terse-display) + (setq mode-name (concat mode-name (symbol-name (vc-responsible-backend + default-directory)))) (setq vc-dired-mode t)) (defun vc-dired-toggle-terse-mode () |