github/melpa
1
0
Fork 0
mirror of https://github.com/correl/melpa.git synced 2024-11-14 19:19:32 +00:00
Code Issues Projects Releases Packages Wiki Activity

Write extra info to descriptors of TAR packages

Browse source
This commit is contained in:
Sebastian Wiesner 2014-04-02 16:47:09 +02:00
parent ab68a59456
commit dcbe61db87
1 changed files with 12 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
package-build.el
View file

@ -508,7 +508,18 @@ Optionally PRETTY-PRINT the data."
(lambda (elt) (lambda (elt)
(list (car elt) (list (car elt)
(package-version-join (cadr elt)))) (package-version-join (cadr elt))))
(aref pkg-info 1))) (aref pkg-info 1))
;; Append our extra information
,@(apply #'append (mapcar (lambda (entry)
(let ((value (cdr entry)))
(when (or (symbolp value) (listp value))
;; We must quote lists and symbols,
;; because Emacs 24.3 and earlier evaluate
;; the package information, which would
;; break for unquoted symbols or lists
(setq value (list 'quote value)))
(list (car entry) value)))
(aref pkg-info 4))))
pkg-file pkg-file
t)) t))