Finally make package-desc--keywords work

* lisp/emacs-lisp/package.el (package-desc--keywords): Use `nth'
  instead of `cdr'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 96547bd3c3fa08d618bb5bb6ba1c8e79f07a7173..660c8712a1561877de6b5ef9890102c022a2608a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,8 @@
 2014-01-16  Dmitry Gutov  <dgutov@yandex.ru>
 
        * emacs-lisp/package.el (package-desc--keywords): Use `cdr' with
-       `assoc'.  Make private.  Update all callers.
+       `assoc'.  Use `nth' instead of `cdr'.  Make private.  Update all
+       callers.
 
 2014-01-16  Stefan Monnier  <monnier@iro.umontreal.ca>
 

diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index c130b5fbdf33adbff4adc486a6435f1324d101b3..118cf69e9cd02d4cff9014cb8db74f35217050fa 100644 (file)
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -390,7 +390,7 @@ Slots:
 (defun package-desc--keywords (pkg-desc)
   (let ((keywords (cdr (assoc :keywords (package-desc-extras pkg-desc)))))
     (if (eq (car-safe keywords) 'quote)
-        (cdr keywords)
+        (nth 1 keywords)
       keywords)))
 
 ;; Package descriptor format used in finder-inf.el and package--builtins.