Function: vc-git-create-tag

vc-git-create-tag is a byte-compiled function defined in vc-git.el.gz.

Signature

(vc-git-create-tag DIR NAME BRANCHP)

Source Code

;; Defined in /usr/src/emacs/lisp/vc/vc-git.el.gz
(defun vc-git-create-tag (dir name branchp)
  (let ((default-directory dir)
        (start-point (and branchp (vc-git--read-start-point dir))))
    (and (or (zerop (vc-git-command nil t nil "update-index" "--refresh"))
             (y-or-n-p "Modified files exist.  Proceed? ")
             (user-error (format "Can't create %s with modified files"
                                 (if branchp "branch" "tag"))))
         (if branchp
             (vc-git-command nil 0 nil "checkout" "-b" name
                             (when (and start-point
                                        (not (equal start-point "")))
                               start-point))
           (vc-git-command nil 0 nil "tag" name)))))