From: Gerd Möllmann Date: Sat, 22 Oct 2022 11:06:57 +0000 (+0200) Subject: Expose package-%register to Lisp X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9319a2df89940666484ad9d17a5da0149bd0f7c1;p=emacs.git 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 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);