[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master ac1e5a5: * lisp/emacs-lisp/package.el: Improve gene
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] master ac1e5a5: * lisp/emacs-lisp/package.el: Improve generated foo-pkg.el |
Date: |
Fri, 8 Feb 2019 14:16:39 -0500 (EST) |
branch: master
commit ac1e5a5e2ed7c6cf5bec50e5ebf7fab6792230bd
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>
* 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.
---
lisp/emacs-lisp/package.el | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index 025a1af..458bfad 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)))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master ac1e5a5: * lisp/emacs-lisp/package.el: Improve generated foo-pkg.el,
Stefan Monnier <=