branch: elpa-admin
commit da248f5cf67462ac0b36234967047f459bbf7424
Author: Stefan Monnier <monn...@iro.umontreal.ca>
Commit: Stefan Monnier <monn...@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
