procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(DEFUN): Remove `DOC_STRINGS_IN_COMMENTS' case.

Browse source
This commit is contained in:
Miles Bader 2001-10-17 03:11:30 +00:00
parent 0c82822ca0
commit 015a8883e0
1 changed files with 0 additions and 26 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
src/lisp.h
View file

@ -1560,17 +1560,6 @@ typedef unsigned char UCHAR;
#if (!defined (__STDC__) && !defined (PROTOTYPES)) \
|| defined (USE_NONANSI_DEFUN)
#ifdef DOC_STRINGS_IN_COMMENTS
#define DEFUN(lname, fnname, sname, minargs, maxargs, prompt, doc) \
Lisp_Object fnname (); \
struct Lisp_Subr sname = \
{ PVEC_SUBR | (sizeof (struct Lisp_Subr) / sizeof (EMACS_INT)), \
fnname, minargs, maxargs, lname, prompt, 0}; \
Lisp_Object fnname
#else /* not DOC_STRINGS_IN_COMMENTS */
#define DEFUN(lname, fnname, sname, minargs, maxargs, prompt, args) \
Lisp_Object fnname (); \
struct Lisp_Subr sname = \
@ -1578,21 +1567,8 @@ typedef unsigned char UCHAR;
fnname, minargs, maxargs, lname, prompt, 0}; \
Lisp_Object fnname args
#endif /* not DOC_STRINGS_IN_COMMENTS */
#else
#ifdef DOC_STRINGS_IN_COMMENTS
#define DEFUN(lname, fnname, sname, minargs, maxargs, prompt, args) \
Lisp_Object fnname DEFUN_ARGS_ ## maxargs ; \
struct Lisp_Subr sname = \
{ PVEC_SUBR | (sizeof (struct Lisp_Subr) / sizeof (EMACS_INT)), \
fnname, minargs, maxargs, lname, prompt, 0}; \
Lisp_Object fnname args
#else /* not DOC_STRINGS_IN_COMMENTS */
/* This version of DEFUN declares a function prototype with the right
arguments, so we can catch errors with maxargs at compile-time. */
#define DEFUN(lname, fnname, sname, minargs, maxargs, prompt, doc) \
@ -1602,8 +1578,6 @@ typedef unsigned char UCHAR;
fnname, minargs, maxargs, lname, prompt, 0}; \
Lisp_Object fnname
#endif /* not DOC_STRINGS_IN_COMMENTS */
/* Note that the weird token-substitution semantics of ANSI C makes
this work for MANY and UNEVALLED. */
#define DEFUN_ARGS_MANY (int, Lisp_Object *)