procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Improve the descriptive message in `recover-session'.

Browse source 
* lisp/files.el (recover-session): Improve the descriptive message,
and use substitute-command-keys.
This commit is contained in:
Chong Yidong 2012-12-01 10:09:45 +08:00
parent f0b6ae635d
commit 5781e949ae
1 changed files with 8 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/files.el
View file

@ -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.