Mercurial > emacs
comparison lib-src/make-docfile.c @ 109430:0b8608a36b55
Merge from mainline.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Fri, 09 Jul 2010 01:50:09 +0000 |
| parents | 61d8d0cf32a8 |
| children | 908904655a40 |
comparison
equal
deleted
inserted
replaced
| 109429:98c38f2ddca3 | 109430:0b8608a36b55 |
|---|---|
| 448 if (*buf == '(') | 448 if (*buf == '(') |
| 449 ++buf; | 449 ++buf; |
| 450 | 450 |
| 451 for (p = buf; *p; p++) | 451 for (p = buf; *p; p++) |
| 452 { | 452 { |
| 453 char c = *p; | 453 char c; |
| 454 int ident_start = 0; | 454 int ident_start = 0; |
| 455 | 455 |
| 456 /* FIXME: this must be made a bit more robust*/ | |
| 457 | |
| 458 /* Skip "register Lisp_Object", this can be removed when we get | |
| 459 rid of "register" for DEFUNs. */ | |
| 460 if (strncmp ("register Lisp_Object", p, 20) == 0) | |
| 461 p += 20; | |
| 462 | |
| 463 if (strncmp ("Lisp_Object", p, 11) == 0) | |
| 464 p += 11; | |
| 465 | |
| 466 if (strncmp ("void", p, 4) == 0) | |
| 467 p += 4; | |
| 468 | |
| 469 c = *p; | |
| 470 | |
| 456 /* Notice when we start printing a new identifier. */ | 471 /* Notice when we start printing a new identifier. */ |
| 457 if ((('A' <= c && c <= 'Z') | 472 if ((('A' <= c && c <= 'Z') |
| 458 || ('a' <= c && c <= 'z') | 473 || ('a' <= c && c <= 'z') |
| 459 || ('0' <= c && c <= '9') | 474 || ('0' <= c && c <= '9') |
| 460 || c == '_') | 475 || c == '_') |