>From 539e36cc448315cb26bae400cb52de4308a0a747 Mon Sep 17 00:00:00 2001 From: Philip Kaludercic Date: Mon, 31 Oct 2022 10:35:21 +0100 Subject: [PATCH] Cache 'elpaa--get-specs' invocations * elpa-admin.el (elpa--specs-cache): Add new variable. (elpaa--get-specs): Use 'elpa--specs-cache'. --- elpa-admin.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/elpa-admin.el b/elpa-admin.el index ac36aa686a..3fb1d756fb 100644 --- a/elpa-admin.el +++ b/elpa-admin.el @@ -176,8 +176,11 @@ Delete backup files also." (let ((default-directory (expand-file-name dir))) (elpaa--html-make-index (cdr ac)))))) +(defvar elpa--specs-cache nil) + (defun elpaa--get-specs () - (elpaa--form-from-file-contents elpaa--specs-file)) + (or elpa--specs-cache + (setq elpa--specs-cache (elpaa--form-from-file-contents elpaa--specs-file)))) (defun elpaa--spec-get (pkg-spec prop &optional default) (or (plist-get (cdr pkg-spec) prop) default)) -- 2.38.0