[Emacs-diffs] Changes to emacs/src/fns.c [emacs-unicode-2]

[Kenichi Handa]

Index: emacs/src/fns.c
diff -c emacs/src/fns.c:1.342.2.3 emacs/src/fns.c:1.342.2.4
*** emacs/src/fns.c:1.342.2.3   Thu Nov 13 01:03:46 2003
--- emacs/src/fns.c     Sun Nov 16 19:58:10 2003
***************
*** 2418,2423 ****
--- 2418,2425 ----
    struct gcpro gcpro1;
  
    len = Flength (sequence);
+   if (CHAR_TABLE_P (sequence))
+     wrong_type_argument (Qlistp, sequence);
    leni = XINT (len);
    nargs = leni + leni - 1;
    if (nargs < 0) return build_string ("");
***************
*** 2449,2454 ****
--- 2451,2458 ----
    register Lisp_Object *args;
  
    len = Flength (sequence);
+   if (CHAR_TABLE_P (sequence))
+     wrong_type_argument (Qlistp, sequence);
    leni = XFASTINT (len);
    args = (Lisp_Object *) alloca (leni * sizeof (Lisp_Object));
  
***************
*** 2467,2472 ****
--- 2471,2478 ----
    register int leni;
  
    leni = XFASTINT (Flength (sequence));
+   if (CHAR_TABLE_P (sequence))
+     wrong_type_argument (Qlistp, sequence);
    mapcar1 (leni, 0, function, sequence);
  
    return sequence;