(recover-file): Use ordinary `f' to read file name.

diff --git a/lisp/files.el b/lisp/files.el
index 35a43d9ed6ef67047bbfbdc2b65ed45df20f339b..18933c87a9592a98dc06fa6b4a07037f994ee48e 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1982,15 +1982,10 @@ beginning and `after-revert-hook' at the end."
 
 (defun recover-file (file)
   "Visit file FILE, but get contents from its last auto-save file."
-  (interactive
-   (let ((prompt-file buffer-file-name)
-        (file-name nil)
-        (file-dir nil))
-     (and prompt-file
-         (setq file-name (file-name-nondirectory prompt-file)
-               file-dir (file-name-directory prompt-file)))
-     (list (read-file-name "Recover file: "
-                              file-dir nil nil file-name))))
+  ;; Actually putting the file name in the minibuffer should be used
+  ;; only rarely.
+  ;; Not just because users often use the default.
+  (interactive "fRecover file: ")
   (setq file (expand-file-name file))
   (if (auto-save-file-name-p (file-name-nondirectory file))
       (error "%s is an auto-save file" file))