mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/emacs-lisp/package.el (package-all-keywords): Don't cache

Browse source 
(package--all-keywords): Deleted variable.
This commit is contained in:
Artur Malabarba 2015-04-25 17:03:32 +01:00
parent f8d660280d
commit 864573cafe
1 changed files with 4 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/emacs-lisp/package.el
View file

@ -1373,11 +1373,6 @@ it to the file."
(defvar package--downloads-in-progress nil
"List of in-progress asynchronous downloads.")
(defvar package--all-keywords nil
"List of known keywords.
Generated by `package-all-keywords'. Reset to nil whenever the
package archives are retrieved.")
(declare-function epg-check-configuration "epg-config"
(config &optional minimum-version))
(declare-function epg-configuration "epg-config" ())
@ -1495,7 +1490,6 @@ downloads in the background."
(interactive)
(unless (file-exists-p package-user-dir)
(make-directory package-user-dir t))
(setq package--all-keywords nil)
(let ((default-keyring (expand-file-name "package-keyring.gpg"
data-directory))
(package--silence async))
@ -2570,11 +2564,11 @@ KEYWORDS should be nil or a list of keywords."
(defun package-all-keywords ()
"Collect all package keywords"
(unless package--all-keywords
(let ((key-list))
(package--mapc (lambda (desc)
(let* ((desc-keywords (and desc (package-desc--keywords desc))))
(setq package--all-keywords (append desc-keywords package--all-keywords))))))
package--all-keywords)
(setq key-list (append (package-desc--keywords desc)
key-list))))
key-list))
(defun package--mapc (function &optional packages)
"Call FUNCTION for all known PACKAGES.