Handle -pkg.el files without :url/:version properties etc.

Fixes #1620, references #1619
This commit is contained in:
Steve Purcell 2014-04-04 16:54:06 +01:00
parent 036b4b67a2
commit f91df24db5

View file

@ -519,7 +519,8 @@ Optionally PRETTY-PRINT the data."
;; break for unquoted symbols or lists
(setq value (list 'quote value)))
(list (car entry) value)))
(aref pkg-info 4))))
(when (> (length pkg-info) 4)
(aref pkg-info 4)))))
pkg-file
t))
@ -646,7 +647,8 @@ If PKG-INFO is nil, an empty one is created."
(requires (aref pkg-info 1))
(desc (or (aref pkg-info 2) "No description available."))
(version (aref pkg-info 3))
(extras (aref pkg-info 4)))
(extras (when (> (length pkg-info) 4)
(aref pkg-info 4))))
(cons name
(vector (version-to-list version)
requires