Make symbols in Emacs package external by default

* src/pkg.c (pkg_intern_symbol1): If package equals Vemacs_package,
make symbol externally visible.

diff --git a/src/pkg.c b/src/pkg.c
index deb51d0019c3042a0be692126e271b1511f3051d..175da6bac8284ba16887edbb82f57f9bb85f11c4 100644 (file)
--- a/src/pkg.c
+++ b/src/pkg.c
@@ -331,6 +331,14 @@ pkg_intern_symbol1 (const Lisp_Object name, Lisp_Object package,
       XSYMBOL (symbol)->u.s.declared_special = true;
       pkg_add_symbol (symbol, QCexternal, Vkeyword_package);
     }
+  else if (EQ (package, Vemacs_package))
+    {
+      /* Special-case package "emacs" because nothing exists yet
+        exporting symbols from that package.  */
+      if (status)
+       *status = QCexternal;
+      pkg_add_symbol (symbol, QCexternal, package);
+    }
   else
     {
       if (status)