Improve the descriptive message in `recover-session'.

* lisp/files.el (recover-session): Improve the descriptive message,
and use substitute-command-keys.

1 files changed, 8 insertions, 6 deletions

diff --git a/lisp/files.el b/lisp/files.el
index e03b02193a4..1bb140c0562 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -5417,18 +5417,20 @@ Then you'll be asked about a number of files to recover."
   (let ((ls-lisp-support-shell-wildcards t))
     (dired (concat auto-save-list-file-prefix "*")
            (concat dired-listing-switches " -t")))
+  (use-local-map (nconc (make-sparse-keymap) (current-local-map)))
+  (define-key (current-local-map) "\C-c\C-c" 'recover-session-finish)
   (save-excursion
     (goto-char (point-min))
     (or (looking-at " Move to the session you want to recover,")
         (let ((inhibit-read-only t))
           ;; Each line starts with a space
           ;; so that Font Lock mode won't highlight the first character.
-          (insert " Move to the session you want to recover,\n"
-                  " then type C-c C-c to select it.\n\n"
-                  " You can also delete some of these files;\n"
-                  " type d on a line to mark that file for deletion.\n\n"))))
-  (use-local-map (nconc (make-sparse-keymap) (current-local-map)))
-  (define-key (current-local-map) "\C-c\C-c" 'recover-session-finish))
+          (insert " To recover a session, move to it and type C-c C-c.\n"
+                  (substitute-command-keys
+                   " To delete a session file, type \
+\\[dired-flag-file-deletion] on its line to flag
+ the file for deletion, then \\[dired-do-flagged-delete] to \
+delete flagged files.\n\n"))))))
 
 (defun recover-session-finish ()
   "Choose one saved session to recover auto-save files from.