Mercurial > emacs

comparison lisp/menu-bar.el @ 6279:8ee9dcd3771e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Delete the `>' from various menu item strings.
author Richard M. Stallman <rms@gnu.org>
date Thu, 10 Mar 1994 04:09:13 +0000
parents b593e9df4b44
children d4d36d1aa774
comparison
equal deleted inserted replaced
6278:ab5b9470fd85 6279:8ee9dcd3771e
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 [emerge] '("Emerge" . menu-bar-emerge-menu))
45 (define-key menu-bar-file-menu [calendar] '("Calendar" . calendar)) 45 (define-key menu-bar-file-menu [calendar] '("Calendar" . calendar))
46 (define-key menu-bar-file-menu [rmail] '("Read Mail" . rmail)) 46 (define-key menu-bar-file-menu [rmail] '("Read Mail" . rmail))
47 (define-key menu-bar-file-menu [gnus] '("Read Net News" . gnus)) 47 (define-key menu-bar-file-menu [gnus] '("Read Net News" . gnus))
48 (define-key menu-bar-file-menu [bookmark] 48 (define-key menu-bar-file-menu [bookmark]
49 '("Bookmarks >" . menu-bar-bookmark-map)) 49 '("Bookmarks" . menu-bar-bookmark-map))
50 (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))
51 (define-key menu-bar-file-menu [revert-buffer] 51 (define-key menu-bar-file-menu [revert-buffer]
52 '("Revert Buffer" . revert-buffer)) 52 '("Revert Buffer" . revert-buffer))
53 (define-key menu-bar-file-menu [write-file] 53 (define-key menu-bar-file-menu [write-file]
54 '("Save Buffer As..." . write-file)) 54 '("Save Buffer As..." . write-file))
55 (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))
56 (define-key menu-bar-file-menu [dired] '("Open Directory..." . dired)) 56 (define-key menu-bar-file-menu [dired] '("Open Directory..." . dired))
57 (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))
58 (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))
59 59
60 (define-key menu-bar-edit-menu [spell] '("Spell >" . ispell-menu-map)) 60 (define-key menu-bar-edit-menu [spell] '("Spell" . ispell-menu-map))
61 (define-key menu-bar-edit-menu [fill] '("Fill" . fill-region)) 61 (define-key menu-bar-edit-menu [fill] '("Fill" . fill-region))
62 (define-key menu-bar-edit-menu [clear] '("Clear" . delete-region)) 62 (define-key menu-bar-edit-menu [clear] '("Clear" . delete-region))
63 (define-key menu-bar-edit-menu [query-replace] 63 (define-key menu-bar-edit-menu [query-replace]
64 '("Query Replace" . query-replace)) 64 '("Query Replace" . query-replace))
65 (define-key menu-bar-edit-menu [re-search-back] 65 (define-key menu-bar-edit-menu [re-search-back]