Mercurial > emacs
diff lisp/replace.el @ 2083:ff782069e797
(query-replace-map): Add `quit' bindings. Delete default binding.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Tue, 09 Mar 1993 21:18:31 +0000 |
parents | 6ee99287dbc6 |
children | 706a869e685d |
line wrap: on
line diff
--- 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