Commit abd1ae34 authored by Stefan Monnier's avatar Stefan Monnier

* lisp/emacs-lisp/package.el (package-desc): Simplify.

Fixes: debbugs:15495
parent be4e325d
2013-10-01 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/package.el (package-desc): Simplify (bug#15495).
2013-10-01 Mitchel Humpherys <mitch.special@gmail.com> (tiny change)
* vc/vc-git.el (vc-git-grep): Disable pager.
......
......@@ -309,13 +309,12 @@ contrast, `package-user-dir' contains packages for personal use."
(kind (plist-get rest-plist :kind))
(archive (plist-get rest-plist :archive))
(extras (let (alist)
(cl-remf rest-plist :kind)
(cl-remf rest-plist :archive)
(while rest-plist
(let ((value (cadr rest-plist)))
(when value
(push (cons (car rest-plist) value)
alist)))
(unless (memq (car rest-plist) '(:kind :archive))
(let ((value (cadr rest-plist)))
(when value
(push (cons (car rest-plist) value)
alist))))
(setq rest-plist (cddr rest-plist)))
alist)))))
"Structure containing information about an individual package.
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment