Function: vc-sccs-parse-locks

vc-sccs-parse-locks is a byte-compiled function defined in vc-sccs.el.gz.

Signature

(vc-sccs-parse-locks)

Documentation

Parse SCCS locks in current buffer.

The result is a list of the form ((REVISION . USER) (REVISION . USER) ...).

Source Code

;; Defined in /usr/src/emacs/lisp/vc/vc-sccs.el.gz
(defun vc-sccs-parse-locks ()
  "Parse SCCS locks in current buffer.
The result is a list of the form ((REVISION . USER) (REVISION . USER) ...)."
  (let (master-locks)
    (goto-char (point-min))
    (while (re-search-forward "^\\([0-9.]+\\) [0-9.]+ \\([^ ]+\\) .*\n?"
			      nil t)
      (setq master-locks
	    (cons (cons (match-string 1) (match-string 2)) master-locks)))
    ;; FIXME: is it really necessary to reverse ?
    (nreverse master-locks)))