Mercurial > emacs
changeset 40465:1567bb70816b
(find-backup-file-name): Use make-backup-file-name.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 30 Oct 2001 00:23:09 +0000 |
| parents | f1e32a9da9a8 |
| children | db05a01a3f3d |
| files | lisp/files.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/files.el Tue Oct 30 00:21:34 2001 +0000 +++ b/lisp/files.el Tue Oct 30 00:23:09 2001 +0000 @@ -2439,7 +2439,7 @@ -1)) (file-error (setq possibilities nil))) (if (not deserve-versions-p) - (list (concat basic-name "~")) + (list (make-backup-file-name fn)) (cons (format "%s.~%d~" basic-name (1+ high-water-mark)) (if (and (> number-to-delete 0) ;; Delete nothing if there is overflow