From 11f03d7476c385f83530f8a635ea362216fa8af8 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Thu, 17 Sep 2020 20:10:17 +0200 Subject: [PATCH] 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 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. -- 2.39.5