Mercurial > hg > xemacs-beta

diff src/lisp.h @ 2814:520c08f04735

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-06-16 19:59:33 by crestani] 2005-06-06 Marcus Crestani <crestani@xemacs.org> * lisp.h (DEFUN): Define S##fname here. * lisp.h (DEFUN_NORETURN): Define S##fname here. * symeval.h (DEFSUBR_MC_ALLOC): Use already defined S##fname.
author crestani
date Thu, 16 Jun 2005 19:59:35 +0000
parents 6fa9919a9a0b
children a25c824ed558
line wrap: on
line diff
--- a/src/lisp.h	Wed Jun 15 21:51:26 2005 +0000
+++ b/src/lisp.h	Thu Jun 16 19:59:35 2005 +0000
@@ -2994,6 +2994,7 @@
     lname,								\
     (lisp_fn_t) Fname							\
   };									\
+  static struct Lisp_Subr *S##Fname;					\
   Lisp_Object Fname (DEFUN_##max_args arglist)
 
 #define DEFUN_NORETURN(lname, Fname, min_args, max_args, prompt, arglist) \
@@ -3013,6 +3014,7 @@
     lname,								  \
     (lisp_fn_t) Fname							  \
   };									  \
+  static struct Lisp_Subr *S##Fname;					  \
   DOESNT_RETURN_TYPE (Lisp_Object) Fname (DEFUN_##max_args arglist)
 #else /* not MC_ALLOC */
 #define DEFUN(lname, Fname, min_args, max_args, prompt, arglist)	\