Mercurial > emacs
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 |