Function: magit--merge-absorb

magit--merge-absorb is a byte-compiled function defined in magit-merge.el.

Signature

(magit--merge-absorb BRANCH ARGS &optional MESSAGE)

Source Code

;; Defined in ~/.emacs.d/elpa/magit-20260411.1452/magit-merge.el
(defun magit--merge-absorb (branch args &optional message)
  (when (equal branch (magit-main-branch))
    (unless (yes-or-no-p
             (format "Do you really want to merge `%s' into another branch? "
                     branch))
      (user-error "Abort")))
  (cond-let
    ([target (magit-get-push-branch branch t)]
     (magit-git-push branch target (list "--force-with-lease"))
     (set-process-sentinel
      magit-this-process
      (lambda (process event)
        (when (memq (process-status process) '(exit signal))
          (if (not (zerop (process-exit-status process)))
              (magit-process-sentinel process event)
            (process-put process 'inhibit-refresh t)
            (magit-process-sentinel process event)
            (magit--merge-absorb-1 branch args))
          (when message
            (message message))))))
    ((magit--merge-absorb-1 branch args))))