Mercurial > emacs
comparison src/doc.c @ 40656:cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
| author | Pavel Jan?k <Pavel@Janik.cz> |
|---|---|
| date | Fri, 02 Nov 2001 20:46:55 +0000 |
| parents | 0600331ddd52 |
| children | c6abdf439937 |
comparison
equal
deleted
inserted
replaced
| 40655:45453187feeb | 40656:cdfd4d09b79a |
|---|---|
| 482 #ifndef CANNOT_DUMP | 482 #ifndef CANNOT_DUMP |
| 483 if (NILP (Vpurify_flag)) | 483 if (NILP (Vpurify_flag)) |
| 484 error ("Snarf-documentation can only be called in an undumped Emacs"); | 484 error ("Snarf-documentation can only be called in an undumped Emacs"); |
| 485 #endif | 485 #endif |
| 486 | 486 |
| 487 CHECK_STRING (filename, 0); | 487 CHECK_STRING (filename); |
| 488 | 488 |
| 489 #ifndef CANNOT_DUMP | 489 #ifndef CANNOT_DUMP |
| 490 name = (char *) alloca (XSTRING (filename)->size + 14); | 490 name = (char *) alloca (XSTRING (filename)->size + 14); |
| 491 strcpy (name, "../etc/"); | 491 strcpy (name, "../etc/"); |
| 492 #else /* CANNOT_DUMP */ | 492 #else /* CANNOT_DUMP */ |
| 493 CHECK_STRING (Vdoc_directory, 0); | 493 CHECK_STRING (Vdoc_directory); |
| 494 name = (char *) alloca (XSTRING (filename)->size + | 494 name = (char *) alloca (XSTRING (filename)->size + |
| 495 XSTRING (Vdoc_directory)->size + 1); | 495 XSTRING (Vdoc_directory)->size + 1); |
| 496 strcpy (name, XSTRING (Vdoc_directory)->data); | 496 strcpy (name, XSTRING (Vdoc_directory)->data); |
| 497 #endif /* CANNOT_DUMP */ | 497 #endif /* CANNOT_DUMP */ |
| 498 strcat (name, XSTRING (filename)->data); /*** Add this line ***/ | 498 strcat (name, XSTRING (filename)->data); /*** Add this line ***/ |
| 598 int nchars; | 598 int nchars; |
| 599 | 599 |
| 600 if (NILP (string)) | 600 if (NILP (string)) |
| 601 return Qnil; | 601 return Qnil; |
| 602 | 602 |
| 603 CHECK_STRING (string, 0); | 603 CHECK_STRING (string); |
| 604 tem = Qnil; | 604 tem = Qnil; |
| 605 keymap = Qnil; | 605 keymap = Qnil; |
| 606 name = Qnil; | 606 name = Qnil; |
| 607 GCPRO4 (string, tem, keymap, name); | 607 GCPRO4 (string, tem, keymap, name); |
| 608 | 608 |
