Mercurial > emacs
comparison lisp/menu-bar.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.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Tue, 18 Sep 2007 01:28:25 +0000 |
| parents | a0c48816cbe9 |
| children | ab22b2902e1f |
comparison
equal
deleted
inserted
replaced
| 78821:4341c4b4d652 | 78822:1926a08e8926 |
|---|---|
| 1158 :help "Read network news groups")) | 1158 :help "Read network news groups")) |
| 1159 | 1159 |
| 1160 (define-key menu-bar-tools-menu [separator-vc] | 1160 (define-key menu-bar-tools-menu [separator-vc] |
| 1161 '("--")) | 1161 '("--")) |
| 1162 | 1162 |
| 1163 (defvar vc-menu-map (make-sparse-keymap "Version Control")) | |
| 1164 (define-key menu-bar-tools-menu [pcl-cvs] | 1163 (define-key menu-bar-tools-menu [pcl-cvs] |
| 1165 '(menu-item "PCL-CVS" cvs-global-menu)) | 1164 '(menu-item "PCL-CVS" cvs-global-menu)) |
| 1166 (define-key menu-bar-tools-menu [vc] | 1165 (define-key menu-bar-tools-menu [vc] nil) ;Create the place for the VC menu. |
| 1167 (list 'menu-item "Version Control" vc-menu-map)) | |
| 1168 | 1166 |
| 1169 (define-key menu-bar-tools-menu [separator-compare] | 1167 (define-key menu-bar-tools-menu [separator-compare] |
| 1170 '("--")) | 1168 '("--")) |
| 1171 | 1169 |
| 1172 (define-key menu-bar-tools-menu [ediff-misc] | 1170 (define-key menu-bar-tools-menu [ediff-misc] |