mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00
Code Issues Releases Activity

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

Browse Source 
`assoc'.  Make private.  Update all callers.
This commit is contained in:
Dmitry Gutov 2014-01-16 14:23:14 +02:00
parent d967cd184c
commit 2dbf4ffdda
2 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +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.
2014-01-16 Stefan Monnier <monnier@iro.umontreal.ca>
* follow.el (follow-adjust-window): Remove `dest' argument (bug#16426).

10
lisp/emacs-lisp/package.el
View File

@ -387,8 +387,8 @@ Slots:
(`tar ".tar")
(kind (error "Unknown package kind: %s" kind))))
(defun package-desc-keywords (pkg-desc)
(let ((keywords (assoc :keywords (package-desc-extras pkg-desc))))
(defun package-desc--keywords (pkg-desc)
(let ((keywords (cdr (assoc :keywords (package-desc-extras pkg-desc)))))
(if (eq (car-safe keywords) 'quote)
(cdr keywords)
keywords)))
@ -1387,7 +1387,7 @@ If optional arg NO-ACTIVATE is non-nil, don't activate packages."
(archive (if desc (package-desc-archive desc)))
(extras (and desc (package-desc-extras desc)))
(homepage (cdr (assoc :url extras)))
(keywords (if desc (package-desc-keywords desc)))
(keywords (if desc (package-desc--keywords desc)))
(built-in (eq pkg-dir 'builtin))
(installable (and archive (not built-in)))
(status (if desc (package-desc-status desc) "orphan"))
@ -1738,7 +1738,7 @@ KEYWORDS should be nil or a list of keywords."
(let (keywords)
(package--mapc (lambda (desc)
(let* ((extras (and desc (package-desc-extras desc)))
(desc-keywords (and desc (package-desc-keywords desc))))
(desc-keywords (and desc (package-desc--keywords desc))))
(setq keywords (append keywords desc-keywords)))))
keywords))
@ -1780,7 +1780,7 @@ Built-in packages are converted with `package--from-builtin'."
When none are given, the package matches."
(if keywords
(let* ((extras (and desc (package-desc-extras desc)))
(desc-keywords (and desc (package-desc-keywords desc)))
(desc-keywords (and desc (package-desc--keywords desc)))
found)
(dolist (k keywords)
(when (and (not found)