Mercurial > emacs
comparison lisp/menu-bar.el @ 4941:74c118ef608c
(menu-bar-edit-menu): Add menu items for searching.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Tue, 09 Nov 1993 07:28:56 +0000 |
parents | 884b7620b60b |
children | 9cde7d7fea1f |
comparison
equal
deleted
inserted
replaced
4940:2f65b0f9c6fc | 4941:74c118ef608c |
---|---|
51 (define-key menu-bar-file-menu [save-buffer] '("Save Buffer" . save-buffer)) | 51 (define-key menu-bar-file-menu [save-buffer] '("Save Buffer" . save-buffer)) |
52 (define-key menu-bar-file-menu [dired] '("Open Directory..." . dired)) | 52 (define-key menu-bar-file-menu [dired] '("Open Directory..." . dired)) |
53 (define-key menu-bar-file-menu [open-file] '("Open File..." . find-file)) | 53 (define-key menu-bar-file-menu [open-file] '("Open File..." . find-file)) |
54 (define-key menu-bar-file-menu [new-frame] '("New Frame" . new-frame)) | 54 (define-key menu-bar-file-menu [new-frame] '("New Frame" . new-frame)) |
55 | 55 |
56 | |
57 (define-key menu-bar-edit-menu [spell] '("Spell..." . ispell-menu-map)) | 56 (define-key menu-bar-edit-menu [spell] '("Spell..." . ispell-menu-map)) |
58 (define-key menu-bar-edit-menu [fill] '("Fill" . fill-region)) | 57 (define-key menu-bar-edit-menu [fill] '("Fill" . fill-region)) |
59 (define-key menu-bar-edit-menu [clear] '("Clear" . delete-region)) | 58 (define-key menu-bar-edit-menu [clear] '("Clear" . delete-region)) |
59 (define-key menu-bar-edit-menu [re-search-back] | |
60 '("Regexp Search Backwards" . re-search-backward)) | |
61 (define-key menu-bar-edit-menu [search-back] | |
62 '("Search Backwards" . search-backward)) | |
63 (define-key menu-bar-edit-menu [re-search-fwd] | |
64 '("Regexp Search" . re-search-forward)) | |
65 (define-key menu-bar-edit-menu [search-fwd] | |
66 '("Search" . search-forward)) | |
60 (define-key menu-bar-edit-menu [choose-next-paste] | 67 (define-key menu-bar-edit-menu [choose-next-paste] |
61 '("Choose Next Paste" . mouse-menu-choose-yank)) | 68 '("Choose Next Paste" . mouse-menu-choose-yank)) |
62 (define-key menu-bar-edit-menu [paste] '("Paste" . yank)) | 69 (define-key menu-bar-edit-menu [paste] '("Paste" . yank)) |
63 (define-key menu-bar-edit-menu [copy] '("Copy" . kill-ring-save)) | 70 (define-key menu-bar-edit-menu [copy] '("Copy" . kill-ring-save)) |
64 (define-key menu-bar-edit-menu [cut] '("Cut" . kill-region)) | 71 (define-key menu-bar-edit-menu [cut] '("Cut" . kill-region)) |