mirror of
https://github.com/correl/melpa.git
synced 2024-11-14 19:19:32 +00:00
Write extra info to descriptors of TAR packages
This commit is contained in:
parent
ab68a59456
commit
dcbe61db87
1 changed files with 12 additions and 1 deletions
|
@ -508,7 +508,18 @@ Optionally PRETTY-PRINT the data."
|
|||
(lambda (elt)
|
||||
(list (car 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
|
||||
t))
|
||||
|
||||
|
|
Loading…
Reference in a new issue