procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(vc-menu-map): New menu.

Browse source 
(menu-bar-file-menu): Put the VC map under the File map.
This commit is contained in:
Richard M. Stallman 1994-09-21 20:48:00 +00:00
parent fe213bf888
commit 9dcdc43dc9
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/menu-bar.el
View file

@ -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]