Mercurial > emacs
changeset 5270:1136488153c0
(menu-bar-edit-menu): Add query-replace menu item.
Make a menu-enable property for query-replace.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 23 Dec 1993 03:19:05 +0000 |
| parents | c6588bd7dd93 |
| children | c415cc48a084 |
| files | lisp/menu-bar.el |
| diffstat | 1 files changed, 3 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/menu-bar.el Thu Dec 23 03:18:02 1993 +0000 +++ b/lisp/menu-bar.el Thu Dec 23 03:19:05 1993 +0000 @@ -56,6 +56,8 @@ (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] + '("Query Replace" . query-replace)) (define-key menu-bar-edit-menu [re-search-back] '("Regexp Search Backwards" . re-search-backward)) (define-key menu-bar-edit-menu [search-back] @@ -79,6 +81,7 @@ (put 'undo 'menu-enable '(if (eq last-command 'undo) pending-undo-list (consp buffer-undo-list))) +(put 'query-replace 'menu-enable (not buffer-read-only)) (autoload 'ispell-menu-map "ispell" nil t 'keymap)