From: Stefan Kangas <stefankangas@gmail.com>
Date: Thu, 15 Sep 2022 07:17:30 +0000 (+0200)
Subject: Use substitute-command-keys in proced-help
X-Git-Tag: emacs-29.0.90~1856^2~492
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1ccfd3bae2dffe5cf33202eb4479f4daf722b265;p=emacs.git

Use substitute-command-keys in proced-help

* lisp/proced.el (proced-help-string, proced-help): Use
substitute-command-keys.
---

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 "\\<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.