From cf7e94a0dfbdb1e8b9bcb97e838a3f708f3cd0bb Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 3 Apr 1996 05:55:12 +0000 Subject: [PATCH] (file-newest-backup): Return the newest backup for the exact file name specified, not the newest backup of all files whose names start with that substring. --- lisp/files.el | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) diff --git a/lisp/files.el b/lisp/files.el index 584aef9f456..6839fcf27dc 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -2058,13 +2058,17 @@ saying what text to write." (file (file-name-nondirectory filename)) (dir (file-name-directory filename)) (comp (file-name-all-completions file dir)) - newest) + (newest nil) + tem) (while comp - (setq file (concat dir (car comp)) + (setq tem (car comp) comp (cdr comp)) - (if (and (backup-file-name-p file) - (or (null newest) (file-newer-than-file-p file newest))) - (setq newest file))) + (cond ((and (backup-file-name-p tem) + (string= (file-name-sans-versions tem) file)) + (setq tem (concat dir tem)) + (if (or (null newest) + (file-newer-than-file-p tem newest)) + (setq newest tem))))) newest)) (defun rename-uniquely () -- 2.39.2