# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 956183247 0
# Node ID 3408e0502727fbd2a2e72d3ee0735d1016c84399
# Parent  e6b28c64d3a5174072ee5e816aacbd18bfbf14b4
(syms_of_fns): Defsubr mapc.
(concat): Don't allow numeric args.
(Fconcat): Doc change.

diff -r e6b28c64d3a5 -r 3408e0502727 src/fns.c
--- 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);