From bc6312e108ae6fa8962f837103e8b4ae318543c1 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 9 Mar 1993 21:18:31 +0000 Subject: (query-replace-map): Add `quit' bindings. Delete default binding. --- lisp/replace.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'lisp/replace.el') diff --git a/lisp/replace.el b/lisp/replace.el index 3c1789eb254..3f730ec3f2f 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -384,9 +384,8 @@ The valid answers include `act', `skip', `act-and-show', (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 -- cgit v1.2.1