Function: magit--log-action

magit--log-action is a natively compiled function defined in magit-process.el.

Signature

(magit--log-action SUMMARY LINE LIST)

Source Code

;; Defined in /nix/store/irvbdy0zra0dn8fpd008f32x5ix6qm5v-emacs-packages-deps/share/emacs/site-lisp/elpa/magit-20261005.508/magit-process.el
(defun magit--log-action (summary line list)
  (let (heading lines)
    (cond ((cdr list)
           (setq lines (mapcar line list))
           (setq heading (funcall summary list)))
          ((setq heading (funcall line (car list)))))
    (with-current-buffer (magit-process-buffer t)
      (goto-char (1- (point-max)))
      (let ((inhibit-read-only t))
        (magit-insert-section (message)
          (magit-insert-heading (concat "  * " heading))
          (when lines
            (dolist (line lines)
              (insert line "\n"))
            (insert "\n"))))
      (let ((inhibit-message t))
        (when heading
          (setq lines (cons heading lines)))
        (message (string-join lines "\n"))))))