From: Masatake YAMATO <jet@gyve.org>
Date: Sat, 28 Jul 2007 18:11:25 +0000 (+0000)
Subject: (vc-dired-mode): Added a menu for VC related
X-Git-Tag: emacs-pretest-23.0.90~11661
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9d2aebf64918002fe3c1ad9ffcdbb69b0844159e;p=emacs.git

(vc-dired-mode): Added a menu for VC related
operation. Use backend name as the menu label Suggested by
David Kastrup.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ee84d615046..a9dc3eed6aa 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2007-07-28  Masatake YAMATO  <jet@gyve.org>
+
+	* vc.el (vc-dired-mode): Added a menu for VC related
+	operation. Use backend name as the menu label Suggested by
+	David Kastrup.
+
 2007-07-28  Alan Mackenzie  <acm@muc.de>
 
 	Fix problem with modes derived from CC Mode:
diff --git a/lisp/vc.el b/lisp/vc.el
index 08baa16e6b4..6504a7ea644 100644
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -2233,8 +2233,13 @@ 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))))
+  (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 ()