[Emacs-diffs] Changes to emacs/lisp/vc.el,v

[Masatake YAMATO]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Masatake YAMATO <jet>   07/07/28 18:11:26

Index: vc.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/vc.el,v
retrieving revision 1.444
retrieving revision 1.445
diff -u -b -r1.444 -r1.445
--- vc.el       26 Jul 2007 18:44:37 -0000      1.444
+++ vc.el       28 Jul 2007 18:11:25 -0000      1.445
@@ -2233,8 +2233,13 @@
        (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 
+  (let ((backend-name (symbol-name (vc-responsible-backend
                                                  default-directory))))
+    (setq mode-name (concat mode-name backend-name))
+    ;; Add menu after `vc-dired-mode-map' has `dired-mode-map' as the parent.
+    (let ((vc-dire-menu-map (copy-keymap vc-menu-map)))
+      (define-key-after (lookup-key vc-dired-mode-map [menu-bar]) [vc] 
+       (cons backend-name vc-dire-menu-map) 'subdir)))
   (setq vc-dired-mode t))
 
 (defun vc-dired-toggle-terse-mode ()