Mercurial > emacs

diff lisp/menu-bar.el @ 78822:1926a08e8926

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* 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.
author Dan Nicolaescu <dann@ics.uci.edu>
date Tue, 18 Sep 2007 01:28:25 +0000
parents a0c48816cbe9
children ab22b2902e1f
line wrap: on
line diff
--- a/lisp/menu-bar.el	Tue Sep 18 00:46:48 2007 +0000
+++ b/lisp/menu-bar.el	Tue Sep 18 01:28:25 2007 +0000
@@ -1160,11 +1160,9 @@
 (define-key menu-bar-tools-menu [separator-vc]
   '("--"))
 
-(defvar vc-menu-map (make-sparse-keymap "Version Control"))
 (define-key menu-bar-tools-menu [pcl-cvs]
   '(menu-item "PCL-CVS" cvs-global-menu))
-(define-key menu-bar-tools-menu [vc]
-  (list 'menu-item "Version Control" vc-menu-map))
+(define-key menu-bar-tools-menu [vc] nil) ;Create the place for the VC menu.
 
 (define-key menu-bar-tools-menu [separator-compare]
   '("--"))