feature/pkg 29321aeb89 1/2: Add user package

[Gerd Moellmann]

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

    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 e14bd56418..deb51d0019 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,