procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
Fixes: debbugs:15495
This commit is contained in:
Stefan Monnier 2013-10-01 11:52:53 -04:00
parent be4e325d03
commit abd1ae34a6
2 changed files with 9 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/emacs-lisp/package.el
View file

@ -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.