From e092e60f1539898a42ed157b87bdd32f512109e0 Mon Sep 17 00:00:00 2001 From: Philip Kaludercic Date: Fri, 7 Oct 2022 18:57:00 +0200 Subject: Add a package-vc command for submitting ptches * lisp/emacs-lisp/package-vc.el (package-vc-read-pkg): Add auxiliary command for querying source packages. (package-vc-prepare-patch): Add it. * lisp/emacs-lisp/package.el (package-maintainers): Add an optional NO-ERROR argument. --- lisp/emacs-lisp/package-vc.el | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) (limited to 'lisp/emacs-lisp/package-vc.el') diff --git a/lisp/emacs-lisp/package-vc.el b/lisp/emacs-lisp/package-vc.el index 2a45bacf6e9..d3850a5e2c0 100644 --- a/lisp/emacs-lisp/package-vc.el +++ b/lisp/emacs-lisp/package-vc.el @@ -286,5 +286,26 @@ be requested using REV." ;;;###autoload (defalias 'package-checkout #'package-vc-fetch) +(defun package-vc-read-pkg (prompt) + "Query for a source package description with PROMPT." + (completing-read + prompt + package-alist + (lambda (pkg) (package-vc-p (cadr pkg))) + t)) + +(defun package-vc-prepare-patch (pkg subject revisions) + "Send a patch to the maintainer of a package PKG. +SUBJECT and REVISIONS are used passed on to `vc-prepare-patch'. +PKG must be a package description." + (interactive + (list (package-vc-read-pkg "Package to prepare a patch for: ") + (and (not vc-prepare-patches-separately) + (read-string "Subject: " "[PATCH] " nil nil t)) + (or (log-view-get-marked) + (vc-read-multiple-revisions "Revisions: ")))) + (vc-prepare-patch (package-maintainers pkg t) + subject revisions)) + (provide 'package-vc) ;;; package-vc.el ends here -- cgit v1.2.3