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

f7da6740 · Richard M. Stallman · 069511c0 · f7da6740
Commit f7da6740 authored Feb 16, 1994 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletion

lisp/files.el lisp/files.el +2 -1

No files found.
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -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))