procyberian/emacs
1
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
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
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.

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.