(esc-map): Bind C-M-% to query-replace-regexp.

1 files changed, 1 insertions, 0 deletions

diff --git a/lisp/replace.el b/lisp/replace.el
index 07d5892e458..e82eb3bdafb 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -115,6 +115,7 @@ and `\\=\\N' (where N is a digit) stands for
  whatever what matched the Nth `\\(...\\)' in REGEXP."
   (interactive (query-replace-read-args "Query replace regexp" t))
   (perform-replace regexp to-string t t arg))
+(define-key esc-map [?\C-%] 'query-replace-regexp)
 
 (defun map-query-replace-regexp (regexp to-strings &optional arg)
   "Replace some matches for REGEXP with various strings, in rotation.