Mercurial > emacs

comparison lisp/menu-bar.el @ 8010:e199eda519b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Rearrange the edit and file menus, and add separators.
author Richard M. Stallman <rms@gnu.org>
date Wed, 22 Jun 1994 20:37:41 +0000
parents 81b1a17562fe
children 6a0af6085c1a
comparison
equal deleted inserted replaced
8009:abbe65c17b55 8010:e199eda519b5
33 (define-key global-map [menu-bar help] (cons "Help" menu-bar-help-menu)) 33 (define-key global-map [menu-bar help] (cons "Help" menu-bar-help-menu))
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 (define-key menu-bar-file-menu [exit-emacs] 39 (define-key menu-bar-file-menu [exit-emacs]
40 '("Exit Emacs" . save-buffers-kill-emacs)) 40 '("Exit Emacs" . save-buffers-kill-emacs))
41 (define-key menu-bar-file-menu [kill-buffer] 41
42 '("Kill Buffer" . kill-this-buffer)) 42 (define-key menu-bar-file-menu [separator-compare]
43 (define-key menu-bar-file-menu [delete-frame] '("Delete Frame" . delete-frame)) 43 '("--"))
44
44 (define-key menu-bar-file-menu [epatch] 45 (define-key menu-bar-file-menu [epatch]
45 '("Apply Patch" . menu-bar-epatch-menu)) 46 '("Apply Patch" . menu-bar-epatch-menu))
46 (define-key menu-bar-file-menu [ediff] 47 (define-key menu-bar-file-menu [ediff]
47 '("Compare Files" . menu-bar-ediff-menu)) 48 '("Compare Files" . menu-bar-ediff-menu))
48 (define-key menu-bar-file-menu [emerge] '("Emerge" . menu-bar-emerge-menu)) 49 (define-key menu-bar-file-menu [emerge] '("Emerge" . menu-bar-emerge-menu))
50
51 (define-key menu-bar-file-menu [separator-misc]
52 '("--"))
53
49 (define-key menu-bar-file-menu [calendar] '("Calendar" . calendar)) 54 (define-key menu-bar-file-menu [calendar] '("Calendar" . calendar))
50 (define-key menu-bar-file-menu [rmail] '("Read Mail" . rmail)) 55 (define-key menu-bar-file-menu [rmail] '("Read Mail" . rmail))
51 (define-key menu-bar-file-menu [gnus] '("Read Net News" . gnus)) 56 (define-key menu-bar-file-menu [gnus] '("Read Net News" . gnus))
57
58 (define-key menu-bar-file-menu [separator-frames]
59 '("--"))
60
61 (define-key menu-bar-file-menu [delete-frame] '("Delete Frame" . delete-frame))
62 (define-key menu-bar-file-menu [make-frame] '("Make New Frame" . make-frame))
63
64 (define-key menu-bar-file-menu [separator-buffers]
65 '("--"))
66
52 (define-key menu-bar-file-menu [bookmark] 67 (define-key menu-bar-file-menu [bookmark]
53 '("Bookmarks" . menu-bar-bookmark-map)) 68 '("Bookmarks" . menu-bar-bookmark-map))
54 (define-key menu-bar-file-menu [print-buffer] '("Print Buffer" . print-buffer)) 69 (define-key menu-bar-file-menu [print-buffer]
70 '("Print Buffer" . print-buffer))
71 (define-key menu-bar-file-menu [kill-buffer]
72 '("Kill Buffer" . kill-this-buffer))
55 (define-key menu-bar-file-menu [revert-buffer] 73 (define-key menu-bar-file-menu [revert-buffer]
56 '("Revert Buffer" . revert-buffer)) 74 '("Revert Buffer" . revert-buffer))
57 (define-key menu-bar-file-menu [write-file] 75 (define-key menu-bar-file-menu [write-file]
58 '("Save Buffer As..." . write-file)) 76 '("Save Buffer As..." . write-file))
59 (define-key menu-bar-file-menu [save-buffer] '("Save Buffer" . save-buffer)) 77 (define-key menu-bar-file-menu [save-buffer] '("Save Buffer" . save-buffer))
60 (define-key menu-bar-file-menu [dired] '("Open Directory..." . dired)) 78 (define-key menu-bar-file-menu [dired] '("Open Directory..." . dired))
61 (define-key menu-bar-file-menu [open-file] '("Open File..." . find-file)) 79 (define-key menu-bar-file-menu [open-file] '("Open File..." . find-file))
62 (define-key menu-bar-file-menu [make-frame] '("Make New Frame" . make-frame)) 80
63
64 (define-key menu-bar-edit-menu [spell] '("Spell" . ispell-menu-map))
65 (define-key menu-bar-edit-menu [fill] '("Fill" . fill-region))
66 (define-key menu-bar-edit-menu [clear] '("Clear" . delete-region))
67 (define-key menu-bar-edit-menu [query-replace] 81 (define-key menu-bar-edit-menu [query-replace]
68 '("Query Replace" . query-replace)) 82 '("Query Replace" . query-replace))
69 (define-key menu-bar-edit-menu [re-search-back] 83 (define-key menu-bar-edit-menu [re-search-back]
70 '("Regexp Search Backwards" . re-search-backward)) 84 '("Regexp Search Backwards" . re-search-backward))
71 (define-key menu-bar-edit-menu [search-back] 85 (define-key menu-bar-edit-menu [search-back]
72 '("Search Backwards" . search-backward)) 86 '("Search Backwards" . search-backward))
73 (define-key menu-bar-edit-menu [re-search-fwd] 87 (define-key menu-bar-edit-menu [re-search-fwd]
74 '("Regexp Search" . re-search-forward)) 88 '("Regexp Search" . re-search-forward))
75 (define-key menu-bar-edit-menu [search-fwd] 89 (define-key menu-bar-edit-menu [search-fwd]
76 '("Search" . search-forward)) 90 '("Search" . search-forward))
91
92 (define-key menu-bar-edit-menu [separator-misc]
93 '("--"))
94
95 (define-key menu-bar-edit-menu [spell] '("Spell" . ispell-menu-map))
96 (define-key menu-bar-edit-menu [fill] '("Fill" . fill-region))
97
98 (define-key menu-bar-edit-menu [separator-edit]
99 '("--"))
100
101 (define-key menu-bar-edit-menu [clear] '("Clear" . delete-region))
77 (define-key menu-bar-edit-menu [choose-next-paste] 102 (define-key menu-bar-edit-menu [choose-next-paste]
78 '("Choose Next Paste >" . mouse-menu-choose-yank)) 103 '("Choose Next Paste >" . mouse-menu-choose-yank))
79 (define-key menu-bar-edit-menu [paste] '("Paste" . yank)) 104 (define-key menu-bar-edit-menu [paste] '("Paste" . yank))
80 (define-key menu-bar-edit-menu [copy] '("Copy" . kill-ring-save)) 105 (define-key menu-bar-edit-menu [copy] '("Copy" . kill-ring-save))
81 (define-key menu-bar-edit-menu [cut] '("Cut" . kill-region)) 106 (define-key menu-bar-edit-menu [cut] '("Cut" . kill-region))