[nongnu] elpa-admin 60ecd84 351/439: * admin/archive-contents.el: Fix construction of index.html

[Philip Kaludercic]

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

    * admin/archive-contents.el: Fix construction of index.html
    
    (archive--make-one-package): Don't set the -devel name when building the
    non-devel tarball.
    (archive--make-one-package): Pass the right version number when
    building the "last-release".
---
 admin/archive-contents.el | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

diff --git a/admin/archive-contents.el b/admin/archive-contents.el
index ac27d9d..9e63798 100644
--- a/admin/archive-contents.el
+++ b/admin/archive-contents.el
@@ -364,13 +364,13 @@ Return non-nil if a new tarball was created."
                         "0." date-version))
                (tarball (concat archive--devel-subdir
                                 (format "%s-%s.tar" pkgname devel-vers)))
-               (archive--name (concat archive--name "-devel"))
                (new
-                ;; Build the archive-devel tarball.
-                (archive--make-one-tarball tarball
-                                           dir pkgname
-                                           `(nil ,devel-vers
-                                                 . ,(nthcdr 2 metadata)))))
+                (let ((archive--name (concat archive--name "-devel")))
+                  ;; Build the archive-devel tarball.
+                  (archive--make-one-tarball tarball
+                                             dir pkgname
+                                             `(nil ,devel-vers
+                                                   . ,(nthcdr 2 metadata))))))
 
           ;; Try and build the latest release tarball.
           (cond
@@ -392,7 +392,9 @@ Return non-nil if a new tarball was created."
                 (if (not last-rel)
                     (archive--message "Package %s not released yet!" pkgname)
                   (archive--make-one-tarball
-                   tarball dir pkgname metadata (lambda () (cdr 
last-rel))))))))
+                   tarball dir pkgname
+                   `(nil ,(car last-rel) . ,(nthcdr 2 metadata))
+                   (lambda () (cdr last-rel))))))))
            (t
             (let ((tarball (concat archive--release-subdir
                                    (format "%s-%s.tar" pkgname vers))))
@@ -899,6 +901,7 @@ Rename DIR/ to PKG-VERS/, and return the descriptor."
       (insert (format "<p>To install this package, run in Emacs:</p>
                        <pre>M-x <span class=\"kw\">package-install</span> RET 
<span class=\"kw\">%s</span> RET</pre>"
                       name))
+      ;; FIXME: Use README.md for some packages (such as markdown-mode).
       (let ((rm (archive--get-section
                  "Commentary" '("README" "README.rst"
                                 ;; Most README.md files seem to be currently