From f3345c44413ff7959d4895912672e5ac6f4e7453 Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Tue, 15 Jul 2014 21:45:19 +0100
Subject: Emacs: define package-desc-archive, if it isn't

---
 tag-emacs/emacs.d/init.el | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'tag-emacs')

diff --git a/tag-emacs/emacs.d/init.el b/tag-emacs/emacs.d/init.el
index 40f495e..e1352fc 100644
--- a/tag-emacs/emacs.d/init.el
+++ b/tag-emacs/emacs.d/init.el
@@ -54,6 +54,10 @@
   :config (progn
             (setq paradox-automatically-star nil)))
 
+(if (not (fboundp #'package-desc-archive))
+    (defsubst package-desc-archive (desc)
+      (aref desc (1- (length desc)))))
+
 (defun package-list-installed ()
   (loop for pkg in package-activated-list
         collect (cadr (assq pkg package-archive-contents))))
-- 
cgit 1.4.1