symbol-name returning ':' for keywords

* src/data.c (Fsymbol_name): Return a name starting with ':' for
keywords.

diff --git a/src/data.c b/src/data.c
index 34bdb9f4b43546249c85205388ec1611a51e1232..a4e07c8d001d74ef9df3931ccf78f3104a99431f 100644 (file)
--- a/src/data.c
+++ b/src/data.c
@@ -767,11 +767,10 @@ DEFUN ("symbol-name", Fsymbol_name, Ssymbol_name, 1, 1, 0,
        doc: /* Return SYMBOL's name, a string.  */)
   (register Lisp_Object symbol)
 {
-  register Lisp_Object name;
-
   CHECK_SYMBOL (symbol);
-  name = SYMBOL_NAME (symbol);
-  return name;
+  if (EQ (SYMBOL_PACKAGE (symbol), Vkeyword_package))
+    return concat2 (build_string (":"), SYMBOL_NAME (symbol));
+  return SYMBOL_NAME (symbol);
 }
 
 DEFUN ("symbol-package", Fsymbol_package, Ssymbol_package, 1, 1, 0,