From e1a730849e874821ba904134dc39cffcf62290ad Mon Sep 17 00:00:00 2001
From: =?utf8?q?Gerd=20M=C3=B6llmann?= <gerd@gnu.org>
Date: Tue, 18 Oct 2022 07:59:29 +0200
Subject: [PATCH] Fix printing uninterned symbols

---
 src/print.c | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

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))
-- 
2.39.2