procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/emacs-lisp/package.el: Improve generated foo-pkg.el

Browse source 
(package-generate-description-file): Make first line more informative.
(package-buffer-info): Include keywords, to more closely match
elpa.git's archive--metadata.
This commit is contained in:
Stefan Monnier 2019-02-08 14:16:31 -05:00
parent 0f9940505f
commit ac1e5a5e2e
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/emacs-lisp/package.el
View file

@ -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)))))