mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

(diff-latest-backup-file): Call file-chase-links.

Browse Source
This commit is contained in:
Richard M. Stallman 1994-01-09 22:36:46 +00:00
parent d52fd67cd1
commit dfe417305e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/diff.el
View File

@ -260,7 +260,7 @@ The backup file is the first file given to `diff'."
;; 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 (expand-file-name fn))
(setq fn (file-chase-links (expand-file-name fn)))
(or
(let ((bak (make-backup-file-name fn)))
(if (file-exists-p bak) bak))