Mercurial > emacs
changeset 45472:6b7dcaa53b5c
(diff-latest-backup-file): Replace the main code by a call of
file-newest-backup.
| author | Markus Rost <rost@math.uni-bielefeld.de> |
|---|---|
| date | Wed, 22 May 2002 23:26:51 +0000 |
| parents | 7d93671b3743 |
| children | 9a8b2dd39ddc |
| files | lisp/diff.el |
| diffstat | 1 files changed, 1 insertions(+), 24 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/diff.el Wed May 22 21:18:25 2002 +0000 +++ b/lisp/diff.el Wed May 22 23:26:51 2002 +0000 @@ -295,30 +295,7 @@ (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)