[elpa] elpa-admin eb35448776: * elpa-admin.el (elpaa--html-make-pkg): Minor refactoring

[Stefan Monnier]

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

    * elpa-admin.el (elpaa--html-make-pkg): Minor refactoring
---
 elpa-admin.el | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/elpa-admin.el b/elpa-admin.el
index 4c98558366..6803d87ce7 100644
--- a/elpa-admin.el
+++ b/elpa-admin.el
@@ -1863,9 +1863,12 @@ arbitrary code."
       (insert (format "<dt>Badge</dt><dd><img src=\"%s.svg\"/></dd>\n" 
(elpaa--html-quote name)))
       (elpaa--html-insert-docs pkg-spec)
       (insert "</dl>")
-      (insert (format "<p>To install this package from Emacs, use %s.</p>"
-                      (if (elpaa--spec-get pkg-spec :core) 
"<code>list-packages</code>"
-                        "<code>package-install</code> or 
<code>list-packages</code>")))
+      (insert (format "<p>To install this package from Emacs, use %s%s.</p>"
+                      (if (elpaa--spec-get pkg-spec :core)
+                          ;; Just `package-install' doesn't really work for
+                          ;; :core packages :-(
+                          "" "<code>package-install</code> or ")
+                      "<code>list-packages</code>"))
       (let* ((readme-content (elpaa--get-README pkg-spec srcdir))
              (readme-text plain-readme)
              (readme-html (elpaa--section-to-html readme-content))