procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(menu-bar-edit-menu): Add query-replace menu item.

Browse source 
Make a menu-enable property for query-replace.
This commit is contained in:
Richard M. Stallman 1993-12-23 03:19:05 +00:00
parent e660d0db20
commit 33aa894652
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/menu-bar.el
View file

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