Mercurial > emacs
changeset 8977:c8e2c62cf851
(vc-menu-map): New menu.
(menu-bar-file-menu): Put the VC map under the File map.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 21 Sep 1994 20:48:00 +0000 |
| parents | 2ddf9526b8b8 |
| children | 60851a1fb44e |
| files | lisp/menu-bar.el |
| diffstat | 1 files changed, 4 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/menu-bar.el Wed Sep 21 19:05:52 1994 +0000 +++ b/lisp/menu-bar.el Wed Sep 21 20:48:00 1994 +0000 @@ -36,6 +36,8 @@ (defvar menu-bar-file-menu (make-sparse-keymap "File")) (define-key global-map [menu-bar file] (cons "File" menu-bar-file-menu)) +(defvar vc-menu-map (make-sparse-keymap "Version Control")) + (define-key menu-bar-file-menu [exit-emacs] '("Exit Emacs" . save-buffers-kill-emacs)) @@ -72,6 +74,8 @@ '("Kill (Current) Buffer" . kill-this-buffer)) (define-key menu-bar-file-menu [insert-file] '("Insert File" . insert-file)) +(define-key menu-bar-file-menu [vc-menu] + (cons "Version Control" vc-menu-map)) (define-key menu-bar-file-menu [revert-buffer] '("Revert Buffer" . revert-buffer)) (define-key menu-bar-file-menu [write-file]