Function: vc-hg-create-tag

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

Signature

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

Documentation

Create tag NAME in repo in DIR. Create branch if BRANCHP.

Variable vc-hg-create-bookmark controls what kind of branch will be created.

Source Code

;; Defined in /usr/src/emacs/lisp/vc/vc-hg.el.gz
;;; Tag system

(defun vc-hg-create-tag (dir name branchp)
  "Create tag NAME in repo in DIR.  Create branch if BRANCHP.
Variable `vc-hg-create-bookmark' controls what kind of branch will be created."
  (let ((default-directory dir))
    (vc-hg-command nil 0 nil
                   (if branchp
                       (if (if (eq vc-hg-create-bookmark 'ask)
                               (yes-or-no-p "Create bookmark instead of branch? ")
                             vc-hg-create-bookmark)
                           "bookmark"
                         "branch")
                     "tag")
                   name)))