From dcbe61db87a970e6a24c04555b22ea83e82fb83c Mon Sep 17 00:00:00 2001 From: Sebastian Wiesner Date: Wed, 2 Apr 2014 16:47:09 +0200 Subject: [PATCH] Write extra info to descriptors of TAR packages --- package-build.el | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/package-build.el b/package-build.el index d99af28b..c6cab0a7 100644 --- a/package-build.el +++ b/package-build.el @@ -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))