diff options
| author | Stefan Kangas <stefankangas@gmail.com> | 2022-09-15 09:17:30 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefankangas@gmail.com> | 2022-09-15 09:17:30 +0200 |
| commit | 1ccfd3bae2dffe5cf33202eb4479f4daf722b265 (patch) | |
| tree | 8513072f9fd1729fa4cbbb0396fed8055eb71eba /lisp/proced.el | |
| parent | 48d8543ff134e08332bf35d96409cb8e3c2cbfb9 (diff) | |
| download | emacs-1ccfd3bae2dffe5cf33202eb4479f4daf722b265.tar.gz emacs-1ccfd3bae2dffe5cf33202eb4479f4daf722b265.tar.bz2 emacs-1ccfd3bae2dffe5cf33202eb4479f4daf722b265.zip | |
Use substitute-command-keys in proced-help
* lisp/proced.el (proced-help-string, proced-help): Use
substitute-command-keys.
Diffstat (limited to 'lisp/proced.el')
| -rw-r--r-- | lisp/proced.el | 11 |
1 files 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 "\\<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. |