# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 731711911 0
# Node ID ff782069e797e8d32a46259c52daab45b4078483
# Parent  4b05402f3ac570506355d16982962d5c343c1221
(query-replace-map): Add `quit' bindings.  Delete default binding.

diff -r 4b05402f3ac5 -r ff782069e797 lisp/replace.el
--- a/lisp/replace.el	Tue Mar 09 21:17:46 1993 +0000
+++ b/lisp/replace.el	Tue Mar 09 21:18:31 1993 +0000
@@ -384,9 +384,8 @@
 (define-key query-replace-map "^" 'backup)
 (define-key query-replace-map "\C-h" 'help)
 (define-key query-replace-map "?" 'help)
-;; Cause all other types of events to be unread immediately,
-;; without regard to the global map.
-(define-key query-replace-map [t] 'ignore)
+(define-key query-replace-map "\C-g" 'quit)
+(define-key query-replace-map "\C-]" 'quit)
 
 (defun perform-replace (from-string replacements
 		        query-flag regexp-flag delimited-flag