/[emacs]/emacs/src/fns.c
ViewVC logotype

Diff of /emacs/src/fns.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.342.2.3 by handa, Thu Nov 13 06:03:46 2003 UTC revision 1.342.2.4 by handa, Mon Nov 17 00:58:10 2003 UTC
# Line 2418  SEQUENCE may be a list, a vector, a bool Line 2418  SEQUENCE may be a list, a vector, a bool
2418    struct gcpro gcpro1;    struct gcpro gcpro1;
2419    
2420    len = Flength (sequence);    len = Flength (sequence);
2421      if (CHAR_TABLE_P (sequence))
2422        wrong_type_argument (Qlistp, sequence);
2423    leni = XINT (len);    leni = XINT (len);
2424    nargs = leni + leni - 1;    nargs = leni + leni - 1;
2425    if (nargs < 0) return build_string ("");    if (nargs < 0) return build_string ("");
# Line 2449  SEQUENCE may be a list, a vector, a bool Line 2451  SEQUENCE may be a list, a vector, a bool
2451    register Lisp_Object *args;    register Lisp_Object *args;
2452    
2453    len = Flength (sequence);    len = Flength (sequence);
2454      if (CHAR_TABLE_P (sequence))
2455        wrong_type_argument (Qlistp, sequence);
2456    leni = XFASTINT (len);    leni = XFASTINT (len);
2457    args = (Lisp_Object *) alloca (leni * sizeof (Lisp_Object));    args = (Lisp_Object *) alloca (leni * sizeof (Lisp_Object));
2458    
# Line 2467  SEQUENCE may be a list, a vector, a bool Line 2471  SEQUENCE may be a list, a vector, a bool
2471    register int leni;    register int leni;
2472    
2473    leni = XFASTINT (Flength (sequence));    leni = XFASTINT (Flength (sequence));
2474      if (CHAR_TABLE_P (sequence))
2475        wrong_type_argument (Qlistp, sequence);
2476    mapcar1 (leni, 0, function, sequence);    mapcar1 (leni, 0, function, sequence);
2477    
2478    return sequence;    return sequence;

Legend:
Removed from v.1.342.2.3  
changed lines
  Added in v.1.342.2.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26