Commit 015a8883 authored by Miles Bader's avatar Miles Bader
Browse files

(DEFUN): Remove `DOC_STRINGS_IN_COMMENTS' case.

parent 0c82822c
......@@ -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 *)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment