branch: elpa-admin
commit 170624fcc09addf04dd927d155b4bf9bd6dd7bad
Author: Stefan Monnier <monn...@iro.umontreal.ca>
Commit: Stefan Monnier <monn...@iro.umontreal.ca>
Avoid lm-homepage which is not in Emacs-24.3
---
admin/archive-contents.el | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/admin/archive-contents.el b/admin/archive-contents.el
index 219a1f9..7ee9c1c 100644
--- a/admin/archive-contents.el
+++ b/admin/archive-contents.el
@@ -187,7 +187,7 @@ Otherwise, return nil."
(requires-str (lm-header "package-requires"))
(pt (lm-header "package-type"))
(simple (if pt (equal pt "simple") (= (length files) 1)))
- (url (or (lm-homepage)
+ (url (or (lm-header "url")
(format "http://elpa.gnu.org/packages/%s.html"; pkg)))
(req
(if requires-str
@@ -452,7 +452,11 @@ Rename DIR/ to PKG-VERS/, and return the descriptor."
(archive--insert-repolinks name srcdir mainsrcfile
(cdr (assoc :url (aref (cdr pkg) 4))))
(let ((rm (archive--get-section
- "Commentary" '("README" "README.rst" "README.md" "README.org")
+ "Commentary" '("README" "README.rst"
+ ;; Most README.md files seem to be currently
+ ;; worse than the Commentary: section :-(
+ ;; "README.md"
+ "README.org")
srcdir mainsrcfile)))
(when rm
(write-region rm nil (concat name "-readme.txt"))
