Function: vc-sccs-lookup-triple

vc-sccs-lookup-triple is a byte-compiled function defined in vc-sccs.el.gz.

Signature

(vc-sccs-lookup-triple FILE NAME)

Documentation

Return the numeric revision corresponding to a named tag of FILE.

If NAME is nil or a revision number string it's just passed through.

Source Code

;; Defined in /usr/src/emacs/lisp/vc/vc-sccs.el.gz
(defun vc-sccs-lookup-triple (file name)
  "Return the numeric revision corresponding to a named tag of FILE.
If NAME is nil or a revision number string it's just passed through."
  (if (or (null name)
	  (let ((firstchar (aref name 0)))
	    (and (>= firstchar ?0) (<= firstchar ?9))))
      name
    (with-temp-buffer
      (vc-insert-file
       (expand-file-name vc-sccs-name-assoc-file
			 (file-name-directory (vc-master-name file))))
      (vc-parse-buffer (concat name "\t:\t" file "\t\\(.+\\)") 1))))