From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 23 Dec 1993 03:19:05 +0000 (+0000)
Subject: (menu-bar-edit-menu): Add query-replace menu item.
X-Git-Tag: emacs-19.34~10581
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=33aa89465212db7426d90e1e5c30214c2ce9c6f4;p=emacs.git

(menu-bar-edit-menu): Add query-replace menu item.
Make a menu-enable property for query-replace.
---

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 2704f7da2be..6b5d58b3712 100644
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -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)