Function: vc-git-checkin-patch

vc-git-checkin-patch is a byte-compiled function defined in vc-git.el.gz.

Signature

(vc-git-checkin-patch PATCH-STRING COMMENT)

Documentation

Git-specific version of vc-BACKEND-checkin-patch.

Source Code

;; Defined in /usr/src/emacs/lisp/vc/vc-git.el.gz
(defun vc-git-checkin-patch (patch-string comment)
  "Git-specific version of `vc-BACKEND-checkin-patch'."
  (let ((mailinfo (vc-git--mailinfo patch-string)))
    (unless comment
      (setq comment (if-let* ((subject (assoc "Subject" mailinfo)))
                        (format "Summary: %s\n\n%s"
                                (cdr subject)
                                (cdr (assq 'message mailinfo)))
                      (cdr (assq 'message mailinfo)))))
    (when-let* ((date (assoc "Date" mailinfo)))
      (setq comment (format "Date: %s\n%s" (cdr date) comment)))
    (when-let* ((author (assoc "Author" mailinfo))
                (email (assoc "Email" mailinfo)))
      (setq comment (format "Author: %s <%s>\n%s"
                            (cdr author) (cdr email) comment)))
    (vc-git--checkin comment nil (cdr (assq 'patch mailinfo)))))