diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-03-09 21:18:31 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-03-09 21:18:31 +0000 |
| commit | 4809fcfdf2be0065f92e27a5789c2e6993caf1d4 (patch) | |
| tree | 6b1dac04b3bf0c057b847987d1ab6f3e775dca8d /lisp/replace.el | |
| parent | 3b23972cc36a551987f3efe1f734a0da0b55e036 (diff) | |
| download | emacs-4809fcfdf2be0065f92e27a5789c2e6993caf1d4.tar.gz | |
(query-replace-map): Add `quit' bindings. Delete default binding.
Diffstat (limited to 'lisp/replace.el')
| -rw-r--r-- | lisp/replace.el | 5 |
1 files changed, 2 insertions, 3 deletions
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 |