From 40901257ceed21856b507dddac04c7964547e84b Mon Sep 17 00:00:00 2001
From: =?utf8?q?Gerd=20M=C3=B6llmann?= <gerd@gnu.org>
Date: Wed, 26 Oct 2022 15:41:52 +0200
Subject: [PATCH] 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 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)
-- 
2.39.2