Mercurial > emacs
changeset 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 | 4b05402f3ac5 |
| children | 9561d2584cbb |
| files | lisp/replace.el |
| diffstat | 1 files changed, 2 insertions(+), 3 deletions(-) [+] |
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