Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
2813:0f6ab06af483 2814:520c08f04735
2992 prompt, \ 2992 prompt, \
2993 0, /* doc string */ \ 2993 0, /* doc string */ \
2994 lname, \ 2994 lname, \
2995 (lisp_fn_t) Fname \ 2995 (lisp_fn_t) Fname \
2996 }; \ 2996 }; \
2997 static struct Lisp_Subr *S##Fname; \
2997 Lisp_Object Fname (DEFUN_##max_args arglist) 2998 Lisp_Object Fname (DEFUN_##max_args arglist)
2998 2999
2999 #define DEFUN_NORETURN(lname, Fname, min_args, max_args, prompt, arglist) \ 3000 #define DEFUN_NORETURN(lname, Fname, min_args, max_args, prompt, arglist) \
3000 DECLARE_DOESNT_RETURN_TYPE (Lisp_Object, Fname (EXFUN_##max_args)); \ 3001 DECLARE_DOESNT_RETURN_TYPE (Lisp_Object, Fname (EXFUN_##max_args)); \
3001 static struct Lisp_Subr MC_ALLOC_S##Fname = \ 3002 static struct Lisp_Subr MC_ALLOC_S##Fname = \
3011 prompt, \ 3012 prompt, \
3012 0, /* doc string */ \ 3013 0, /* doc string */ \
3013 lname, \ 3014 lname, \
3014 (lisp_fn_t) Fname \ 3015 (lisp_fn_t) Fname \
3015 }; \ 3016 }; \
3017 static struct Lisp_Subr *S##Fname; \
3016 DOESNT_RETURN_TYPE (Lisp_Object) Fname (DEFUN_##max_args arglist) 3018 DOESNT_RETURN_TYPE (Lisp_Object) Fname (DEFUN_##max_args arglist)
3017 #else /* not MC_ALLOC */ 3019 #else /* not MC_ALLOC */
3018 #define DEFUN(lname, Fname, min_args, max_args, prompt, arglist) \ 3020 #define DEFUN(lname, Fname, min_args, max_args, prompt, arglist) \
3019 Lisp_Object Fname (EXFUN_##max_args); \ 3021 Lisp_Object Fname (EXFUN_##max_args); \
3020 static struct Lisp_Subr S##Fname = \ 3022 static struct Lisp_Subr S##Fname = \