Function: majutsu-tag-set

majutsu-tag-set is an interactive and natively compiled function defined in majutsu-tag.el.

Signature

(majutsu-tag-set NAMES REVISION &optional ALLOW-MOVE)

Documentation

Create or update tag NAMES to point to REVISION.

When ALLOW-MOVE is non-nil, pass --allow-move.

Key Bindings

This command is not in any keymaps.

Source Code

;; Defined in /nix/store/jagqw3nms546pad0gxi5f3wsckk6pji7-emacs-packages-deps/share/emacs/site-lisp/majutsu-tag.el
;;;###autoload
(defun majutsu-tag-set (names revision &optional allow-move)
  "Create or update tag NAMES to point to REVISION.
When ALLOW-MOVE is non-nil, pass `--allow-move'."
  (interactive
   (let* ((default-revision (or (magit-section-value-if 'jj-commit) "@"))
          (names (majutsu-tag--read-exact-names "Set tag(s)"))
          (revision (majutsu-read-revset
                     "Target revision" :default default-revision))
          (allow-move current-prefix-arg))
     (list names revision allow-move)))
  (when names
    (when (zerop (majutsu-run-jj "tag" "set"
                                 (and allow-move '("--allow-move"))
                                 "-r" revision
                                 names))
      (message "Set tag(s) at %s: %s" revision (string-join names ", ")))))