Function: magit-insert-merge-log

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

Signature

(magit-insert-merge-log)

Documentation

Insert section for the on-going merge.

Display the heads that are being merged. If no merge is in progress, do nothing.

Source Code

;; Defined in ~/.emacs.d/elpa/magit-20260411.1452/magit-merge.el
;;; Sections

(defun magit-insert-merge-log ()
  "Insert section for the on-going merge.
Display the heads that are being merged.
If no merge is in progress, do nothing."
  (when (magit-merge-in-progress-p)
    (let* ((heads (mapcar #'magit-get-shortname
                          (magit-file-lines
                           (expand-file-name "MERGE_HEAD" (magit-gitdir)))))
           (range (magit--merge-range (car heads))))
      (magit-insert-section (unmerged range)
        (magit-insert-heading
          (format "Merging %s:" (string-join heads ", ")))
        (magit--insert-log nil
          range
          (let ((args magit-buffer-log-args))
            (unless (member "--decorate=full" magit-buffer-log-args)
              (push "--decorate=full" args))
            args))))))