Add register-package

* lisp/emacs-lisp/pkg.el (register-package): New function.

diff --git a/lisp/emacs-lisp/pkg.el b/lisp/emacs-lisp/pkg.el
index 56c191f7d08572e991d75fdfb0c8b83e8c64543c..48d6e108dc01b32969261893028f364bff0b6cde 100644 (file)
--- a/lisp/emacs-lisp/pkg.el
+++ b/lisp/emacs-lisp/pkg.el
@@ -299,6 +299,16 @@ but is what Common Lisp implementations usually do."
           (package-%use-list package) use)
     package))
 
+(defun register-package (package)
+  "Register PACKAGE in the package registry.
+Signal an error if the name or one of the nicknames of PACKAGE
+conflicts with a name already present in the registry.
+Value is PACKAGE."
+  (let ((package (pkg--package-or-lose package)))
+    (pkg--check-name-conflicts package)
+    (pkg--add-to-registry package)
+    package))
+
 ;;;###autoload
 (defun list-all-packages ()
   "Return a fresh list of all registered packages."