From: Gerd Möllmann <gerd@gnu.org>
Date: Sat, 22 Oct 2022 10:35:55 +0000 (+0200)
Subject: Remove an invalid eassert
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=395c5d1c2f2469b8125971c152bc606076031787;p=emacs.git

Remove an invalid eassert

* src/pkg.c (pkg_emacs_intern): Don't assert that symbol names
can never start with a colon.
---

diff --git a/src/pkg.c b/src/pkg.c
index c295fabbc34..8a8ff4f227c 100644
--- a/src/pkg.c
+++ b/src/pkg.c
@@ -542,7 +542,9 @@ pkg_emacs_intern (Lisp_Object name, Lisp_Object package)
       package = Vkeyword_package;
     }
 
-  eassert (SREF (name, 0) != ':');
+  /* The following assertion would be invalid because we might want to
+     intern '::' in the keyword package, and a test does that.  */
+  //eassert (SREF (name, 0) != ':');
 
   if (VECTORP (package))
     package = pkg_fake_me_an_obarray (package);