(concat): Treat integers as characters, not strings.

This makes `concat' more like `insert'.

1 files 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);
         }