Function: vc-git-add-working-tree

vc-git-add-working-tree is a byte-compiled function defined in vc-git.el.gz.

Signature

(vc-git-add-working-tree DIRECTORY)

Documentation

Implementation of add-working-tree backend function for Git.

Source Code

;; Defined in /usr/src/emacs/lisp/vc/vc-git.el.gz
(defun vc-git-add-working-tree (directory)
  "Implementation of `add-working-tree' backend function for Git."
  (letrec ((dir (expand-file-name directory))
           (vc-filter-command-function #'list) ; see `vc-read-revision'
           (revs (vc-git-revision-table nil))
           (table (lazy-completion-table table (lambda () revs)))
           (branch (completing-read (format-prompt "New or existing branch"
                                                   "latest revision, detached")
                                    table nil nil nil 'vc-revision-history))
           (args (cond ((string-empty-p branch)
                        (list "--detach" dir))
                       ((member branch revs)
                        (list dir branch))
                       (t
                        (list "-b" branch dir (vc-git--read-start-point))))))
    (apply #'vc-git-command nil 0 nil "worktree" "add" args)))