# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 795905126 0
# Node ID 1a13a256f976b41c015fba23cab88e8b8daa914d
# Parent  278c796d9d7e41e93806a66bd7b309afaa8456e6
(concat): Treat integers as characters, not strings.
This makes `concat' more like `insert'.

diff -r 278c796d9d7e -r 1a13a256f976 src/fns.c
--- 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);
 	}