Revert "Start handling extra package properties such as URL, keywords"

This reverts commit b65bdcfa2b.
This commit is contained in:
Steve Purcell 2014-01-15 08:32:33 +00:00
parent a555fea6d9
commit bd34c21623

View file

@ -469,8 +469,7 @@ Optionally PRETTY-PRINT the data."
(lambda (elt)
(list (car elt)
(package-version-join (cadr elt))))
(aref pkg-info 1))
,(and (>= (length pkg-info) 5) (aref pkg-info 4)))
(aref pkg-info 1)))
pkg-file
t))
@ -596,14 +595,12 @@ If PKG-INFO is nil, an empty one is created."
(let* ((name (intern (aref pkg-info 0)))
(requires (aref pkg-info 1))
(desc (or (aref pkg-info 2) "No description available."))
(version (aref pkg-info 3))
(extras (and (>= (length pkg-info) 5) (aref pkg-info 4))))
(version (aref pkg-info 3)))
(cons name
(vector (version-to-list version)
requires
desc
type
extras))))
type))))
(defun pb/archive-file-name (archive-entry)
"Return the path of the file in which the package for ARCHIVE-ENTRY is stored."
@ -797,8 +794,7 @@ and a cl struct in Emacs HEAD. This wrapper normalises the results."
(vector (package-desc-name desc)
(package-desc-reqs desc)
(package-desc-summary desc)
(package-desc-version desc)
(package-desc-extras desc))
(package-desc-version desc))
desc)))