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

Fixes: debbugs:15495

lisp/ChangeLog

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

lisp/emacs-lisp/package.el

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