[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r111048: Improve the descriptive mess
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r111048: Improve the descriptive message in `recover-session'. |
Date: |
Sat, 01 Dec 2012 10:09:45 +0800 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
revno: 111048
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Sat 2012-12-01 10:09:45 +0800
message:
Improve the descriptive message in `recover-session'.
* lisp/files.el (recover-session): Improve the descriptive message,
and use substitute-command-keys.
modified:
lisp/files.el
=== modified file 'lisp/files.el'
--- a/lisp/files.el 2012-11-29 19:28:39 +0000
+++ b/lisp/files.el 2012-12-01 02:09:45 +0000
@@ -5417,18 +5417,20 @@
(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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r111048: Improve the descriptive message in `recover-session'.,
Chong Yidong <=