From: Miha Rihtaršič <miha@kamnitnik.top>
Date: Wed, 24 Feb 2021 16:38:56 +0000 (+0100)
Subject: Run all functions in `prefix-command-echo-keystrokes-functions'
X-Git-Tag: emacs-28.0.90~3569
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a2a63642656ff9bc851b40909458f9f79c104c5e;p=emacs.git

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
---

diff --git a/lisp/simple.el b/lisp/simple.el
index 1dfc3374ade..403861351c9 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 " "))))))