Mercurial > hg > xemacs-beta

comparison src/fns.c @ 187:b405438285a2 r20-3b20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b20
author cvs
date Mon, 13 Aug 2007 09:56:28 +0200
parents 3d6bfa290dbd
children a2f645c6b9f8
comparison
equal deleted inserted replaced
186:24ac94803b48 187:b405438285a2
3270 mapcar1 (len, args, fn, seq); 3270 mapcar1 (len, args, fn, seq);
3271 3271
3272 return Fvector (len, args); 3272 return Fvector (len, args);
3273 } 3273 }
3274 3274
3275 DEFUN ("mapc-internal", Fmapc_internal, 2, 2, 0, /* 3275 DEFUN ("mapc", Fmapc, 2, 2, 0, /*
3276 Apply FUNCTION to each element of SEQUENCE. 3276 Apply FUNCTION to each element of SEQUENCE.
3277 SEQUENCE may be a list, a vector, a bit vector, or a string. 3277 SEQUENCE may be a list, a vector, a bit vector, or a string.
3278 This function is like `mapcar' but does not accumulate the results, 3278 This function is like `mapcar' but does not accumulate the results,
3279 which is more efficient if you do not use the results. 3279 which is more efficient if you do not use the results.
3280 */ 3280 */
3281 (fn, seq)) 3281 (fn, seq))
3282 { 3282 {
3283 mapcar1 (XINT (Flength (seq)), 0, fn, seq); 3283 mapcar1 (XINT (Flength (seq)), 0, fn, seq);
3284 3284
3285 return Qnil; 3285 return seq;
3286 } 3286 }
3287 3287
3288 3288
3289 /* #### this function doesn't belong in this file! */ 3289 /* #### this function doesn't belong in this file! */
3290 3290
3538 DEFSUBR (Fold_equal); 3538 DEFSUBR (Fold_equal);
3539 DEFSUBR (Ffillarray); 3539 DEFSUBR (Ffillarray);
3540 DEFSUBR (Fnconc); 3540 DEFSUBR (Fnconc);
3541 DEFSUBR (Fmapcar); 3541 DEFSUBR (Fmapcar);
3542 DEFSUBR (Fmapvector); 3542 DEFSUBR (Fmapvector);
3543 DEFSUBR (Fmapc_internal); 3543 DEFSUBR (Fmapc);
3544 DEFSUBR (Fmapconcat); 3544 DEFSUBR (Fmapconcat);
3545 DEFSUBR (Fload_average); 3545 DEFSUBR (Fload_average);
3546 /*#ifndef FEATUREP_SYNTAX*/
3547 DEFSUBR (Ffeaturep); 3546 DEFSUBR (Ffeaturep);
3548 /*#endif*/
3549 DEFSUBR (Frequire); 3547 DEFSUBR (Frequire);
3550 DEFSUBR (Fprovide); 3548 DEFSUBR (Fprovide);
3551 } 3549 }
3552 3550
3553 void 3551 void