emacs-elpa-diffs
[Top][All Lists]
Advanced

[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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]