Mercurial > hg > xemacs-beta

comparison src/lisp.h @ 211:78478c60bfcd r20-4b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b4
author cvs
date Mon, 13 Aug 2007 10:05:51 +0200
parents 41ff10fd062f
children f220cc83d72e
comparison
equal deleted inserted replaced
210:49f55ca3ba57 211:78478c60bfcd
1530 #define UNEVALLED -1 1530 #define UNEVALLED -1
1531 1531
1532 /* Can't be const, because then subr->doc is read-only and 1532 /* Can't be const, because then subr->doc is read-only and
1533 Snarf_documentation chokes */ 1533 Snarf_documentation chokes */
1534 1534
1535 #ifdef USE_INDEXED_LRECORD_IMPLEMENTATION
1536 # define subr_lheader_initializer { 0, 0, 0 }
1537 #else
1538 # define subr_lheader_initializer { lrecord_subr }
1539 #endif
1540
1535 #define DEFUN(lname, Fname, minargs, maxargs, prompt, arglist) \ 1541 #define DEFUN(lname, Fname, minargs, maxargs, prompt, arglist) \
1536 Lisp_Object Fname (DEFUN_##maxargs arglist) ; /* See below */ \ 1542 Lisp_Object Fname (DEFUN_##maxargs arglist) ; /* See below */ \
1537 static struct Lisp_Subr S##Fname = { {lrecord_subr}, \ 1543 static struct Lisp_Subr S##Fname = { subr_lheader_initializer, \
1538 minargs, maxargs, prompt, 0, lname, (lisp_fn_t) Fname }; \ 1544 minargs, maxargs, prompt, 0, lname, (lisp_fn_t) Fname }; \
1539 Lisp_Object Fname (DEFUN_##maxargs arglist) 1545 Lisp_Object Fname (DEFUN_##maxargs arglist)
1540 1546
1541 /* Heavy ANSI C preprocessor hackery to get DEFUN to declare a 1547 /* Heavy ANSI C preprocessor hackery to get DEFUN to declare a
1542 prototype that matches maxargs, and add the obligatory 1548 prototype that matches maxargs, and add the obligatory