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