From 9319a2df89940666484ad9d17a5da0149bd0f7c1 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Gerd=20M=C3=B6llmann?= Date: Sat, 22 Oct 2022 13:06:57 +0200 Subject: [PATCH] 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 8a8ff4f227c..0222658c5a1 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); -- 2.39.2