From: Richard M. Stallman Date: Thu, 5 Feb 1998 03:28:36 +0000 (+0000) Subject: (list2, list3, list4, list5): New functions. X-Git-Tag: emacs-20.3~2225 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c0f51373af15ff201a9d95efcb43a9ff4b2954d4;p=emacs.git (list2, list3, list4, list5): New functions. --- diff --git a/src/alloc.c b/src/alloc.c index 9b84a7e51f8..fa5a3461fd7 100644 --- a/src/alloc.c +++ b/src/alloc.c @@ -718,6 +718,37 @@ DEFUN ("cons", Fcons, Scons, 2, 2, 0, cons_cells_consed++; return val; } + +/* Make a list of 2, 3, 4 or 5 specified objects. */ + +Lisp_Object +list2 (arg1, arg2) + Lisp_Object arg1, arg2; +{ + return Fcons (arg1, Fcons (arg2, Qnil)); +} + +Lisp_Object +list3 (arg1, arg2, arg3) + Lisp_Object arg1, arg2, arg3; +{ + return Fcons (arg1, Fcons (arg2, Fcons (arg3, Qnil))); +} + +Lisp_Object +list4 (arg1, arg2, arg3, arg4) + Lisp_Object arg1, arg2, arg3, arg4; +{ + return Fcons (arg1, Fcons (arg2, Fcons (arg3, Fcons (arg4, Qnil)))); +} + +Lisp_Object +list5 (arg1, arg2, arg3, arg4, arg5) + Lisp_Object arg1, arg2, arg3, arg4, arg5; +{ + return Fcons (arg1, Fcons (arg2, Fcons (arg3, Fcons (arg4, + Fcons (arg5, Qnil))))); +} DEFUN ("list", Flist, Slist, 0, MANY, 0, "Return a newly created list with specified arguments as elements.\n\