Mercurial > emacs
changeset 5797:c4fff7ff8bdd
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 | b53b2df1351d |
| children | c75960d5f2ca |
| files | lisp/menu-bar.el |
| diffstat | 1 files changed, 4 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/menu-bar.el Sun Feb 06 02:07:44 1994 +0000 +++ b/lisp/menu-bar.el Sun Feb 06 02:33:02 1994 +0000 @@ -41,11 +41,12 @@ (define-key menu-bar-file-menu [kill-buffer] '("Kill Buffer" . kill-this-buffer)) (define-key menu-bar-file-menu [delete-frame] '("Delete Frame" . delete-frame)) +(define-key menu-bar-file-menu [emerge] '("Emerge >" . menu-bar-emerge-menu)) (define-key menu-bar-file-menu [calendar] '("Calendar" . calendar)) (define-key menu-bar-file-menu [rmail] '("Read Mail" . rmail)) (define-key menu-bar-file-menu [gnus] '("Read Net News" . gnus)) (define-key menu-bar-file-menu [bookmark] - '("Bookmarks..." . menu-bar-bookmark-map)) + '("Bookmarks >" . menu-bar-bookmark-map)) (define-key menu-bar-file-menu [print-buffer] '("Print Buffer" . print-buffer)) (define-key menu-bar-file-menu [revert-buffer] '("Revert Buffer" . revert-buffer)) @@ -56,7 +57,7 @@ (define-key menu-bar-file-menu [open-file] '("Open File..." . find-file)) (define-key menu-bar-file-menu [new-frame] '("New Frame" . new-frame)) -(define-key menu-bar-edit-menu [spell] '("Spell..." . ispell-menu-map)) +(define-key menu-bar-edit-menu [spell] '("Spell >" . ispell-menu-map)) (define-key menu-bar-edit-menu [fill] '("Fill" . fill-region)) (define-key menu-bar-edit-menu [clear] '("Clear" . delete-region)) (define-key menu-bar-edit-menu [query-replace] @@ -70,7 +71,7 @@ (define-key menu-bar-edit-menu [search-fwd] '("Search" . search-forward)) (define-key menu-bar-edit-menu [choose-next-paste] - '("Choose Next Paste" . mouse-menu-choose-yank)) + '("Choose Next Paste >" . mouse-menu-choose-yank)) (define-key menu-bar-edit-menu [paste] '("Paste" . yank)) (define-key menu-bar-edit-menu [copy] '("Copy" . kill-ring-save)) (define-key menu-bar-edit-menu [cut] '("Cut" . kill-region))