From d7e91b62d2fe2d14202dd3779eae50fd48e33fc0 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Thu, 1 Nov 2001 20:39:39 +0000 Subject: [PATCH] (find-backup-file-name): Use make-backup-file-name. --- lisp/ChangeLog | 4 ++++ lisp/files.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3265c5227f0..dac92352498 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2001-11-01 Richard M. Stallman + + * files.el (find-backup-file-name): Use make-backup-file-name. + 2001-11-01 Gerd Moellmann * startup.el (command-line): If the terminal Emacs is running on diff --git a/lisp/files.el b/lisp/files.el index 8b8723f50de..517a7590f37 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -2422,7 +2422,7 @@ Uses `backup-directory-alist' in the same way as does -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 -- 2.39.2