mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Use substitute-command-keys in proced-help

Browse source 
* lisp/proced.el (proced-help-string, proced-help): Use
substitute-command-keys.
This commit is contained in:
Stefan Kangas 2022-09-15 09:17:30 +02:00
parent 48d8543ff1
commit 1ccfd3bae2
1 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/proced.el
View file

@ -426,7 +426,14 @@ Important: the match ends just after the marker.")
"Name of Proced Log buffer.")
(defconst proced-help-string
"(n)ext, (p)revious, (m)ark, (u)nmark, (k)ill, (q)uit (type ? for more help)"
(concat "\\<proced-mode-map> "
"\\[next-line] next, "
"\\[previous-line] previous, "
"\\[proced-mark] mark, "
"\\[proced-unmark] unmark, "
"\\[proced-send-signal] kill, "
"\\[quit-window] quit "
"(type \\[proced-help] for more help)")
"Help string for Proced.")
(defconst proced-header-help-echo
@ -1978,7 +1985,7 @@ STRING is an overall summary of the failures."
(proced-why)
(if (eq last-command 'proced-help)
(describe-mode)
(message proced-help-string)))
(message (substitute-command-keys proced-help-string))))
(defun proced-undo ()
"Undo in a Proced buffer.