[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] elpa-admin c26df96: * elpa-admin.el: Allow `:doc` to specify seve
From: |
Stefan Monnier |
Subject: |
[elpa] elpa-admin c26df96: * elpa-admin.el: Allow `:doc` to specify several doc files |
Date: |
Tue, 22 Dec 2020 13:40:55 -0500 (EST) |
branch: elpa-admin
commit c26df965f32ae02dcbdb5d64e55f4d884ea28c60
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>
* elpa-admin.el: Allow `:doc` to specify several doc files
(elpaa--build-Info-1): Rename from elpaa--build-Info, change first arg.
(elpaa--build-Info): New function.
---
elpa-admin.el | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/elpa-admin.el b/elpa-admin.el
index 619d6ab..b0c4f90 100644
--- a/elpa-admin.el
+++ b/elpa-admin.el
@@ -1419,8 +1419,12 @@ More at " (elpaa--default-url pkgname))
;;; Build Info files from Texinfo
(defun elpaa--build-Info (pkg-spec dir)
- (let* ((default-directory (elpaa--dirname dir))
- (docfile (elpaa--spec-get pkg-spec :doc)))
+ (let ((docfile (elpaa--spec-get pkg-spec :doc)))
+ (dolist (f (if (listp docfile) docfile (list docfile)))
+ (elpaa--build-Info f dir))))
+
+(defun elpaa--build-Info-1 (docfile dir)
+ (let* ((default-directory (elpaa--dirname dir)))
(when (and docfile (file-readable-p docfile)
(string-match "\\.org\\'" docfile))
(with-temp-buffer
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] elpa-admin c26df96: * elpa-admin.el: Allow `:doc` to specify several doc files,
Stefan Monnier <=