From a8090e38c009722ccebaa8e982ab983f45cda8f6 Mon Sep 17 00:00:00 2001 From: Markus Rost Date: Wed, 22 May 2002 23:26:51 +0000 Subject: [PATCH] (diff-latest-backup-file): Replace the main code by a call of file-newest-backup. --- lisp/diff.el | 25 +------------------------ 1 file changed, 1 insertion(+), 24 deletions(-) diff --git a/lisp/diff.el b/lisp/diff.el index 19ec2e599ad..ee49482cfe8 100644 --- a/lisp/diff.el +++ b/lisp/diff.el @@ -295,30 +295,7 @@ The backup file is the first file given to `diff'." (let ((handler (find-file-name-handler fn 'diff-latest-backup-file))) (if handler (funcall handler 'diff-latest-backup-file fn) - ;; First try simple backup, then the highest numbered of the - ;; numbered backups. - ;; Ignore the value of version-control because we look for existing - ;; backups, which maybe were made earlier or by another user with - ;; a different value of version-control. - (setq fn (file-chase-links (expand-file-name fn))) - (or - (let ((bak (make-backup-file-name fn))) - (if (file-exists-p bak) bak)) - ;; 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)) - ".~")) - ;; This is a fluid var for backup-extract-version. - (backup-extract-version-start (length base-versions))) - (concat dir - (car (sort - (file-name-all-completions base-versions dir) - (function - (lambda (fn1 fn2) - (> (backup-extract-version fn1) - (backup-extract-version fn2)))))))))))) + (file-newest-backup fn)))) (provide 'diff) -- 2.39.5