Fix printing of empty keywords

* src/print.c (print_symbol): Don't print ## for keywords with
empty symbol name.

diff --git a/src/print.c b/src/print.c
index f909c3c8cc262fd386b3d2956a46e510b83d882d..7cb7165cb0873c3e13e999191ee1c56f15b117d2 100644 (file)
--- a/src/print.c
+++ b/src/print.c
@@ -2252,7 +2252,7 @@ print_symbol (Lisp_Object symbol, Lisp_Object printcharfun,
   /* In Common Lisp, this would be ||, but we don't have multi-escapes
      in Emacs, and we will probably never have them because '| has
      been a valid symbol, and it is used, for instance in rx.el.  */
-  if (SBYTES (name) == 0)
+  if (SBYTES (name) == 0 && !EQ (package, Vkeyword_package))
     print_c_string ("##", printcharfun);
   else
     print_symbol_name (name, printcharfun, escape);