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 <>
* emacs-lisp/package.el (package-desc): Simplify (bug#15495).
2013-10-01 Mitchel Humpherys <> (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)
(unless (memq (car rest-plist) '(:kind :archive))
(let ((value (cadr rest-plist)))
(when value
(push (cons (car rest-plist) value)
(setq rest-plist (cddr rest-plist)))
"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