diff options
| author | Dmitry Gutov <dgutov@yandex.ru> | 2014-01-16 18:44:17 +0200 |
|---|---|---|
| committer | Dmitry Gutov <dgutov@yandex.ru> | 2014-01-16 18:44:17 +0200 |
| commit | 39903fd1fc793bb51d44cf48a48b58e8c114a97e (patch) | |
| tree | 4127d47966e1c3e362d4f7a18c44c8755e608135 /lisp | |
| parent | 4d6df42066b762ba12191ba6dec82cda96ac21d3 (diff) | |
| download | emacs-39903fd1fc793bb51d44cf48a48b58e8c114a97e.tar.gz | |
Finally make package-desc--keywords work
* lisp/emacs-lisp/package.el (package-desc--keywords): Use `nth'
instead of `cdr'.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/emacs-lisp/package.el | 2 |
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. |