diff options
| author | Richard M. Stallman | 2001-11-01 20:44:11 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2001-11-01 20:44:11 +0000 |
| commit | 4803e625deec92363f1be2547847fb1c833868d2 (patch) | |
| tree | cced169e3b2e70a5b9458acd63139dad3e97bdee | |
| parent | 9271ed2c11dc31295364b0244cce6c37a2d876ac (diff) | |
| download | emacs-4803e625deec92363f1be2547847fb1c833868d2.tar.gz emacs-4803e625deec92363f1be2547847fb1c833868d2.zip | |
(file-newest-backup): Don't pass backup file name
thru file-name-sans-versions, because it never has version numbers.
| -rw-r--r-- | lisp/files.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/files.el b/lisp/files.el index 75937f7a86d..846b1e43589 100644 --- a/lisp/files.el +++ b/lisp/files.el | |||
| @@ -2866,8 +2866,7 @@ saying what text to write." | |||
| 2866 | ;; `make-backup-file-name' will get us the right directory for | 2866 | ;; `make-backup-file-name' will get us the right directory for |
| 2867 | ;; ordinary or numeric backups. It might create a directory for | 2867 | ;; ordinary or numeric backups. It might create a directory for |
| 2868 | ;; backups as a side-effect, according to `backup-directory-alist'. | 2868 | ;; backups as a side-effect, according to `backup-directory-alist'. |
| 2869 | (let* ((filename (file-name-sans-versions | 2869 | (let* ((filename (make-backup-file-name filename)) |
| 2870 | (make-backup-file-name filename))) | ||
| 2871 | (file (file-name-nondirectory filename)) | 2870 | (file (file-name-nondirectory filename)) |
| 2872 | (dir (file-name-directory filename)) | 2871 | (dir (file-name-directory filename)) |
| 2873 | (comp (file-name-all-completions file dir)) | 2872 | (comp (file-name-all-completions file dir)) |