mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(file-newest-backup): Don't pass backup file name

Browse source 
thru file-name-sans-versions, because it never has version numbers.
This commit is contained in:
Richard M. Stallman 2001-11-01 20:44:11 +00:00
parent 9271ed2c11
commit 4803e625de
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/files.el
View file

@ -2866,8 +2866,7 @@ saying what text to write."
;; `make-backup-file-name' will get us the right directory for
;; ordinary or numeric backups. It might create a directory for
;; backups as a side-effect, according to `backup-directory-alist'.
(let* ((filename (file-name-sans-versions
(make-backup-file-name filename)))
(let* ((filename (make-backup-file-name filename))
(file (file-name-nondirectory filename))
(dir (file-name-directory filename))
(comp (file-name-all-completions file dir))