Commit f7da6740 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(recover-file): Call auto-save-file-name-p correctly.

parent 069511c0
......@@ -1822,7 +1822,8 @@ beginning and `after-revert-hook' at the end."
(list (read-file-name "Recover file: "
file-dir nil nil file-name))))
(setq file (expand-file-name file))
(if (auto-save-file-name-p file) (error "%s is an auto-save file" file))
(if (auto-save-file-name-p (file-name-nondirectory file))
(error "%s is an auto-save file" file))
(let ((file-name (let ((buffer-file-name file))
(make-auto-save-file-name))))
(cond ((not (file-newer-than-file-p file-name file))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment