[Emacs-diffs] trunk r116044: Finally make package-desc--keywords work

[Dmitry Gutov]

------------------------------------------------------------
revno: 116044
revision-id: address@hidden
parent: address@hidden
committer: Dmitry Gutov <address@hidden>
branch nick: trunk
timestamp: Thu 2014-01-16 18:44:17 +0200
message:
  Finally make package-desc--keywords work
  
  * lisp/emacs-lisp/package.el (package-desc--keywords): Use `nth'
    instead of `cdr'.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/emacs-lisp/package.el     package.el-20100617020707-ybavz666awsxwin6-2

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-01-16 12:23:14 +0000
+++ b/lisp/ChangeLog    2014-01-16 16:44:17 +0000
@@ -1,7 +1,8 @@
 2014-01-16  Dmitry Gutov  <address@hidden>
 
        * 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  <address@hidden>
 

=== modified file 'lisp/emacs-lisp/package.el'
--- a/lisp/emacs-lisp/package.el        2014-01-16 12:23:14 +0000
+++ b/lisp/emacs-lisp/package.el        2014-01-16 16:44:17 +0000
@@ -390,7 +390,7 @@
 (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.