master 11f03d7 1/3: Allow binding keys in `query-replace-map'

[Lars Ingebrigtsen]

branch: master
commit 11f03d7476c385f83530f8a635ea362216fa8af8
Author: Juri Linkov <juri@linkov.net>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Allow binding keys in `query-replace-map'
    
    * lisp/replace.el (perform-replace): Allow binding keys in
    `query-replace-map' (bug#20687).
---
 lisp/replace.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lisp/replace.el b/lisp/replace.el
index a751822..dc6e67f 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.