Function: magit-rebase-insert-apply-sequence

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

Signature

(magit-rebase-insert-apply-sequence ONTO)

Source Code

;; Defined in ~/.emacs.d/elpa/magit-20260411.1452/magit-sequence.el
(defun magit-rebase-insert-apply-sequence (onto)
  (let* ((dir (magit-gitdir))
         (rewritten
          (mapcar (##car (split-string %))
                  (magit-file-lines
                   (expand-file-name "rebase-apply/rewritten" dir))))
         (stop (magit-file-line
                (expand-file-name "rebase-apply/original-commit" dir))))
    (dolist (patch (nreverse (cdr (magit-rebase-patches))))
      (let ((hash (cadr (split-string (magit-file-line patch)))))
        (unless (or (member hash rewritten)
                    (equal hash stop))
          (magit-sequence-insert-commit "pick" hash 'magit-sequence-pick))))
    (magit-sequence-insert-sequence
     (magit-file-line (expand-file-name "rebase-apply/original-commit" dir))
     onto)))