Mercurial > emacs
changeset 29443:9a8c5dd3685e
(DEFUN, EXFUN): Test PROTOTYPES.
(Foptimize_char_table, make_temp_name): Declare.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Mon, 05 Jun 2000 14:41:27 +0000 |
| parents | e7dca295c541 |
| children | cab67467450d |
| files | src/lisp.h |
| diffstat | 1 files changed, 6 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/src/lisp.h Mon Jun 05 14:34:08 2000 +0000 +++ b/src/lisp.h Mon Jun 05 14:41:27 2000 +0000 @@ -1389,7 +1389,8 @@ A null string means call interactively with no arguments. `doc' is documentation for the user. */ -#if !defined (__STDC__) || defined (USE_NONANSI_DEFUN) +#if (!defined (__STDC__) && !defined (PROTOTYPES)) \ + || defined (USE_NONANSI_DEFUN) #define DEFUN(lname, fnname, sname, minargs, maxargs, prompt, doc) \ Lisp_Object fnname (); \ struct Lisp_Subr sname = \ @@ -1753,7 +1754,8 @@ /* Declare a Lisp-callable function. The MAXARGS parameter has the same meaning as in the DEFUN macro, and is used to construct a prototype. */ -#if !defined (__STDC__) || defined (USE_NONANSI_DEFUN) +#if (!defined (__STDC__) && !defined (PROTOTYPES)) \ + || defined (USE_NONANSI_DEFUN) #define EXFUN(fnname, maxargs) \ extern Lisp_Object fnname () #else @@ -1938,6 +1940,7 @@ extern Lisp_Object larger_vector P_ ((Lisp_Object, int, Lisp_Object)); extern void sweep_weak_hash_tables P_ ((void)); extern Lisp_Object Qstring_lessp; +EXFUN (Foptimize_char_table, 1); extern Lisp_Object Vfeatures; extern Lisp_Object QCtest, QCweakness, Qequal; unsigned sxhash P_ ((Lisp_Object, int)); @@ -2443,6 +2446,7 @@ extern void syms_of_fileio P_ ((void)); EXFUN (Fmake_temp_name, 1); extern void init_fileio_once P_ ((void)); +extern Lisp_Object make_temp_name P_ ((Lisp_Object, int)); /* Defined in abbrev.c */