diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-02-16 18:23:16 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-02-16 18:23:16 +0000 |
| commit | f7da6740cab88c131a7418e08830f35afbe1c5b3 (patch) | |
| tree | 6df65f6a52d8b6b0792c123408645bdc7271d0bf /lisp/files.el | |
| parent | 069511c0a2f5c3ba99073b2e68a06945908c8ff1 (diff) | |
| download | emacs-f7da6740cab88c131a7418e08830f35afbe1c5b3.tar.gz | |
(recover-file): Call auto-save-file-name-p correctly.
Diffstat (limited to 'lisp/files.el')
| -rw-r--r-- | lisp/files.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/files.el b/lisp/files.el index 00cc617d927..5673aeac8b5 100644 --- 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)) |