Mercurial > emacs

comparison lisp/menu-bar.el @ 4941:74c118ef608c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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))