master a2a6364 3/3: Run all functions in `prefix-command-echo-keystrokes-functions'

[Lars Ingebrigtsen]

branch: master
commit a2a63642656ff9bc851b40909458f9f79c104c5e
Author: Miha Rihtaršič <miha@kamnitnik.top>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Run all functions in `prefix-command-echo-keystrokes-functions'
    
    * lisp/simple.el (internal-echo-keystrokes-prefix): Really run all
    functions in `prefix-command-echo-keystrokes-functions' (bug#46727).
    
    Copyright-paperwork-exempt: yes
---
 lisp/simple.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/simple.el b/lisp/simple.el
index 1dfc337..4038613 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -4670,7 +4670,7 @@ see other processes running on the system, use 
`list-system-processes'."
     (setq prefix-command--last-echo
           (let ((strs nil))
             (run-hook-wrapped 'prefix-command-echo-keystrokes-functions
-                              (lambda (fun) (push (funcall fun) strs)))
+                              (lambda (fun) (push (funcall fun) strs) nil))
             (setq strs (delq nil strs))
             (when strs (mapconcat #'identity strs " "))))))