From: Gerd Möllmann <gerd@gnu.org>
Date: Tue, 18 Oct 2022 06:28:28 +0000 (+0200)
Subject: Add cö-symbol-name
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6a8c172927ed1c0dd8d2cbb5b60d2f78211e7ae4;p=emacs.git

Add cö-symbol-name
---

diff --git a/src/data.c b/src/data.c
index a4e07c8d001..2f6b25805f2 100644
--- a/src/data.c
+++ b/src/data.c
@@ -773,6 +773,14 @@ DEFUN ("symbol-name", Fsymbol_name, Ssymbol_name, 1, 1, 0,
   return SYMBOL_NAME (symbol);
 }
 
+DEFUN ("cl-symbol-name", Fcl_symbol_name, Scl_symbol_name, 1, 1, 0,
+       doc: /* Return SYMBOL's name, a string.  */)
+  (register Lisp_Object symbol)
+{
+  CHECK_SYMBOL (symbol);
+  return SYMBOL_NAME (symbol);
+}
+
 DEFUN ("symbol-package", Fsymbol_package, Ssymbol_package, 1, 1, 0,
        doc: /* Return SYMBOL's package, a package or nil.  */)
   (Lisp_Object symbol)
@@ -4332,6 +4340,7 @@ syms_of_data (void)
   defsubr (&Sindirect_function);
   defsubr (&Ssymbol_plist);
   defsubr (&Ssymbol_name);
+  defsubr (&Scl_symbol_name);
   defsubr (&Ssymbol_package);
   defsubr (&Sbare_symbol);
   defsubr (&Ssymbol_with_pos_pos);