summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorAlan Pearce2014-07-19 13:13:08 +0100
committerAlan Pearce2014-07-19 13:13:08 +0100
commit40133c84069510bc09ff2b460d0bf0f3da36097a (patch)
treefb4825f08fcabd0732e3cf3528d2d8810f39b6c1
parent75f064acac3c5b8d3ff84e15f70bd60e0422a975 (diff)
downloaddotfiles-40133c84069510bc09ff2b460d0bf0f3da36097a.tar.lz
dotfiles-40133c84069510bc09ff2b460d0bf0f3da36097a.tar.zst
dotfiles-40133c84069510bc09ff2b460d0bf0f3da36097a.zip
Emacs: Fix package archive functions' for 24.3
-rw-r--r--tag-emacs/emacs.d/init.el8
1 files changed, 4 insertions, 4 deletions
diff --git a/tag-emacs/emacs.d/init.el b/tag-emacs/emacs.d/init.el
index b92b1fa..47fa705 100644
--- a/tag-emacs/emacs.d/init.el
+++ b/tag-emacs/emacs.d/init.el
@@ -60,7 +60,7 @@
 
 (defun package-list-installed ()
   (loop for pkg in package-activated-list
-        collect (cdr (assq pkg package-archive-contents))))
+        collect (assq pkg package-archive-contents)))
 
 (defun package-archive-stats ()
   (let ((archives (makehash))
@@ -70,15 +70,15 @@
     (maphash (lambda (k v)
                (setq assoc (cons (cons k v) assoc)))
              (dolist (pkg (-filter #'identity (package-list-installed)) archives)
-               (let ((pkg-arc (package-desc-archive pkg)))
+               (let ((pkg-arc (package-desc-archive (cdr pkg))))
                  (incf (gethash pkg-arc archives)))))
     assoc))
 
 (defun package-show-installed-from-archive (archive)
   (interactive (list (helm-comp-read "Archive: " (mapcar #'car package-archives)
                                       :must-match t)))
-  (let ((from-arc (mapcar #'package-desc-name
-                          (--filter (equalp (package-desc-archive it) archive)
+  (let ((from-arc (mapcar #'car
+                          (--filter (equalp (package-desc-archive (cdr it)) archive)
                                     (package-list-installed)))))
     (if (called-interactively-p)
         (message "%s" from-arc)