From 1b56c3098b8b8b1f422e550a0ffdd646475830a1 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Wed, 22 Mar 1995 20:45:26 +0000 Subject: [PATCH] (concat): Treat integers as characters, not strings. This makes `concat' more like `insert'. --- src/fns.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/fns.c b/src/fns.c index 56b3f693d6e..3aeae4532a5 100644 --- a/src/fns.c +++ b/src/fns.c @@ -222,8 +222,8 @@ The last argument is not copied, just used as the tail of the new list.") DEFUN ("concat", Fconcat, Sconcat, 0, MANY, 0, "Concatenate all the arguments and make the result a string.\n\ The result is a string whose elements are the elements of all the arguments.\n\ -Each argument may be a string, a list of characters (integers),\n\ -or a vector of characters (integers).") +Each argument may be a string, a character (integer), or a list or vector\n\ +of characters (integers).") (nargs, args) int nargs; Lisp_Object *args; @@ -288,7 +288,7 @@ concat (nargs, args, target_type, last_special) || COMPILEDP (this))) { if (INTEGERP (this)) - args[argnum] = Fnumber_to_string (this); + args[argnum] = Fcons (this, Qnil); else args[argnum] = wrong_type_argument (Qsequencep, this); } -- 2.39.5