Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/src/lisp.h	Mon Aug 13 10:05:01 2007 +0200
+++ b/src/lisp.h	Mon Aug 13 10:05:51 2007 +0200
@@ -1532,9 +1532,15 @@
 /* Can't be const, because then subr->doc is read-only and
    Snarf_documentation chokes */
 
+#ifdef USE_INDEXED_LRECORD_IMPLEMENTATION
+# define subr_lheader_initializer { 0, 0, 0 }
+#else
+# define subr_lheader_initializer { lrecord_subr }
+#endif
+
 #define DEFUN(lname, Fname, minargs, maxargs, prompt, arglist)		\
   Lisp_Object Fname (DEFUN_##maxargs arglist) ; /* See below */	\
-  static struct Lisp_Subr S##Fname = { {lrecord_subr},			\
+  static struct Lisp_Subr S##Fname = { subr_lheader_initializer,	\
 	minargs, maxargs, prompt, 0, lname, (lisp_fn_t) Fname };	\
   Lisp_Object Fname (DEFUN_##maxargs arglist)