Mercurial > hg > xemacs-beta

comparison src/fns.c @ 410:de805c49cfc1 r21-2-35

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-35
author cvs
date Mon, 13 Aug 2007 11:19:21 +0200
parents 501cfd01ee6d
children 697ef44129c6
comparison
equal deleted inserted replaced
409:301b9ebbdf3b 410:de805c49cfc1
34 #undef vector 34 #undef vector
35 #define vector ***** 35 #define vector *****
36 36
37 #include "lisp.h" 37 #include "lisp.h"
38 38
39 #ifdef HAVE_UNISTD_H 39 #include "sysfile.h"
40 #include <unistd.h>
41 #endif
42 #include <errno.h>
43 40
44 #include "buffer.h" 41 #include "buffer.h"
45 #include "bytecode.h" 42 #include "bytecode.h"
46 #include "device.h" 43 #include "device.h"
47 #include "events.h" 44 #include "events.h"
990 set_bit_vector_bit (XBIT_VECTOR (result), i - s, 987 set_bit_vector_bit (XBIT_VECTOR (result), i - s,
991 bit_vector_bit (XBIT_VECTOR (sequence), i)); 988 bit_vector_bit (XBIT_VECTOR (sequence), i));
992 return result; 989 return result;
993 } 990 }
994 else 991 else
995 abort (); /* unreachable, since Flength (sequence) did not get an error */ 992 {
993 abort (); /* unreachable, since Flength (sequence) did not get
994 an error */
995 return Qnil;
996 }
996 } 997 }
997 998
998 999
999 DEFUN ("nthcdr", Fnthcdr, 2, 2, 0, /* 1000 DEFUN ("nthcdr", Fnthcdr, 2, 2, 0, /*
1000 Take cdr N times on LIST, and return the result. 1001 Take cdr N times on LIST, and return the result.