Mercurial > hg > xemacs-beta

comparison src/lisp.h @ 100:4be1180a9e89 r20-1b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b2
author cvs
date Mon, 13 Aug 2007 09:15:11 +0200
parents ac0620f6398e
children b980b6286996
comparison
equal deleted inserted replaced
99:2d83cbd90d8d 100:4be1180a9e89
1421 1421
1422 /* Can't be const, because then subr->doc is read-only and 1422 /* Can't be const, because then subr->doc is read-only and
1423 Snarf_documentation chokes */ 1423 Snarf_documentation chokes */
1424 1424
1425 #define DEFUN(lname, Fname, minargs, maxargs, prompt, arglist) \ 1425 #define DEFUN(lname, Fname, minargs, maxargs, prompt, arglist) \
1426 Lisp_Object Fname (DEFUN_ ## maxargs arglist) ; /* See below */ \ 1426 Lisp_Object Fname (DEFUN_##maxargs arglist) ; /* See below */ \
1427 static struct Lisp_Subr S##Fname = { {lrecord_subr}, \ 1427 static struct Lisp_Subr S##Fname = { {lrecord_subr}, \
1428 minargs, maxargs, prompt, 0, lname, (lisp_fn_t) Fname }; \ 1428 minargs, maxargs, prompt, 0, lname, (lisp_fn_t) Fname }; \
1429 Lisp_Object Fname (DEFUN_##maxargs arglist) 1429 Lisp_Object Fname (DEFUN_##maxargs arglist)
1430
1431 1430
1432 /* Heavy ANSI C preprocessor hackery to get DEFUN to declare a 1431 /* Heavy ANSI C preprocessor hackery to get DEFUN to declare a
1433 prototype that matches maxargs, and add the obligatory 1432 prototype that matches maxargs, and add the obligatory
1434 `Lisp_Object' type declaration to the formal C arguments. */ 1433 `Lisp_Object' type declaration to the formal C arguments. */
1435 1434