From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 21 Sep 1994 20:48:00 +0000 (+0000)
Subject: (vc-menu-map): New menu.
X-Git-Tag: emacs-19.34~6877
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9dcdc43dc9c61d0c165c6d507fc363f7d893d852;p=emacs.git

(vc-menu-map): New menu.
(menu-bar-file-menu): Put the VC map under the File map.
---

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]