comparison lisp/menu-bar.el @ 81815:7ac8c70c6834

* vc-hooks.el (vc-default-mode-line-string): Add a mouse face, mouse binding and a tooltip. * menu-bar.el (vc-menu-map): New defalias.
author Dan Nicolaescu <dann@ics.uci.edu>
date Wed, 11 Jul 2007 18:37:38 +0000
parents f2d0a689f202
children b98604865ea0 0ece58f6e0aa a66921565bcb
comparison
equal deleted inserted replaced
81814:d484a8f11257 81815:7ac8c70c6834
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")) 1163 (defvar vc-menu-map (make-sparse-keymap "Version Control"))
1164 (defalias 'vc-menu-map vc-menu-map)
1164 (define-key menu-bar-tools-menu [pcl-cvs] 1165 (define-key menu-bar-tools-menu [pcl-cvs]
1165 '(menu-item "PCL-CVS" cvs-global-menu)) 1166 '(menu-item "PCL-CVS" cvs-global-menu))
1166 (define-key menu-bar-tools-menu [vc] 1167 (define-key menu-bar-tools-menu [vc]
1167 (list 'menu-item "Version Control" vc-menu-map)) 1168 (list 'menu-item "Version Control" vc-menu-map))
1168 1169