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 a751822c79a95eac5c28c5ee89ae0c0e7c0081d2..dc6e67ff40496fc853e8ea25edd380c947834c23 100644 (file)
--- 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.