>From 698918eb1b1f25a4b97bf951e69344ea441a8074 Mon Sep 17 00:00:00 2001 From: "F. Jason Park" Date: Tue, 23 Jan 2024 12:56:38 -0800 Subject: [PATCH] [POC] Allow overriding extras maintainer with :maint-compat * elpa-admin.el (elpaa--supported-keywords): Add `:maint-compat' to spec. (elpaa--metadata): Allow overriding `package-desc-extras' `:maintainer' entry with new `pkg-spec' item `:maint-compat'. (Bug#68660) --- elpa-admin.el | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/elpa-admin.el b/elpa-admin.el index 9cbc805ba4..07db682085 100644 --- a/elpa-admin.el +++ b/elpa-admin.el @@ -1011,7 +1011,7 @@ SPECS is the list of package specifications." '(:url :core :auto-sync :ignored-files :release-branch :release :readme :news :doc :renames :version-map :make :shell-command :branch :lisp-dir :main-file :merge :excludes :rolling-release - :maintainer :manual-sync) + :maint-compat :maintainer :manual-sync) "List of keywords that can appear in a spec.") (defun elpaa--publish-package-spec (spec) @@ -1377,7 +1377,12 @@ PKG is the name of the package and DIR is the directory where it is." (advice-add 'lm-header :around lmheader-advice)) (package-buffer-info)) (advice-remove 'lm-header lmheader-advice))) - (extras (package-desc-extras pkg-desc)) + (extras (let ((m-new (plist-get (cdr pkg-spec) :maint-compat))) + (when m-new + (setf (alist-get :maintainer + (package-desc-extras pkg-desc)) + m-new)) + (package-desc-extras pkg-desc))) (version (package-desc-version pkg-desc)) (keywords (lm-keywords-list)) ;; (_ (elpaa--version-to-list version)) ; Sanity check! -- 2.42.0