From: Gerd Möllmann <gerd@gnu.org>
Date: Wed, 26 Oct 2022 13:41:52 +0000 (+0200)
Subject: Make symbols in Emacs package external by default
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=40901257ceed21856b507dddac04c7964547e84b;p=emacs.git

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 deb51d0019c..175da6bac82 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)