3011 |
;; `make-backup-file-name' will get us the right directory for |
;; `make-backup-file-name' will get us the right directory for |
3012 |
;; ordinary or numeric backups. It might create a directory for |
;; ordinary or numeric backups. It might create a directory for |
3013 |
;; backups as a side-effect, according to `backup-directory-alist'. |
;; backups as a side-effect, according to `backup-directory-alist'. |
3014 |
(let* ((filename (make-backup-file-name filename)) |
(let* ((filename (file-name-sans-versions |
3015 |
|
(make-backup-file-name filename))) |
3016 |
(file (file-name-nondirectory filename)) |
(file (file-name-nondirectory filename)) |
3017 |
(dir (file-name-directory filename)) |
(dir (file-name-directory filename)) |
3018 |
(comp (file-name-all-completions file dir)) |
(comp (file-name-all-completions file dir)) |