Commit bc6312e1 authored by Richard M. Stallman's avatar Richard M. Stallman

(query-replace-map): Add `quit' bindings. Delete default binding.

parent 81eb8fcd
......@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment