Function: vc-sccs-steal-lock

vc-sccs-steal-lock is a byte-compiled function defined in vc-sccs.el.gz.

Signature

(vc-sccs-steal-lock FILE &optional REV)

Documentation

Steal the lock on the current workfile for FILE and revision REV.

Source Code

;; Defined in /usr/src/emacs/lisp/vc/vc-sccs.el.gz
(defun vc-sccs-steal-lock (file &optional rev)
  "Steal the lock on the current workfile for FILE and revision REV."
  (if (file-directory-p file)
      (mapc #'vc-sccs-steal-lock (vc-expand-dirs (list file) 'SCCS))
    (vc-sccs-do-command nil 0 "unget"
			(vc-master-name file) "-n" (if rev (concat "-r" rev)))
    (vc-sccs-do-command nil 0 "get"
			(vc-master-name file) "-g" (if rev (concat "-r" rev)))))