From: Stefan Kangas <stefankangas@gmail.com>
Date: Mon, 16 Dec 2024 21:13:28 +0000 (+0100)
Subject: * lisp/dired.el (dired-summary): Use substitute-command-keys.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1b38b5f1f863839f3a6284dfbc207a5031128df7;p=emacs.git

* lisp/dired.el (dired-summary): Use substitute-command-keys.

(cherry picked from commit 16eb038d472b5765beb3b18e1058846efbdf97af)
---

diff --git a/lisp/dired.el b/lisp/dired.el
index 18a2c375923..f7e96593b29 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -2840,7 +2840,9 @@ Keybindings:
   ;; FIXME this should check the key-bindings and use
   ;; substitute-command-keys if non-standard
   (message
-   "d-elete, u-ndelete, x-punge, f-ind, o-ther window, R-ename, C-opy, h-elp"))
+   (substitute-command-keys
+    (concat "\\`d'-elete, \\`u'-ndelete, \\`x'-punge, \\`f'-ind, "
+            "\\`o'-ther window, \\`R'-ename, \\`C'-opy, \\`h'-elp"))))
 
 (defun dired-undo ()
   "Undo in a Dired buffer.