diff src/fns.c @ 11094:1a13a256f976

(concat): Treat integers as characters, not strings. This makes `concat' more like `insert'.

--- a/src/fns.c	Wed Mar 22 20:39:17 1995 +0000
+++ b/src/fns.c	Wed Mar 22 20:45:26 1995 +0000
@@ -222,8 +222,8 @@
 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 @@
 	    || COMPILEDP (this)))
 	{
 	  if (INTEGERP (this))
-            args[argnum] = Fnumber_to_string (this);
+	    args[argnum] = Fcons (this, Qnil);
 	  else
 	    args[argnum] = wrong_type_argument (Qsequencep, this);
 	}