Mercurial > emacs
changeset 45473:9a8b2dd39ddc
(file-newest-backup): Use file-name-sans-versions.
| author | Markus Rost <rost@math.uni-bielefeld.de> |
|---|---|
| date | Wed, 22 May 2002 23:29:23 +0000 |
| parents | 6b7dcaa53b5c |
| children | bb0009e75e89 |
| files | lisp/files.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/files.el Wed May 22 23:26:51 2002 +0000 +++ b/lisp/files.el Wed May 22 23:29:23 2002 +0000 @@ -3011,7 +3011,8 @@ ;; `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))