From 365e9bce08109beb18ef476d19ed4c39d81b787b Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Thu, 9 Dec 1999 15:23:31 +0000 Subject: [PATCH] (after-find-file): Use auto-save-visited-file-name if set. --- lisp/ChangeLog | 8 ++++++++ lisp/files.el | 3 ++- 2 files changed, 10 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 228aac9e29c..80b7fd64478 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +1999-12-09 Gerd Moellmann + + * files.el (after-find-file): Use auto-save-visited-file-name if + set. + + * mail/feedmail.el (feedmail-find-eoh): Take + feedmail-queue-alternative-mail-header-separator into account. + 1999-12-09 Stefan Monnier * smerge-mode.el: New file. diff --git a/lisp/files.el b/lisp/files.el index 44baf22f8bd..73268891513 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -1195,7 +1195,8 @@ unless NOMODES is non-nil." "File exists, but cannot be read") ((not buffer-read-only) (if (and warn - (file-newer-than-file-p (make-auto-save-file-name) + (file-newer-than-file-p (or auto-save-visited-file-name + (make-auto-save-file-name)) buffer-file-name)) (format "%s has auto save data; consider M-x recover-file" (file-name-nondirectory buffer-file-name)) -- 2.39.5