mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-29 07:58:28 +00:00
Code Issues Releases Activity

(after-find-file): Fix previous change.

Browse Source
This commit is contained in:
Gerd Moellmann 1999-12-12 12:26:53 +00:00
parent 6d6c336cf7
commit a390d6c6c8
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/files.el
View File

@ -1195,7 +1195,11 @@ unless NOMODES is non-nil."
"File exists, but cannot be read")
((not buffer-read-only)
(if (and warn
(file-newer-than-file-p (or auto-save-visited-file-name
;; No need to warn if buffer is auto-saved
;; under the name of the visited file.
(not (and buffer-file-name
auto-save-visited-file-name))
(file-newer-than-file-p (or buffer-auto-save-file-name
(make-auto-save-file-name))
buffer-file-name))
(format "%s has auto save data; consider M-x recover-file"