feature/pkg 40901257ce 2/2: Make symbols in Emacs package external by default

[Gerd Moellmann]

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

    Make symbols in Emacs package external by default
    
    * src/pkg.c (pkg_intern_symbol1): If package equals Vemacs_package,
    make symbol externally visible.
---
 src/pkg.c | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/src/pkg.c b/src/pkg.c
index deb51d0019..175da6bac8 100644
--- 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)