From: Miles Bader Date: Wed, 17 Oct 2001 03:11:30 +0000 (+0000) Subject: (DEFUN): Remove `DOC_STRINGS_IN_COMMENTS' case. X-Git-Tag: ttn-vms-21-2-B4~19399 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=015a8883e056cd23d926a45304b63880b7a99063;p=emacs.git (DEFUN): Remove `DOC_STRINGS_IN_COMMENTS' case. --- diff --git a/src/lisp.h b/src/lisp.h index 2cb7a1fcc7f..cba2349b581 100644 --- a/src/lisp.h +++ b/src/lisp.h @@ -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 *)