* make-docfile.c (write_c_args): Warn for old-style empty arglist ().

diff --git a/lib-src/ChangeLog b/lib-src/ChangeLog
index d0ab1087aa9798492c0a6524e2ee892342c5f627..9650348a3171c5e35f7b04ea30dba924a8173810 100644 (file)
--- a/lib-src/ChangeLog
+++ b/lib-src/ChangeLog
@@ -1,3 +1,7 @@
+2010-07-29  Juanma Barranquero  <lekktu@gmail.com>
+
+       * make-docfile.c (write_c_args): Warn for old-style empty arglist ().
+
 2010-07-25  Juanma Barranquero  <lekktu@gmail.com>
 
        * emacsclient.c (getcwd): Fix previous change: make getcwd

diff --git a/lib-src/make-docfile.c b/lib-src/make-docfile.c
index 4b5012902a0c2561ded27dd21b9505479d3323e4..7fe63bed506a691dc87af46752c4ae4d5f7a0236 100644 (file)
--- a/lib-src/make-docfile.c
+++ b/lib-src/make-docfile.c
@@ -442,7 +442,7 @@ write_c_args (FILE *out, char *func, char *buf, int minargs, int maxargs)
   register char *p;
   int in_ident = 0;
   char *ident_start;
-  int ident_length;
+  int ident_length = 0;
 
   fprintf (out, "(fn");
 
@@ -476,6 +476,12 @@ write_c_args (FILE *out, char *func, char *buf, int minargs, int maxargs)
         identifier.  */
       if (c == ',' || c == ')')
        {
+         if (ident_length == 0)
+           {
+             error ("empty arg list for `%s' should be (void), not ()", func);
+             continue;
+           }
+
          if (strncmp (ident_start, "void", ident_length) == 0)
            continue;