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

diff --git a/lisp/files.el b/lisp/files.el
index 10b156fb3061124cd005725d86b05c074ee6f3aa..40ad11ecfc498f724d1d1a51744b381499a28f5b 100644 (file)
--- 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)))