Function: vc-mtn-working-revision

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

Signature

(vc-mtn-working-revision FILE)

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/vc-mtn.el.gz
(defun vc-mtn-working-revision (file)
  ;; If `mtn' fails or returns status>0, or if the search fails, just
  ;; return nil.
  (ignore-errors
    (with-temp-buffer
      (vc-mtn-command t 0 file "status")
      (goto-char (point-min))
      (re-search-forward "\\(?:Current b\\|B\\)ranch:  *\\(.*\\)\n?\nChanges against parent \\(.*\\)")
      (match-string 2))))