mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-23 13:02:00 -08:00
Code Issues Projects Releases Wiki Activity

(find-backup-file-name): Use make-backup-file-name.

Browse source
This commit is contained in:
Eli Zaretskii 2001-11-01 20:39:39 +00:00
parent a8fddb6ead
commit d7e91b62d2
2 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2001-11-01 Richard M. Stallman <rms@gnu.org>
* files.el (find-backup-file-name): Use make-backup-file-name.
2001-11-01 Gerd Moellmann <gerd@gnu.org>
* startup.el (command-line): If the terminal Emacs is running on

2
lisp/files.el
View file

@ -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