From 033ef863a8ce97d68d14c2aa2fa066cddf25af34 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 1 Aug 1995 23:34:53 +0000 Subject: [PATCH] (recover-session): Mention deletion is possible. (recover-session-finish): Call dired-do-flagged-delete. --- lisp/files.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/lisp/files.el b/lisp/files.el index 1a7ca53a855..ad4aab933ff 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -2107,8 +2107,10 @@ Then you'll be asked about a number of files to recover." (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 @@ This command is used in the special Dired buffer created by ;; 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. -- 2.39.2