From: Juri Linkov <juri@linkov.net>
Date: Thu, 17 Sep 2020 18:10:17 +0000 (+0200)
Subject: Allow binding keys in `query-replace-map'
X-Git-Tag: emacs-28.0.90~6029
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=11f03d7476c385f83530f8a635ea362216fa8af8;p=emacs.git

Allow binding keys in `query-replace-map'

* lisp/replace.el (perform-replace): Allow binding keys in
`query-replace-map' (bug#20687).
---

diff --git a/lisp/replace.el b/lisp/replace.el
index a751822c79a..dc6e67ff404 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -2953,6 +2953,8 @@ characters."
 			 (replace-dehighlight)
 			 (save-excursion (recursive-edit))
 			 (setq replaced t))
+                        ((commandp def t)
+                         (call-interactively def))
 			;; Note: we do not need to treat `exit-prefix'
 			;; specially here, since we reread
 			;; any unrecognized character.