From 19b6696c1227ce3ebe22ba7da91bc6912788232d Mon Sep 17 00:00:00 2001 From: Jonas Bernoulli Date: Sat, 21 Sep 2024 17:21:02 +0200 Subject: [PATCH] package-build--write-pkg-file: Don't quote nil --- package-build.el | 16 ++++------------ 1 file changed, 4 insertions(+), 12 deletions(-) diff --git a/package-build.el b/package-build.el index b119867..5469417 100644 --- a/package-build.el +++ b/package-build.el @@ -949,20 +949,12 @@ Use a sandbox if `package-build--use-sandbox' is non-nil." (pp `(define-package ,(symbol-name name) ,(package-version-join (package-desc-version desc)) ,(package-desc-summary desc) - ',(mapcar (pcase-lambda (`(,pkg ,ver)) + ,(macroexp-quote + (mapcar (pcase-lambda (`(,pkg ,ver)) (list pkg (package-version-join ver))) - (package-desc-reqs desc)) + (package-desc-reqs desc))) ,@(cl-mapcan (pcase-lambda (`(,key . ,val)) - (when (or (symbolp val) (listp val)) - ;; We must quote lists and symbols, - ;; because Emacs 24.3 and earlier evaluate - ;; the package information, which would - ;; break for unquoted symbols or lists. - ;; While this library does not support - ;; such old Emacsen, the packages that - ;; we produce should remain compatible. - (setq val (list 'quote val))) - (list key val)) + (list key (macroexp-quote val))) (package-desc-extras desc))) (current-buffer)) (princ ";; Local Variables:\n;; no-byte-compile: t\n;; End:\n"