Function: magit-blame-process-sentinel

magit-blame-process-sentinel is a natively compiled function defined in magit-blame.el.

Signature

(magit-blame-process-sentinel PROCESS EVENT &optional QUIET)

Source Code

;; Defined in /nix/store/irvbdy0zra0dn8fpd008f32x5ix6qm5v-emacs-packages-deps/share/emacs/site-lisp/elpa/magit-20261005.508/magit-blame.el
(defun magit-blame-process-sentinel (process _event &optional quiet)
  (let ((status (process-status process)))
    (when (memq status '(exit signal))
      (kill-buffer (process-buffer process))
      (kill-buffer (process-get process 'stderr-buf))
      (if (and (eq status 'exit)
               (zerop (process-exit-status process)))
          (unless quiet
            (message "Blaming...done"))
        (magit-blame-assert-buffer process)
        (with-current-buffer (process-get process 'command-buf)
          (cond (magit-blame-mode
                 (magit-blame-mode -1)
                 (message "Blaming...failed"))
                ((message "Blaming...aborted")))))
      (kill-local-variable 'magit-blame-process))))