Function: vc-sccs-register

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

Signature

(vc-sccs-register FILES &optional COMMENT)

Documentation

Register FILES into the SCCS version control system.

Automatically retrieve a read-only version of the files with keywords expanded. COMMENT can be used to provide an initial description of FILES. Passes either vc-sccs-register-switches or vc-register-switches to the SCCS command.

Source Code

;; Defined in /usr/src/emacs/lisp/vc/vc-sccs.el.gz
(defun vc-sccs-register (files &optional comment)
  "Register FILES into the SCCS version control system.
Automatically retrieve a read-only version of the files with keywords expanded.
COMMENT can be used to provide an initial description of FILES.
Passes either `vc-sccs-register-switches' or `vc-register-switches'
to the SCCS command."
  (dolist (file files)
    (let* ((dirname (or (file-name-directory file) ""))
	   (basename (file-name-nondirectory file))
	   (project-file (vc-sccs-search-project-dir dirname basename)))
      (let ((vc-master-name
	     (or project-file
		 (format (car vc-sccs-master-templates) dirname basename))))
	(apply #'vc-sccs-do-command nil 0 "admin" vc-master-name
	       "-fb"
	       (concat "-i" (file-relative-name file))
	       (and comment (concat "-y" comment))
	       (vc-switches 'SCCS 'register)))
      (delete-file file)
      (vc-sccs-do-command nil 0 "get" (vc-master-name file)))))