# HG changeset patch
# User Masatake YAMATO <jet@gyve.org>
# Date 1181915808 0
# Node ID 92e6c9d0321c10f97f9a1c96faaf45fa6981fa0c
# Parent  0d9fd7d971e8590768e9bc0d57f09e6b9dbcfe76
* vc.el (vc-dired-mode): Show backend name as part of mode name.

diff -r 0d9fd7d971e8 -r 92e6c9d0321c lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Jun 15 10:12:58 2007 +0000
+++ b/lisp/ChangeLog	Fri Jun 15 13:56:48 2007 +0000
@@ -1,3 +1,7 @@
+2007-06-15  Masatake YAMATO  <jet@gyve.org>
+
+	* vc.el (vc-dired-mode): Show backend name as part of mode name.
+
 2007-06-14  Chong Yidong  <cyd@stupidchicken.com>
 
 	* wid-edit.el (widget-default-create): Move ?h handling here...
diff -r 0d9fd7d971e8 -r 92e6c9d0321c lisp/vc.el
--- a/lisp/vc.el	Fri Jun 15 10:12:58 2007 +0000
+++ b/lisp/vc.el	Fri Jun 15 13:56:48 2007 +0000
@@ -2096,7 +2096,7 @@
     (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 @@
        (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 ()