Mercurial > emacs
changeset 28666:3408e0502727
(syms_of_fns): Defsubr mapc.
(concat): Don't allow numeric args.
(Fconcat): Doc change.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Wed, 19 Apr 2000 22:27:27 +0000 |
| parents | e6b28c64d3a5 |
| children | 0569ba69aa2b |
| files | src/fns.c |
| diffstat | 1 files changed, 3 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/src/fns.c Wed Apr 19 22:07:51 2000 +0000 +++ b/src/fns.c Wed Apr 19 22:27:27 2000 +0000 @@ -431,12 +431,7 @@ 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 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.") +Each argument may be a string or a list or vector of characters (integers).") (nargs, args) int nargs; Lisp_Object *args; @@ -598,9 +593,6 @@ if (!(CONSP (this) || NILP (this) || VECTORP (this) || STRINGP (this) || COMPILEDP (this) || BOOL_VECTOR_P (this))) { - if (INTEGERP (this)) - args[argnum] = Fnumber_to_string (this); - else args[argnum] = wrong_type_argument (Qsequencep, this); } } @@ -2139,6 +2131,7 @@ } else error ("Invalid RANGE argument to `char-table-range'"); + return Qt; } DEFUN ("set-char-table-range", Fset_char_table_range, Sset_char_table_range, @@ -4858,6 +4851,7 @@ defsubr (&Smap_char_table); defsubr (&Snconc); defsubr (&Smapcar); + defsubr (&Smapc); defsubr (&Smapconcat); defsubr (&Sy_or_n_p); defsubr (&Syes_or_no_p);