Commit e31cfca5 authored by Markus Rost's avatar Markus Rost
Browse files

(file-newest-backup): Use file-name-sans-versions.

parent a8090e38
2002-05-22 Markus Rost <>
* files.el (file-newest-backup): Use file-name-sans-versions.
* diff.el (diff-latest-backup-file): Replace the main code by
a call of file-newest-backup.
2002-05-22 Mike Williams <>
* textmodes/sgml-mode.el (sgml-guess-indent): Look further into
......@@ -3011,7 +3011,8 @@ 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 (make-backup-file-name filename))
(let* ((filename (file-name-sans-versions
(make-backup-file-name filename)))
(file (file-name-nondirectory filename))
(dir (file-name-directory filename))
(comp (file-name-all-completions file dir))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment