Function: vc-src--parse-state

vc-src--parse-state is a byte-compiled function defined in vc-src.el.gz.

Signature

(vc-src--parse-state OUT)

Source Code

;; Defined in /usr/src/emacs/lisp/vc/vc-src.el.gz
(defun vc-src--parse-state (out)
  (when (null (string-match "does not exist or is unreadable" out))
    (let ((state (aref out 0)))
      (cond
       ;; FIXME: What to do about L code?
       ((eq state ?.) 'up-to-date)
       ((eq state ?A) 'added)
       ((eq state ?M) 'edited)
       ((eq state ?I) 'ignored)
       ((eq state ?R) 'removed)
       ((eq state ?!) 'missing)
       ((eq state ??) 'unregistered)
       (t 'up-to-date)))))