Function: magit-branch-read-args

magit-branch-read-args is a byte-compiled function defined in magit-branch.el.

Signature

(magit-branch-read-args PROMPT &optional DEFAULT-START)

Source Code

;; Defined in ~/.emacs.d/elpa/magit-20260411.1452/magit-branch.el
(defun magit-branch-read-args (prompt &optional default-start)
  (if magit-branch-read-upstream-first
      (let ((choice (magit-read-starting-point prompt nil default-start)))
        (cond
          ((magit-rev-verify choice)
           (list (magit-read-string-ns
                  (if magit-completing-read--silent-default
                      (format "%s (starting at `%s')" prompt choice)
                    "Name for new branch")
                  (let ((def (string-join (cdr (split-string choice "/")) "/")))
                    (and (member choice (magit-list-remote-branch-names))
                         (not (member def (magit-list-local-branch-names)))
                         def)))
                 choice))
          ((eq magit-branch-read-upstream-first 'fallback)
           (list choice
                 (magit-read-starting-point prompt choice default-start)))
          ((user-error "Not a valid starting-point: %s" choice))))
    (let ((branch (magit-read-string-ns (concat prompt " named"))))
      (if (magit-branch-p branch)
          (magit-branch-read-args
           (format "Branch `%s' already exists; pick another name" branch)
           default-start)
        (list branch (magit-read-starting-point prompt branch default-start))))))