Mercurial > hg > xemacs-beta

comparison src/fns.c @ 201:eb5470882647 r20-3b27

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b27
author cvs
date Mon, 13 Aug 2007 10:01:22 +0200
parents a2f645c6b9f8
children e45d5e7c476e
comparison
equal deleted inserted replaced
200:f0deb0c0e6be 201:eb5470882647
458 DEFUN ("append", Fappend, 0, MANY, 0, /* 458 DEFUN ("append", Fappend, 0, MANY, 0, /*
459 Concatenate all the arguments and make the result a list. 459 Concatenate all the arguments and make the result a list.
460 The result is a list whose elements are the elements of all the arguments. 460 The result is a list whose elements are the elements of all the arguments.
461 Each argument may be a list, vector, bit vector, or string. 461 Each argument may be a list, vector, bit vector, or string.
462 The last argument is not copied, just used as the tail of the new list. 462 The last argument is not copied, just used as the tail of the new list.
463 Also see: `nconc'.
463 */ 464 */
464 (int nargs, Lisp_Object *args)) 465 (int nargs, Lisp_Object *args))
465 { 466 {
466 return concat (nargs, args, c_cons, 1); 467 return concat (nargs, args, c_cons, 1);
467 } 468 }
1349 Delete by side effect any occurrences of ELT as a member of LIST. 1350 Delete by side effect any occurrences of ELT as a member of LIST.
1350 The modified LIST is returned. Comparison is done with `equal'. 1351 The modified LIST is returned. Comparison is done with `equal'.
1351 If the first member of LIST is ELT, there is no way to remove it by side 1352 If the first member of LIST is ELT, there is no way to remove it by side
1352 effect; therefore, write `(setq foo (delete element foo))' to be sure 1353 effect; therefore, write `(setq foo (delete element foo))' to be sure
1353 of changing the value of `foo'. 1354 of changing the value of `foo'.
1355 Also see: `remove'.
1354 */ 1356 */
1355 (elt, list)) 1357 (elt, list))
1356 { 1358 {
1357 REGISTER Lisp_Object tail, prev; 1359 REGISTER Lisp_Object tail, prev;
1358 1360
1719 } 1721 }
1720 1722
1721 DEFUN ("nreverse", Fnreverse, 1, 1, 0, /* 1723 DEFUN ("nreverse", Fnreverse, 1, 1, 0, /*
1722 Reverse LIST by modifying cdr pointers. 1724 Reverse LIST by modifying cdr pointers.
1723 Returns the beginning of the reversed list. 1725 Returns the beginning of the reversed list.
1726 Also see: `reverse'.
1724 */ 1727 */
1725 (list)) 1728 (list))
1726 { 1729 {
1727 Lisp_Object prev, tail, next; 1730 Lisp_Object prev, tail, next;
1728 struct gcpro gcpro1, gcpro2; 1731 struct gcpro gcpro1, gcpro2;
3095 } 3098 }
3096 3099
3097 DEFUN ("nconc", Fnconc, 0, MANY, 0, /* 3100 DEFUN ("nconc", Fnconc, 0, MANY, 0, /*
3098 Concatenate any number of lists by altering them. 3101 Concatenate any number of lists by altering them.
3099 Only the last argument is not altered, and need not be a list. 3102 Only the last argument is not altered, and need not be a list.
3103 Also see: `append'.
3100 */ 3104 */
3101 (int nargs, Lisp_Object *args)) 3105 (int nargs, Lisp_Object *args))
3102 { 3106 {
3103 int argnum; 3107 int argnum;
3104 Lisp_Object tail, tem, val; 3108 Lisp_Object tail, tem, val;