Function: magit-insert-am-sequence

magit-insert-am-sequence is a byte-compiled function defined in magit-sequence.el.

Signature

(magit-insert-am-sequence)

Documentation

Insert section for the on-going patch applying sequence.

If no such sequence is in progress, do nothing.

Source Code

;; Defined in ~/.emacs.d/elpa/magit-20260411.1452/magit-sequence.el
(defun magit-insert-am-sequence ()
  "Insert section for the on-going patch applying sequence.
If no such sequence is in progress, do nothing."
  (when (magit-am-in-progress-p)
    (magit-insert-section (rebase-sequence)
      (magit-insert-heading "Applying patches")
      (let* ((patches (nreverse (magit-rebase-patches)))
             (dir (expand-file-name "rebase-apply" (magit-gitdir)))
             (i (string-to-number
                 (magit-file-line (expand-file-name "last" dir))))
             (cur (string-to-number
                   (magit-file-line (expand-file-name "next" dir))))
             patch commit)
        (while (and patches (>= i cur))
          (setq patch (pop patches))
          (setq commit
                (magit-commit-oid (cadr (split-string (magit-file-line patch)))
                                  t))
          (cond ((and commit (= i cur))
                 (magit-sequence-insert-commit
                  "stop" commit 'magit-sequence-stop))
                ((= i cur)
                 (magit-sequence-insert-am-patch
                  "stop" patch 'magit-sequence-stop))
                (commit
                 (magit-sequence-insert-commit
                  "pick" commit 'magit-sequence-pick))
                ((magit-sequence-insert-am-patch
                  "pick" patch 'magit-sequence-pick)))
          (cl-decf i)))
      (magit-sequence-insert-sequence nil "ORIG_HEAD")
      (insert ?\n))))