Mercurial > emacs
changeset 12740:8b44b70e655d
(recover-session): Mention deletion is possible.
(recover-session-finish): Call dired-do-flagged-delete.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 01 Aug 1995 23:34:53 +0000 |
| parents | ae2e8daffa31 |
| children | bcaa94db623c |
| files | lisp/files.el |
| diffstat | 1 files changed, 5 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/files.el Tue Aug 01 22:42:28 1995 +0000 +++ b/lisp/files.el Tue Aug 01 23:34:53 1995 +0000 @@ -2107,8 +2107,10 @@ (goto-char (point-min)) (or (looking-at "Move to the session you want to recover,") (let ((inhibit-read-only t)) - (insert "Move to the session you want to recover,\n") - (insert "then type C-c C-c to select it.\n\n"))) + (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)) @@ -2120,6 +2122,7 @@ ;; Get the name of the session file to recover from. (let ((file (dired-get-filename)) (buffer (get-buffer-create " *recover*"))) + (dired-do-flagged-delete t) (unwind-protect (save-excursion ;; Read in the auto-save-list file.