branch: elpa-admin
commit 965be8e6cfdb817aa0711fb09fed96dcd379573d
Author: Stefan Monnier <monn...@iro.umontreal.ca>
Commit: Stefan Monnier <monn...@iro.umontreal.ca>
* elpa-admin.el (elpaa--manual-sync-re): Change default
(elpaa-read-config): Simplify.
---
elpa-admin.el | 17 +----------------
1 file changed, 1 insertion(+), 16 deletions(-)
diff --git a/elpa-admin.el b/elpa-admin.el
index 907d48eecd..9ab162f188 100644
--- a/elpa-admin.el
+++ b/elpa-admin.el
@@ -107,20 +107,7 @@ See variable `org-export-options-alist'.")
(and (consp val) (cl-every #'stringp val)))
t)
(setf (pcase-exhaustive var
- ('name elpaa--name)
- ('gitrepo elpaa--gitrepo)
- ('url elpaa--url)
- ('branch-prefix elpaa--branch-prefix)
- ('release-branch-prefix elpaa--release-branch-prefix)
- ('specs-file elpaa--specs-file)
- ('copyright-file elpaa--copyright-file)
- ('email-to elpaa--email-to)
- ('email-from elpaa--email-from)
- ('email-reply-to elpaa--email-reply-to)
- ('sandbox elpaa--sandbox)
- ('sandbox-extra-ro-dirs elpaa--sandbox-extra-ro-dirs)
('doc-dir elpaa--doc-subdirectory)
- ('debug elpaa--debug)
((guard (boundp (intern (format "elpaa--%s" var))))
(symbol-value (intern (format "elpaa--%s" var)))))
val))))
@@ -2593,9 +2580,7 @@ relative to elpa root."
;;; Fetch updates from upstream
(defvar elpaa--manual-sync-re
- ;; SourceHut is giving us (slow) errors,
- ;; maybe that black-listed us for excessive polling?
- "git\\.sr\\.ht/"
+ regexp-unmatchable ;; "git\\.sr\\.ht/"
"Regexp matching URLs from which we shouldn't poll.")
(defun elpaa--manual-sync-p (pkg-spec)
