Finally make package-desc--keywords work

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

2 files changed, 3 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 96547bd3c3f..660c8712a15 100644
--- 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 c130b5fbdf3..118cf69e9cd 100644
--- 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.