diff lisp/vc-arch.el @ 78822:1926a08e8926

* vc-arch.el (vc-arch-extra-menu-map): New var and fun. * vc-hooks.el (vc-menu-entry): New var. (vc-mode-line-map): Use it so that this menu also uses the extra-menu. (menu-bar-tools-menu): Add the VC menu here rather than in menu-bar.el. (vc-menu-map): Declare and initialize in one step. * menu-bar.el (vc-menu-map): Don't setup any more. Instead, just create the proper spot in the menu. * vc.el: Document new VC operation `extra-menu'. * vc-hooks.el (vc-default-extra-menu, vc-menu-map-filter): New function.

--- a/lisp/vc-arch.el	Tue Sep 18 00:46:48 2007 +0000
+++ b/lisp/vc-arch.el	Tue Sep 18 01:28:25 2007 +0000
@@ -444,6 +444,15 @@
              (table (vc-arch--version-completion-table root string)))
 	(complete-with-action action table string pred)))))
 
+(defvar vc-arch-extra-menu-map
+  (let ((map (make-sparse-keymap)))
+    (define-key map [add-tagline]
+      '(menu-item "Add tagline" vc-arch-add-tagline))
+    map))
+
+(defun vc-arch-extra-menu () vc-arch-extra-menu-map)
+  
+
 ;;; Less obvious implementations.
 
 (defun vc-arch-find-version (file rev buffer)