Function: dired-trample-file-versions

dired-trample-file-versions is a byte-compiled function defined in dired-aux.el.gz.

Signature

(dired-trample-file-versions FN)

Source Code

;; Defined in /usr/src/emacs/lisp/dired-aux.el.gz
(defun dired-trample-file-versions (fn)
  (let* ((start-vn (string-match-p "\\.~[0-9]+~$" fn))
	 base-version-list)
    (and start-vn
	 (setq base-version-list	; there was a base version to which
	       (assoc (substring fn 0 start-vn)	; this looks like a
		      dired-file-version-alist))	; subversion
	 (not (memq (string-to-number (substring fn (+ 2 start-vn)))
		    base-version-list))	; this one doesn't make the cut
	 (progn (beginning-of-line)
		(delete-char 1)
		(insert dired-del-marker)))))