Function: vc-sccs-working-revision

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

Signature

(vc-sccs-working-revision FILE)

Documentation

SCCS-specific version of vc-working-revision.

Source Code

;; Defined in /usr/src/emacs/lisp/vc/vc-sccs.el.gz
(defun vc-sccs-working-revision (file)
  "SCCS-specific version of `vc-working-revision'."
  (when (and (file-regular-p file) (vc-master-name file))
    (with-temp-buffer
      ;; The working revision is always the latest revision number.
      ;; To find this number, search the entire delta table,
      ;; rather than just the first entry, because the
      ;; first entry might be a deleted ("R") revision.
      (vc-insert-file (vc-master-name file) "^\001e\n\001[^s]")
      (vc-parse-buffer "^\001d D \\([^ ]+\\)" 1))))