From 29321aeb89527bbeaec963035038f4e0ecafaf0d Mon Sep 17 00:00:00 2001 From: =?utf8?q?Gerd=20M=C3=B6llmann?= Date: Wed, 26 Oct 2022 15:30:29 +0200 Subject: [PATCH] Add user package * src/pkg.c (init_pkg_once): New Vemacs_user_package. (syms_of_pkg): DEFVAR_LISP it. --- src/pkg.c | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/src/pkg.c b/src/pkg.c index e14bd564186..deb51d0019c 100644 --- a/src/pkg.c +++ b/src/pkg.c @@ -922,6 +922,12 @@ init_pkg_once (void) XPACKAGE (Vkeyword_package)->nicknames = Fcons (build_string (""), Qnil); pkg_register_package (Vkeyword_package); + staticpro (&Vemacs_user_package); + Vemacs_user_package = pkg_make_package (build_string ("emacs-user"), + make_fixnum (1000)); + XPACKAGE (Vemacs_user_package)->use_list = Fcons (Vemacs_package, Qnil); + pkg_register_package (Vemacs_user_package); + staticpro (&Vearmuffs_package); Vearmuffs_package = Vemacs_package; XSYMBOL (Qearmuffs_package)->u.s.declared_special = true; @@ -942,6 +948,8 @@ syms_of_pkg (void) doc: /* The package registry. For internal use only. */); DEFVAR_LISP_NOPRO ("*emacs-package*", Vemacs_package, doc: /* The Emacs package. For internal use only. */); + DEFVAR_LISP_NOPRO ("*emacs-user-package*", Vemacs_user_package, + doc: /* The Emacs user package. For internal use only. */); DEFVAR_LISP_NOPRO ("*keyword-package*", Vkeyword_package, doc: /* The keyword package. For internal use only. */); DEFVAR_LISP_NOPRO ("*package*", Vearmuffs_package, -- 2.39.2