Mercurial > emacs

diff lisp/files.el @ 40465:1567bb70816b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 85c9805cd237
children c9d3bb2a90e4
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