summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorAlan Pearce2014-07-15 21:45:42 +0100
committerAlan Pearce2014-07-15 21:45:42 +0100
commit2620a173aec17d3c1f630ae8f6ebded7a8c07e35 (patch)
treed4738de3eebf073a02b2b4a6669788efc389d9b2
parentf3345c44413ff7959d4895912672e5ac6f4e7453 (diff)
downloaddotfiles-2620a173aec17d3c1f630ae8f6ebded7a8c07e35.tar.lz
dotfiles-2620a173aec17d3c1f630ae8f6ebded7a8c07e35.tar.zst
dotfiles-2620a173aec17d3c1f630ae8f6ebded7a8c07e35.zip
Emacs: Make package-archive-stats more resilient
Filters out packages missing from package-archive-contents
-rw-r--r--tag-emacs/emacs.d/init.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/tag-emacs/emacs.d/init.el b/tag-emacs/emacs.d/init.el
index e1352fc..317309b 100644
--- a/tag-emacs/emacs.d/init.el
+++ b/tag-emacs/emacs.d/init.el
@@ -69,7 +69,7 @@
       (puthash (car arc) 0 archives))
     (maphash (lambda (k v)
                (setq assoc (cons (cons k v) assoc)))
-             (dolist (pkg (package-list-installed) archives)
+             (dolist (pkg (-filter #'identity (package-list-installed)) archives)
                (let ((pkg-arc (package-desc-archive pkg)))
                  (incf (gethash pkg-arc archives)))))
     assoc))