Mercurial > emacs
comparison src/fns.c @ 11142:41b869bbe0e1
(Fconcat): Undo previous change.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Tue, 28 Mar 1995 07:38:29 +0000 |
parents | 8eed13a00d2b |
children | ca5effbebf81 |
comparison
equal
deleted
inserted
replaced
11141:6f6c571ad0c0 | 11142:41b869bbe0e1 |
---|---|
220 } | 220 } |
221 | 221 |
222 DEFUN ("concat", Fconcat, Sconcat, 0, MANY, 0, | 222 DEFUN ("concat", Fconcat, Sconcat, 0, MANY, 0, |
223 "Concatenate all the arguments and make the result a string.\n\ | 223 "Concatenate all the arguments and make the result a string.\n\ |
224 The result is a string whose elements are the elements of all the arguments.\n\ | 224 The result is a string whose elements are the elements of all the arguments.\n\ |
225 Each argument may be a string, a character (integer), or a list or vector\n\ | 225 Each argument may be a string or a list or vector of characters (integers).\n\ |
226 of characters (integers).") | 226 \n\ |
227 Do not use individual integers as arguments!\n\ | |
228 The behavior of `concat' in that case will be changed later!\n\ | |
229 If your program passes an integer as an argument to `concat',\n\ | |
230 you should change it right away not to do so.") | |
227 (nargs, args) | 231 (nargs, args) |
228 int nargs; | 232 int nargs; |
229 Lisp_Object *args; | 233 Lisp_Object *args; |
230 { | 234 { |
231 return concat (nargs, args, Lisp_String, 0); | 235 return concat (nargs, args, Lisp_String, 0); |
286 this = args[argnum]; | 290 this = args[argnum]; |
287 if (!(CONSP (this) || NILP (this) || VECTORP (this) || STRINGP (this) | 291 if (!(CONSP (this) || NILP (this) || VECTORP (this) || STRINGP (this) |
288 || COMPILEDP (this))) | 292 || COMPILEDP (this))) |
289 { | 293 { |
290 if (INTEGERP (this)) | 294 if (INTEGERP (this)) |
291 args[argnum] = Fcons (this, Qnil); | 295 args[argnum] = Fnumber_to_string (this); |
292 else | 296 else |
293 args[argnum] = wrong_type_argument (Qsequencep, this); | 297 args[argnum] = wrong_type_argument (Qsequencep, this); |
294 } | 298 } |
295 } | 299 } |
296 | 300 |