andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Run all functions in `prefix-command-echo-keystrokes-functions'

Browse source 
* lisp/simple.el (internal-echo-keystrokes-prefix): Really run all
functions in `prefix-command-echo-keystrokes-functions' (bug#46727).

Copyright-paperwork-exempt: yes
This commit is contained in:
Miha Rihtaršič 2021-02-24 17:38:56 +01:00 • committed by Lars Ingebrigtsen
parent 7c48c83dab
commit a2a6364265
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/simple.el
View file

@ -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 " "))))))