pkg c025885c33 41/76: symbol-name returning ':' for keywords

[Gerd Moellmann]

branch: pkg
commit c025885c33f59f6a42ba899b5bf52ba5a1551769
Author: Gerd Möllmann <gerd@gnu.org>
Commit: Gerd Möllmann <gerd@gnu.org>

    symbol-name returning ':' for keywords
    
    * src/data.c (Fsymbol_name): Return a name starting with ':' for
    keywords.
---
 src/data.c | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/src/data.c b/src/data.c
index 34bdb9f4b4..a4e07c8d00 100644
--- 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,