(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.

diff --git a/lisp/files.el b/lisp/files.el
index 584aef9f456a351d253458a50277aa264a1b728e..6839fcf27dc295d7dc412ebde27bac4ce061537b 100644 (file)
--- 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 ()