HCoop
/
bpt
/
emacs.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
069511c
)
(recover-file): Call auto-save-file-name-p correctly.
author
Richard M. Stallman
<rms@gnu.org>
Wed, 16 Feb 1994 18:23:16 +0000
(18:23 +0000)
committer
Richard M. Stallman
<rms@gnu.org>
Wed, 16 Feb 1994 18:23:16 +0000
(18:23 +0000)
lisp/files.el
patch
|
blob
|
blame
|
history
diff --git
a/lisp/files.el
b/lisp/files.el
index
00cc617
..
5673aea
100644
(file)
--- 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))