Commit 1b56c309 authored by Karl Heuer's avatar Karl Heuer
Browse files

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

This makes `concat' more like `insert'.
parent f2d9e61d
...@@ -222,8 +222,8 @@ The last argument is not copied, just used as the tail of the new list.") ...@@ -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, DEFUN ("concat", Fconcat, Sconcat, 0, MANY, 0,
"Concatenate all the arguments and make the result a string.\n\ "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\ 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\ Each argument may be a string, a character (integer), or a list or vector\n\
or a vector of characters (integers).") of characters (integers).")
(nargs, args) (nargs, args)
int nargs; int nargs;
Lisp_Object *args; Lisp_Object *args;
...@@ -288,7 +288,7 @@ concat (nargs, args, target_type, last_special) ...@@ -288,7 +288,7 @@ concat (nargs, args, target_type, last_special)
|| COMPILEDP (this))) || COMPILEDP (this)))
{ {
if (INTEGERP (this)) if (INTEGERP (this))
args[argnum] = Fnumber_to_string (this); args[argnum] = Fcons (this, Qnil);
else else
args[argnum] = wrong_type_argument (Qsequencep, this); args[argnum] = wrong_type_argument (Qsequencep, this);
} }
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment