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

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] elpa-admin f08292f 152/357: * admin/archive-contents.el: Don't st


From: Stefan Monnier
Subject: [elpa] elpa-admin f08292f 152/357: * admin/archive-contents.el: Don't stop at the first incorrect version string.
Date: Thu, 10 Dec 2020 18:06:33 -0500 (EST)

branch: elpa-admin
commit f08292f7ba4b940e1b8a7bd3f652e1788ed25c7f
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    * admin/archive-contents.el: Don't stop at the first incorrect version 
string.
    * externals-list (rudel): Not maintained externally any more.
    (chess): Fix syntax.
---
 admin/archive-contents.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/admin/archive-contents.el b/admin/archive-contents.el
index 5f056ba..5983646 100644
--- a/admin/archive-contents.el
+++ b/admin/archive-contents.el
@@ -69,7 +69,10 @@ Delete backup files also."
              (if (file-exists-p autoloads-file)
                  (delete-file autoloads-file))
              (archive--delete-elc-files dir)
-             (let ((metadata (archive--metadata dir pkg)))
+             (let ((metadata (or (with-demoted-errors
+                                    ;;(format "batch-make-archive %s: %%s" dir)
+                                    (archive--metadata dir pkg))
+                                  '(nil "0"))))
                 ;; (nth 1 metadata) is nil for "org" which is the only package
                 ;; still using the "org-pkg.el file to specify the metadata.
                 (if (and (nth 1 metadata)



reply via email to

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