feature/pkg 9319a2df89 1/4: Expose package-%register to Lisp

[Gerd Moellmann]

branch: feature/pkg
commit 9319a2df89940666484ad9d17a5da0149bd0f7c1
Author: Gerd Möllmann <gerd@gnu.org>
Commit: Gerd Möllmann <gerd@gnu.org>

    Expose package-%register to Lisp
    
    * src/pkg.c (Fpackage_percent_register): New DEFUN.
    (syms_of_pkg): defsubr it.
---
 src/pkg.c | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/src/pkg.c b/src/pkg.c
index 8a8ff4f227..0222658c5a 100644
--- 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;
+}
+
 
 /***********************************************************************
                            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);