From 5781e949aef30c56532bed496e69d9f267ec27f8 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sat, 1 Dec 2012 10:09:45 +0800 Subject: [PATCH] Improve the descriptive message in `recover-session'. * lisp/files.el (recover-session): Improve the descriptive message, and use substitute-command-keys. --- lisp/files.el | 14 ++++++++------ 1 file 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. -- 2.11.4.GIT