From 1ccfd3bae2dffe5cf33202eb4479f4daf722b265 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Thu, 15 Sep 2022 09:17:30 +0200 Subject: [PATCH] Use substitute-command-keys in proced-help * lisp/proced.el (proced-help-string, proced-help): Use substitute-command-keys. --- lisp/proced.el | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/lisp/proced.el b/lisp/proced.el index c278cce9dc7..0f0937cac81 100644 --- a/lisp/proced.el +++ b/lisp/proced.el @@ -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 "\\ " + "\\[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. -- 2.39.2