# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 796376309 0
# Node ID 41b869bbe0e1d4e6e6e461e52a4e5a8cee1725d7
# Parent  6f6c571ad0c0f310601469d0c770321a15eb81d5
(Fconcat): Undo previous change.

diff -r 6f6c571ad0c0 -r 41b869bbe0e1 src/fns.c
--- a/src/fns.c	Tue Mar 28 05:44:53 1995 +0000
+++ b/src/fns.c	Tue Mar 28 07:38:29 1995 +0000
@@ -222,8 +222,12 @@
 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 @@
 	    || COMPILEDP (this)))
 	{
 	  if (INTEGERP (this))
-	    args[argnum] = Fcons (this, Qnil);
+            args[argnum] = Fnumber_to_string (this);
 	  else
 	    args[argnum] = wrong_type_argument (Qsequencep, this);
 	}