Function: vc-cvs-state-heuristic

vc-cvs-state-heuristic is a byte-compiled function defined in vc-cvs.el.gz.

Signature

(vc-cvs-state-heuristic FILE)

Documentation

CVS-specific state heuristic.

Source Code

;; Defined in /usr/src/emacs/lisp/vc/vc-cvs.el.gz
(defun vc-cvs-state-heuristic (file)
  "CVS-specific state heuristic."
  ;; If the file has not changed since checkout, consider it `up-to-date'.
  ;; Otherwise consider it `edited'.
  (let ((checkout-time (vc-file-getprop file 'vc-checkout-time))
        (lastmod (file-attribute-modification-time (file-attributes file))))
    (cond
     ((time-equal-p checkout-time lastmod) 'up-to-date)
     ((string= (vc-working-revision file) "0") 'added)
     ((null checkout-time) 'unregistered)
     (t 'edited))))