# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 773901100 0
# Node ID a4f0f421752ec7006b0622807a9299ed2ba681f3
# Parent  b11f71df59d96ec351516ca199a6ae19f5be5698
(diff-latest-backup-file): Cope with backups stored
in a different directory.

diff -r b11f71df59d9 -r a4f0f421752e lisp/diff.el
--- a/lisp/diff.el	Mon Jul 11 00:59:17 1994 +0000
+++ b/lisp/diff.el	Mon Jul 11 04:31:40 1994 +0000
@@ -266,8 +266,12 @@
       (or
        (let ((bak (make-backup-file-name fn)))
 	 (if (file-exists-p bak) bak))
-       (let* ((dir (file-name-directory fn))
-	      (base-versions (concat (file-name-nondirectory fn) ".~"))
+       ;; We use BACKUPNAME to cope with backups stored in a different dir.
+       (let* ((backupname (car (find-backup-file-name fn)))
+	      (dir (file-name-directory backupname))
+	      (base-versions (concat (file-name-sans-versions
+				      (file-name-nondirectory backupname))
+				     ".~"))
 	      (bv-length (length base-versions)))
 	 (concat dir
 		 (car (sort