mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(diff-latest-backup-file): Cope with backups stored

Browse source 
in a different directory.
This commit is contained in:
Richard M. Stallman 1994-07-11 04:31:40 +00:00
parent 3ec5651bc0
commit cf2d98df97
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/diff.el
View file

@ -266,8 +266,12 @@ The backup file is the first file given to `diff'."
(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