From 5f38ded37beedd5be52d90730fa731da7f95c483 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Gerd=20M=C3=B6llmann?= Date: Sat, 12 Aug 2023 15:39:54 +0200 Subject: [PATCH] Improve doc of symbol-name and cl-symbol-name --- src/data.c | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/src/data.c b/src/data.c index 72f570417d6..71e52e727b7 100644 --- a/src/data.c +++ b/src/data.c @@ -771,8 +771,9 @@ DEFUN ("symbol-plist", Fsymbol_plist, Ssymbol_plist, 1, 1, 0, } DEFUN ("symbol-name", Fsymbol_name, Ssymbol_name, 1, 1, 0, - doc: /* Return SYMBOL's name, a string. */) - (register Lisp_Object symbol) + doc: /* Return SYMBOL's name, a string. +If SYMBOL is a keyword, prepend a ':' to the name.*/) + (Lisp_Object symbol) { CHECK_SYMBOL (symbol); if (SYMBOL_KEYWORD_P (symbol)) @@ -781,8 +782,10 @@ DEFUN ("symbol-name", Fsymbol_name, Ssymbol_name, 1, 1, 0, } DEFUN ("cl-symbol-name", Fcl_symbol_name, Scl_symbol_name, 1, 1, 0, - doc: /* Return SYMBOL's name, a string. */) - (register Lisp_Object symbol) + doc: /* Return SYMBOL's name, a string. +Note that, unlike 'symbol-name' this returns the actual +symbol-name, without a leading ':' if SYMBOL is a keyword. */) + (Lisp_Object symbol) { CHECK_SYMBOL (symbol); return SYMBOL_NAME (symbol); -- 2.39.2