Mercurial > hg > xemacs-beta

comparison lib-src/make-docfile.c @ 438:84b14dcb0985 r21-2-27

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-27
author cvs
date Mon, 13 Aug 2007 11:32:25 +0200
parents 3ecd8885ac67
children 8de8e3f6228a
comparison
equal deleted inserted replaced
437:e2a4e8b94b82 438:84b14dcb0985
38 Added 19.15/20.1: `-i site-packages' allow installer to dump extra packages 38 Added 19.15/20.1: `-i site-packages' allow installer to dump extra packages
39 without modifying Makefiles, etc. 39 without modifying Makefiles, etc.
40 */ 40 */
41 41
42 #define NO_SHORTNAMES /* Tell config not to load remap.h */ 42 #define NO_SHORTNAMES /* Tell config not to load remap.h */
43 #include <../src/config.h> 43 #include <config.h>
44 44
45 #include <stdio.h> 45 #include <stdio.h>
46 #include <errno.h> 46 #include <errno.h>
47 #if __STDC__ || defined(STDC_HEADERS) 47 #if __STDC__ || defined(STDC_HEADERS)
48 #include <stdlib.h> 48 #include <stdlib.h>
427 /* Add support for ANSI prototypes. Hop over 427 /* Add support for ANSI prototypes. Hop over
428 "Lisp_Object" string (the only C type allowed in DEFUNs) */ 428 "Lisp_Object" string (the only C type allowed in DEFUNs) */
429 static char lo[] = "Lisp_Object"; 429 static char lo[] = "Lisp_Object";
430 if ((C_IDENTIFIER_CHAR_P (c) != in_ident) && !in_ident && 430 if ((C_IDENTIFIER_CHAR_P (c) != in_ident) && !in_ident &&
431 (strncmp (p, lo, sizeof (lo) - 1) == 0) && 431 (strncmp (p, lo, sizeof (lo) - 1) == 0) &&
432 isspace(*(p + sizeof (lo) - 1))) 432 isspace((unsigned char) (* (p + sizeof (lo) - 1))))
433 { 433 {
434 p += (sizeof (lo) - 1); 434 p += (sizeof (lo) - 1);
435 while (isspace (*p)) 435 while (isspace ((unsigned char) (*p)))
436 p++; 436 p++;
437 c = *p; 437 c = *p;
438 } 438 }
439 439
440 /* Notice when we start printing a new identifier. */ 440 /* Notice when we start printing a new identifier. */