From 37d40ae917e30a9fc1bb3df308b77e7efe9a8e71 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 28 Mar 1995 07:38:29 +0000 Subject: [PATCH] (Fconcat): Undo previous change. --- src/fns.c | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/src/fns.c b/src/fns.c index c5f6e6cebe3..97fc34ce83a 100644 --- a/src/fns.c +++ b/src/fns.c @@ -222,8 +222,12 @@ 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 character (integer), or a list or vector\n\ -of characters (integers).") +Each argument may be a string or a list or vector of characters (integers).\n\ +\n\ +Do not use individual integers as arguments!\n\ +The behavior of `concat' in that case will be changed later!\n\ +If your program passes an integer as an argument to `concat',\n\ +you should change it right away not to do so.") (nargs, args) int nargs; Lisp_Object *args; @@ -288,7 +292,7 @@ concat (nargs, args, target_type, last_special) || COMPILEDP (this))) { if (INTEGERP (this)) - args[argnum] = Fcons (this, Qnil); + args[argnum] = Fnumber_to_string (this); else args[argnum] = wrong_type_argument (Qsequencep, this); } -- 2.39.5