diff options
author | Richard M. Stallman <rms@gnu.org> | 1994-09-21 20:48:00 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1994-09-21 20:48:00 +0000 |
commit | 5f399b3d644d72591c6ac186b921b0aa2e428b31 (patch) | |
tree | 031fccd78621124905daf55638f2851a43674c07 /lisp/menu-bar.el | |
parent | 225ecf0cdc72be71aa1a1f996fd6185758ee5202 (diff) | |
download | emacs-5f399b3d644d72591c6ac186b921b0aa2e428b31.tar.gz |
(vc-menu-map): New menu.
(menu-bar-file-menu): Put the VC map under the File map.
Diffstat (limited to 'lisp/menu-bar.el')
-rw-r--r-- | lisp/menu-bar.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index a309c62d1f6..13a229247be 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -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] |