diff options
| author | Jim Blandy | 1992-12-12 15:25:18 +0000 |
|---|---|---|
| committer | Jim Blandy | 1992-12-12 15:25:18 +0000 |
| commit | 84128dee7b6a62608d30bff4ef29c9d2690df6e5 (patch) | |
| tree | b87532d87fb54786cb8c469aae5161ec33b686a0 /lib-src | |
| parent | c71beb7551a3326bb76034eafe2102f0f8a9177d (diff) | |
| download | emacs-84128dee7b6a62608d30bff4ef29c9d2690df6e5.tar.gz emacs-84128dee7b6a62608d30bff4ef29c9d2690df6e5.zip | |
* make-docfile.c (scan_c_file): Since DEFVAR_PER_BUFFER now takes
a different number of arguments than other DEFVARs, recognize it
specially, and expect the right number of commas.
Diffstat (limited to 'lib-src')
| -rw-r--r-- | lib-src/make-docfile.c | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/lib-src/make-docfile.c b/lib-src/make-docfile.c index 3b5d3a16052..83602f86e8a 100644 --- a/lib-src/make-docfile.c +++ b/lib-src/make-docfile.c | |||
| @@ -200,6 +200,7 @@ scan_c_file (filename) | |||
| 200 | register int c; | 200 | register int c; |
| 201 | register int commas; | 201 | register int commas; |
| 202 | register int defunflag; | 202 | register int defunflag; |
| 203 | register int defvarperbufferflag; | ||
| 203 | register int defvarflag; | 204 | register int defvarflag; |
| 204 | int minargs, maxargs; | 205 | int minargs, maxargs; |
| 205 | 206 | ||
| @@ -239,8 +240,22 @@ scan_c_file (filename) | |||
| 239 | c = getc (infile); | 240 | c = getc (infile); |
| 240 | if (c != 'V') | 241 | if (c != 'V') |
| 241 | continue; | 242 | continue; |
| 243 | c = getc (infile); | ||
| 244 | if (c != 'A') | ||
| 245 | continue; | ||
| 246 | c = getc (infile); | ||
| 247 | if (c != 'R') | ||
| 248 | continue; | ||
| 249 | c = getc (infile); | ||
| 250 | if (c != '_') | ||
| 251 | continue; | ||
| 252 | |||
| 242 | defvarflag = 1; | 253 | defvarflag = 1; |
| 243 | defunflag = 0; | 254 | defunflag = 0; |
| 255 | |||
| 256 | c = getc (infile); | ||
| 257 | defvarperbufferflag = (c == 'P'); | ||
| 258 | |||
| 244 | c = getc (infile); | 259 | c = getc (infile); |
| 245 | } | 260 | } |
| 246 | else if (c == 'D') | 261 | else if (c == 'D') |
| @@ -271,6 +286,8 @@ scan_c_file (filename) | |||
| 271 | 286 | ||
| 272 | if (defunflag) | 287 | if (defunflag) |
| 273 | commas = 5; | 288 | commas = 5; |
| 289 | else if (defvarperbufferflag) | ||
| 290 | commas = 2; | ||
| 274 | else if (defvarflag) | 291 | else if (defvarflag) |
| 275 | commas = 1; | 292 | commas = 1; |
| 276 | else /* For DEFSIMPLE and DEFPRED */ | 293 | else /* For DEFSIMPLE and DEFPRED */ |