Function: vc-src-register

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

Signature

(vc-src-register FILES &optional COMMENT)

Documentation

Register FILES under src. COMMENT is ignored.

Source Code

;; Defined in /usr/src/emacs/lisp/vc/vc-src.el.gz
(defun vc-src-register (files &optional _comment)
  "Register FILES under src.  COMMENT is ignored."
  (let* ((dirs (seq-filter #'file-directory-p files))
         (files (seq-remove #'file-directory-p files)))
    ;; SRC doesn't track directories (because RCS doesn't), but we do
    ;; need to create the '.src' subdirectory if it doesn't exist.
    (dolist (dir dirs)
      (make-directory (expand-file-name ".src" dir) t))
    (and files
         (vc-src-command nil files "add"))))