Mercurial > emacs

comparison lisp/menu-bar.el @ 5797:c4fff7ff8bdd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use > as convention for another menu follows. (menu-bar-edit-menu): Add entry for Emerge.
author Richard M. Stallman <rms@gnu.org>
date Sun, 06 Feb 1994 02:33:02 +0000
parents bf68550ececf
children b593e9df4b44
comparison
equal deleted inserted replaced
5796:b53b2df1351d 5797:c4fff7ff8bdd
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 (define-key menu-bar-file-menu [kill-buffer]
42 '("Kill Buffer" . kill-this-buffer)) 42 '("Kill Buffer" . kill-this-buffer))
43 (define-key menu-bar-file-menu [delete-frame] '("Delete Frame" . delete-frame)) 43 (define-key menu-bar-file-menu [delete-frame] '("Delete Frame" . delete-frame))
44 (define-key menu-bar-file-menu [emerge] '("Emerge >" . menu-bar-emerge-menu))
44 (define-key menu-bar-file-menu [calendar] '("Calendar" . calendar)) 45 (define-key menu-bar-file-menu [calendar] '("Calendar" . calendar))
45 (define-key menu-bar-file-menu [rmail] '("Read Mail" . rmail)) 46 (define-key menu-bar-file-menu [rmail] '("Read Mail" . rmail))
46 (define-key menu-bar-file-menu [gnus] '("Read Net News" . gnus)) 47 (define-key menu-bar-file-menu [gnus] '("Read Net News" . gnus))
47 (define-key menu-bar-file-menu [bookmark] 48 (define-key menu-bar-file-menu [bookmark]
48 '("Bookmarks..." . menu-bar-bookmark-map)) 49 '("Bookmarks >" . menu-bar-bookmark-map))
49 (define-key menu-bar-file-menu [print-buffer] '("Print Buffer" . print-buffer)) 50 (define-key menu-bar-file-menu [print-buffer] '("Print Buffer" . print-buffer))
50 (define-key menu-bar-file-menu [revert-buffer] 51 (define-key menu-bar-file-menu [revert-buffer]
51 '("Revert Buffer" . revert-buffer)) 52 '("Revert Buffer" . revert-buffer))
52 (define-key menu-bar-file-menu [write-file] 53 (define-key menu-bar-file-menu [write-file]
53 '("Save Buffer As..." . write-file)) 54 '("Save Buffer As..." . write-file))
54 (define-key menu-bar-file-menu [save-buffer] '("Save Buffer" . save-buffer)) 55 (define-key menu-bar-file-menu [save-buffer] '("Save Buffer" . save-buffer))
55 (define-key menu-bar-file-menu [dired] '("Open Directory..." . dired)) 56 (define-key menu-bar-file-menu [dired] '("Open Directory..." . dired))
56 (define-key menu-bar-file-menu [open-file] '("Open File..." . find-file)) 57 (define-key menu-bar-file-menu [open-file] '("Open File..." . find-file))
57 (define-key menu-bar-file-menu [new-frame] '("New Frame" . new-frame)) 58 (define-key menu-bar-file-menu [new-frame] '("New Frame" . new-frame))
58 59
59 (define-key menu-bar-edit-menu [spell] '("Spell..." . ispell-menu-map)) 60 (define-key menu-bar-edit-menu [spell] '("Spell >" . ispell-menu-map))
60 (define-key menu-bar-edit-menu [fill] '("Fill" . fill-region)) 61 (define-key menu-bar-edit-menu [fill] '("Fill" . fill-region))
61 (define-key menu-bar-edit-menu [clear] '("Clear" . delete-region)) 62 (define-key menu-bar-edit-menu [clear] '("Clear" . delete-region))
62 (define-key menu-bar-edit-menu [query-replace] 63 (define-key menu-bar-edit-menu [query-replace]
63 '("Query Replace" . query-replace)) 64 '("Query Replace" . query-replace))
64 (define-key menu-bar-edit-menu [re-search-back] 65 (define-key menu-bar-edit-menu [re-search-back]
68 (define-key menu-bar-edit-menu [re-search-fwd] 69 (define-key menu-bar-edit-menu [re-search-fwd]
69 '("Regexp Search" . re-search-forward)) 70 '("Regexp Search" . re-search-forward))
70 (define-key menu-bar-edit-menu [search-fwd] 71 (define-key menu-bar-edit-menu [search-fwd]
71 '("Search" . search-forward)) 72 '("Search" . search-forward))
72 (define-key menu-bar-edit-menu [choose-next-paste] 73 (define-key menu-bar-edit-menu [choose-next-paste]
73 '("Choose Next Paste" . mouse-menu-choose-yank)) 74 '("Choose Next Paste >" . mouse-menu-choose-yank))
74 (define-key menu-bar-edit-menu [paste] '("Paste" . yank)) 75 (define-key menu-bar-edit-menu [paste] '("Paste" . yank))
75 (define-key menu-bar-edit-menu [copy] '("Copy" . kill-ring-save)) 76 (define-key menu-bar-edit-menu [copy] '("Copy" . kill-ring-save))
76 (define-key menu-bar-edit-menu [cut] '("Cut" . kill-region)) 77 (define-key menu-bar-edit-menu [cut] '("Cut" . kill-region))
77 (define-key menu-bar-edit-menu [undo] '("Undo" . undo)) 78 (define-key menu-bar-edit-menu [undo] '("Undo" . undo))
78 79