Mercurial > emacs
comparison lisp/files.el @ 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 | 1450fcbbad57 |
| children | 0c2a22313f16 |
comparison
equal
deleted
inserted
replaced
| 45472:6b7dcaa53b5c | 45473:9a8b2dd39ddc |
|---|---|
| 3009 (defun file-newest-backup (filename) | 3009 (defun file-newest-backup (filename) |
| 3010 "Return most recent backup file for FILENAME or nil if no backups exist." | 3010 "Return most recent backup file for FILENAME or nil if no backups exist." |
| 3011 ;; `make-backup-file-name' will get us the right directory for | 3011 ;; `make-backup-file-name' will get us the right directory for |
| 3012 ;; ordinary or numeric backups. It might create a directory for | 3012 ;; ordinary or numeric backups. It might create a directory for |
| 3013 ;; backups as a side-effect, according to `backup-directory-alist'. | 3013 ;; backups as a side-effect, according to `backup-directory-alist'. |
| 3014 (let* ((filename (make-backup-file-name filename)) | 3014 (let* ((filename (file-name-sans-versions |
| 3015 (make-backup-file-name filename))) | |
| 3015 (file (file-name-nondirectory filename)) | 3016 (file (file-name-nondirectory filename)) |
| 3016 (dir (file-name-directory filename)) | 3017 (dir (file-name-directory filename)) |
| 3017 (comp (file-name-all-completions file dir)) | 3018 (comp (file-name-all-completions file dir)) |
| 3018 (newest nil) | 3019 (newest nil) |
| 3019 tem) | 3020 tem) |