Mercurial > emacs
comparison lisp/dired-aux.el @ 17733:6d8fecd12940
(dired-collect-file-versions):
Rename bv-length to backup-extract-version-start.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 10 May 1997 05:43:58 +0000 |
| parents | 5dd977f51652 |
| children | 727cf56647a4 |
comparison
equal
deleted
inserted
replaced
| 17732:442b07348a34 | 17733:6d8fecd12940 |
|---|---|
| 265 ;; If it looks like file FN has versions, return a list of the versions. | 265 ;; If it looks like file FN has versions, return a list of the versions. |
| 266 ;;That is a list of strings which are file names. | 266 ;;That is a list of strings which are file names. |
| 267 ;;The caller may want to flag some of these files for deletion. | 267 ;;The caller may want to flag some of these files for deletion. |
| 268 (let* ((base-versions | 268 (let* ((base-versions |
| 269 (concat (file-name-nondirectory fn) ".~")) | 269 (concat (file-name-nondirectory fn) ".~")) |
| 270 (bv-length (length base-versions)) | 270 (backup-extract-version-start (length base-versions)) |
| 271 (possibilities (file-name-all-completions | 271 (possibilities (file-name-all-completions |
| 272 base-versions | 272 base-versions |
| 273 (file-name-directory fn))) | 273 (file-name-directory fn))) |
| 274 (versions (mapcar 'backup-extract-version possibilities))) | 274 (versions (mapcar 'backup-extract-version possibilities))) |
| 275 (if versions | 275 (if versions |