# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 896943452 0
# Node ID 402ebb81ae84aa39ab22a0590a9fda21264dcde3
# Parent  312d6d72be14f766aff2ae997478975ea8580985
(esc-map): Bind C-M-% to query-replace-regexp.

diff -r 312d6d72be14 -r 402ebb81ae84 lisp/replace.el
--- a/lisp/replace.el	Thu Jun 04 06:47:29 1998 +0000
+++ b/lisp/replace.el	Thu Jun 04 06:57:32 1998 +0000
@@ -115,6 +115,7 @@
  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.