From: Stefan Monnier Date: Fri, 8 Feb 2019 19:16:31 +0000 (-0500) Subject: * lisp/emacs-lisp/package.el: Improve generated foo-pkg.el X-Git-Tag: emacs-27.0.90~3645 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ac1e5a5e2ed7c6cf5bec50e5ebf7fab6792230bd;p=emacs.git * lisp/emacs-lisp/package.el: Improve generated foo-pkg.el (package-generate-description-file): Make first line more informative. (package-buffer-info): Include keywords, to more closely match elpa.git's archive--metadata. --- diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el index 025a1afbdbb..458bfad3279 100644 --- a/lisp/emacs-lisp/package.el +++ b/lisp/emacs-lisp/package.el @@ -904,7 +904,9 @@ untar into a directory named DIR; otherwise, signal an error." (print-length nil)) (write-region (concat - ";;; -*- no-byte-compile: t -*-\n" + ";;; Generated package description from " + (replace-regexp-in-string "-pkg\\.el\\'" ".el" pkg-file) + " -*- no-byte-compile: t -*-\n" (prin1-to-string (nconc (list 'define-package @@ -1007,6 +1009,7 @@ is wrapped around any parts requiring it." (declare-function lm-header "lisp-mnt" (header)) (declare-function lm-homepage "lisp-mnt" (&optional file)) +(declare-function lm-keywords-list "lisp-mnt" (&optional file)) (declare-function lm-maintainer "lisp-mnt" (&optional file)) (declare-function lm-authors "lisp-mnt" (&optional file)) @@ -1037,6 +1040,7 @@ boundaries." (pkg-version (or (package-strip-rcs-id (lm-header "package-version")) (package-strip-rcs-id (lm-header "version")))) + (keywords (lm-keywords-list)) (homepage (lm-homepage))) (unless pkg-version (error @@ -1048,6 +1052,7 @@ boundaries." (package-read-from-string requires-str))) :kind 'single :url homepage + :keywords keywords :maintainer (lm-maintainer) :authors (lm-authors)))))