master ebab7276139: * lisp/replace.el (perform-replace): Accept default bindings in lookup-key.

[Juri Linkov]

branch: master
commit ebab7276139888266ae0f27bd3b2874e2ed8c077
Author: Juri Linkov <juri@linkov.net>
Commit: Juri Linkov <juri@linkov.net>

    * lisp/replace.el (perform-replace): Accept default bindings in lookup-key.
    
    Set ACCEPT-DEFAULT arg of lookup-key to t (bug#69342).
    This will allow the users to ignore unbound keys with
    ‘(define-key query-replace-map [t] 'ignore)’.
---
 lisp/replace.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/replace.el b/lisp/replace.el
index fa460a16063..49e7c85c487 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -2916,7 +2916,7 @@ characters."
 
     ;; If last typed key in previous call of multi-buffer perform-replace
     ;; was `automatic-all', don't ask more questions in next files
-    (when (eq (lookup-key map (vector last-input-event)) 'automatic-all)
+    (when (eq (lookup-key map (vector last-input-event) t) 'automatic-all)
       (setq query-flag nil multi-buffer t))
 
     (cond
@@ -3100,7 +3100,7 @@ characters."
                  ;; read-event that clobbers the match data.
                  (set-match-data real-match-data)
                  (setq key (vector key))
-                 (setq def (lookup-key map key))
+                 (setq def (lookup-key map key t))
                  ;; Restore the match data while we process the command.
                  (cond ((eq def 'help)
                         (let ((display-buffer-overriding-action