Lines Matching defs:versions
369 Spares `dired-kept-versions' latest versions, and `kept-old-versions' oldest.
370 Positive prefix arg KEEP overrides `dired-kept-versions';
371 Negative prefix arg KEEP overrides `kept-old-versions' with KEEP made positive.
376 (setq keep (if keep (prefix-numeric-value keep) dired-kept-versions))
377 (let ((early-retention (if (< keep 0) (- keep) kept-old-versions))
378 (late-retention (if (<= keep 0) dired-kept-versions keep))
383 ;; If the file has numeric backup versions,
386 (dired-map-dired-file-lines (function dired-collect-file-versions))
388 ;; and remove the versions not to be deleted.
402 (dired-map-dired-file-lines (function dired-trample-file-versions))
422 (defun dired-collect-file-versions (fn)
423 (let ((fn (file-name-sans-versions fn)))
427 ;; If it looks like file FN has versions, return a list of the versions.
430 (let* ((base-versions
432 (backup-extract-version-start (length base-versions))
434 base-versions
436 (versions (mapcar 'backup-extract-version possibilities)))
437 (if versions
439 (cons (cons fn versions)
442 (defun dired-trample-file-versions (fn)