From: Stefan Kangas <stefankangas@gmail.com>
Date: Sun, 2 Oct 2022 15:52:05 +0000 (+0200)
Subject: * lisp/files.el (after-find-file): Use substitute-command-keys.
X-Git-Tag: emacs-29.0.90~1856^2~77
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4839b42a16635a3090f4fb374fb1fbe532ef0451;p=emacs.git

* lisp/files.el (after-find-file): Use substitute-command-keys.
---

diff --git a/lisp/files.el b/lisp/files.el
index 10b156fb306..40ad11ecfc4 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -2711,7 +2711,8 @@ unless NOMODES is non-nil."
 		   (file-newer-than-file-p (or buffer-auto-save-file-name
 					       (make-auto-save-file-name))
 					   buffer-file-name))
-		  (format "%s has auto save data; consider M-x recover-this-file"
+                  (format (substitute-command-keys
+                           "%s has auto save data; consider \\`M-x recover-this-file'")
 			  (file-name-nondirectory buffer-file-name))
 		(setq not-serious t)
 		(if error "(New file)" nil)))