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 <rost@math.ohio-state.edu>
* 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 <mdub@bigfoot.com>
* 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