Function: vc-src-working-revision

vc-src-working-revision is a byte-compiled function defined in vc-src.el.gz.

Signature

(vc-src-working-revision FILE)

Documentation

SRC-specific version of vc-working-revision.

Source Code

;; Defined in /usr/src/emacs/lisp/vc/vc-src.el.gz
(defun vc-src-working-revision (file)
  "SRC-specific version of `vc-working-revision'."
  (let ((result (ignore-errors
                  (string-trim-right
                   (with-output-to-string
                     (vc-src-command standard-output file "list" "-f{1}" "@"))))))
    (if (zerop (length result)) "0" result)))