diff options
| author | Richard M. Stallman | 1993-03-09 21:18:31 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-03-09 21:18:31 +0000 |
| commit | bc6312e108ae6fa8962f837103e8b4ae318543c1 (patch) | |
| tree | a41be7086ee8f4f1cefe7c5127d33e6f56b1be3b /lisp/replace.el | |
| parent | 81eb8fcd8dc8ac7692ec125014f4ec2fe14d5f25 (diff) | |
| download | emacs-bc6312e108ae6fa8962f837103e8b4ae318543c1.tar.gz emacs-bc6312e108ae6fa8962f837103e8b4ae318543c1.zip | |
(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', | |||
| 384 | (define-key query-replace-map "^" 'backup) | 384 | (define-key query-replace-map "^" 'backup) |
| 385 | (define-key query-replace-map "\C-h" 'help) | 385 | (define-key query-replace-map "\C-h" 'help) |
| 386 | (define-key query-replace-map "?" 'help) | 386 | (define-key query-replace-map "?" 'help) |
| 387 | ;; Cause all other types of events to be unread immediately, | 387 | (define-key query-replace-map "\C-g" 'quit) |
| 388 | ;; without regard to the global map. | 388 | (define-key query-replace-map "\C-]" 'quit) |
| 389 | (define-key query-replace-map [t] 'ignore) | ||
| 390 | 389 | ||
| 391 | (defun perform-replace (from-string replacements | 390 | (defun perform-replace (from-string replacements |
| 392 | query-flag regexp-flag delimited-flag | 391 | query-flag regexp-flag delimited-flag |