Expose package-%register to Lisp

* src/pkg.c (Fpackage_percent_register): New DEFUN.
(syms_of_pkg): defsubr it.

diff --git a/src/pkg.c b/src/pkg.c
index 8a8ff4f227c2e5711ef5fdc0db1bb1191c1eb6c6..0222658c5a124e088ad92a1381a2037cff1e15a5 100644 (file)
--- a/src/pkg.c
+++ b/src/pkg.c
@@ -870,6 +870,14 @@ DEFUN ("package-%set-status", Fpackage_percent_set_status,
   return pkg_set_status (symbol, package, status);
 }
 
+DEFUN ("package-%register", Fpackage_percent_register,
+       Spackage_percent_register, 1, 1, 0, doc:  /* Internal use only.  */)
+  (Lisp_Object package)
+{
+  pkg_register_package (package);
+  return Qnil;
+}
+
 \f
 /***********************************************************************
                            Initialization
@@ -949,6 +957,7 @@ syms_of_pkg (void)
   defsubr (&Smake_percent_package);
   defsubr (&Spackage_percent_name);
   defsubr (&Spackage_percent_nicknames);
+  defsubr (&Spackage_percent_register);
   defsubr (&Spackage_percent_set_name);
   defsubr (&Spackage_percent_set_nicknames);
   defsubr (&Spackage_percent_set_shadowing_symbols);