From: Gerd Möllmann <gerd@gnu.org>
Date: Tue, 18 Oct 2022 05:59:29 +0000 (+0200)
Subject: Fix printing uninterned symbols
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e1a730849e874821ba904134dc39cffcf62290ad;p=emacs.git

Fix printing uninterned symbols
---

diff --git a/src/print.c b/src/print.c
index 52a86ebf15b..efef070497a 100644
--- a/src/print.c
+++ b/src/print.c
@@ -2222,12 +2222,15 @@ print_symbol (Lisp_Object symbol, Lisp_Object printcharfun,
   /* print-gensym true means print #: for uninterned symbols.
      PKG_FIXME: This looks like #: for an uninterned symbol with empty
      name?  */
-  if (!NILP (Vprint_gensym) && NILP (package))
-    print_c_string ("#:", printcharfun);
-  else if (*p == 0)
+  if (NILP (package))
     {
-      print_c_string ("##", printcharfun);
-      return;
+      if (!NILP (Vprint_gensym))
+	print_c_string ("#:", printcharfun);
+      else if (*p == 0)
+	{
+	  print_c_string ("##", printcharfun);
+	  return;
+	}
     }
 
   if (EQ (package, Vkeyword_package))