mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

Use > as convention for another menu follows.

Browse Source 
(menu-bar-edit-menu): Add entry for Emerge.
This commit is contained in:
Richard M. Stallman 1994-02-06 02:33:02 +00:00
parent ff5f6ddda1
commit f7f1920167
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/menu-bar.el
View File

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