Mercurial > emacs

comparison lisp/menu-bar.el @ 8977:c8e2c62cf851

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 5809c1ce795d
children 28c6c3d7efb4
comparison
equal deleted inserted replaced
8976:2ddf9526b8b8 8977:c8e2c62cf851
34 (defvar menu-bar-edit-menu (make-sparse-keymap "Edit")) 34 (defvar menu-bar-edit-menu (make-sparse-keymap "Edit"))
35 (define-key global-map [menu-bar edit] (cons "Edit" menu-bar-edit-menu)) 35 (define-key global-map [menu-bar edit] (cons "Edit" menu-bar-edit-menu))
36 (defvar menu-bar-file-menu (make-sparse-keymap "File")) 36 (defvar menu-bar-file-menu (make-sparse-keymap "File"))
37 (define-key global-map [menu-bar file] (cons "File" menu-bar-file-menu)) 37 (define-key global-map [menu-bar file] (cons "File" menu-bar-file-menu))
38 38
39 (defvar vc-menu-map (make-sparse-keymap "Version Control"))
40
39 (define-key menu-bar-file-menu [exit-emacs] 41 (define-key menu-bar-file-menu [exit-emacs]
40 '("Exit Emacs" . save-buffers-kill-emacs)) 42 '("Exit Emacs" . save-buffers-kill-emacs))
41 43
42 (define-key menu-bar-file-menu [separator-compare] 44 (define-key menu-bar-file-menu [separator-compare]
43 '("--")) 45 '("--"))
70 '("Print Buffer" . print-buffer)) 72 '("Print Buffer" . print-buffer))
71 (define-key menu-bar-file-menu [kill-buffer] 73 (define-key menu-bar-file-menu [kill-buffer]
72 '("Kill (Current) Buffer" . kill-this-buffer)) 74 '("Kill (Current) Buffer" . kill-this-buffer))
73 (define-key menu-bar-file-menu [insert-file] 75 (define-key menu-bar-file-menu [insert-file]
74 '("Insert File" . insert-file)) 76 '("Insert File" . insert-file))
77 (define-key menu-bar-file-menu [vc-menu]
78 (cons "Version Control" vc-menu-map))
75 (define-key menu-bar-file-menu [revert-buffer] 79 (define-key menu-bar-file-menu [revert-buffer]
76 '("Revert Buffer" . revert-buffer)) 80 '("Revert Buffer" . revert-buffer))
77 (define-key menu-bar-file-menu [write-file] 81 (define-key menu-bar-file-menu [write-file]
78 '("Save Buffer As..." . write-file)) 82 '("Save Buffer As..." . write-file))
79 (define-key menu-bar-file-menu [save-buffer] '("Save Buffer" . save-buffer)) 83 (define-key menu-bar-file-menu [save-buffer] '("Save Buffer" . save-buffer))