[nongnu] elpa-admin da248f5 403/439: * elpa-admin.el: Fix spurious message and unneeded error

[Philip Kaludercic]

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

    * elpa-admin.el: Fix spurious message and unneeded error
    
    (elpaa-batch-generate-description-file): Also work for
    packages not yet listed in `elpa-packages`, assuming they only need
    a trivial spec.
    (elpaa-batch-generate-autoloads): Avoid load messages for packages with
    `:lisp-dir` property.
---
 elpa-admin.el | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/elpa-admin.el b/elpa-admin.el
index bd2e7fe..c7bcbd1 100644
--- a/elpa-admin.el
+++ b/elpa-admin.el
@@ -761,7 +761,7 @@ Rename DIR/ to PKG-VERS/, and return the descriptor."
     (let* ((file (pop command-line-args-left))
            (dir (file-name-directory file))
            (pkg (file-name-nondirectory (directory-file-name dir)))
-           (pkg-spec (elpaa--get-package-spec pkg)))
+           (pkg-spec (elpaa--get-package-spec pkg 'noerror)))
       (elpaa--write-pkg-file dir pkg
                                (elpaa--metadata dir pkg-spec)))))
 
@@ -1710,9 +1710,10 @@ More at " (elpaa--default-url pkgname))
           (cl-assert (equal alf (concat dir pkgname "-autoloads.el")))
           (package-generate-autoloads pkgname dir))
       (package-generate-autoloads pkgname (concat dir lisp-dir))
-      (write-region (format "(load (concat (file-name-directory #$) %S))\n"
-                            (concat lisp-dir "/" pkgname "-autoloads.el"))
-                    nil alf nil 'silent))))
+      (write-region
+       (format "(load (concat (file-name-directory #$) %S) nil 'nomsg)\n"
+               (concat lisp-dir "/" pkgname "-autoloads.el"))
+       nil alf nil 'silent))))
 
 ;;; Main files