Mercurial > hg > xemacs-beta

comparison src/symbols.c @ 647:b39c14581166

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2001-08-13 04:45:47 by ben] removal of unsigned, size_t, etc.
author ben
date Mon, 13 Aug 2001 04:46:48 +0000
parents 183866b06e0b
children fdefd0186b75
comparison
equal deleted inserted replaced
646:00c54252fe4f 647:b39c14581166
3272 char temp[500]; 3272 char temp[500];
3273 int len = strlen (name) - 1; 3273 int len = strlen (name) - 1;
3274 int i; 3274 int i;
3275 3275
3276 if (multiword_predicate_p) 3276 if (multiword_predicate_p)
3277 assert (len + 1 < sizeof (temp)); 3277 assert (len + 1 < (int) sizeof (temp));
3278 else 3278 else
3279 assert (len < sizeof (temp)); 3279 assert (len < (int) sizeof (temp));
3280 strcpy (temp, name + 1); /* Remove initial Q */ 3280 strcpy (temp, name + 1); /* Remove initial Q */
3281 if (multiword_predicate_p) 3281 if (multiword_predicate_p)
3282 { 3282 {
3283 strcpy (temp + len - 1, "_p"); 3283 strcpy (temp + len - 1, "_p");
3284 len++; 3284 len++;
3347 defkeyword_massage_name (Lisp_Object *location, const char *name) 3347 defkeyword_massage_name (Lisp_Object *location, const char *name)
3348 { 3348 {
3349 char temp[500]; 3349 char temp[500];
3350 int len = strlen (name); 3350 int len = strlen (name);
3351 3351
3352 assert (len < sizeof (temp)); 3352 assert (len < (int) sizeof (temp));
3353 strcpy (temp, name); 3353 strcpy (temp, name);
3354 temp[1] = ':'; /* it's an underscore in the C variable */ 3354 temp[1] = ':'; /* it's an underscore in the C variable */
3355 3355
3356 defsymbol_massage_name (location, temp); 3356 defsymbol_massage_name (location, temp);
3357 Fset (*location, *location); 3357 Fset (*location, *location);
3483 { 3483 {
3484 char temp[500]; 3484 char temp[500];
3485 int i; 3485 int i;
3486 int len = strlen (name) - 1; 3486 int len = strlen (name) - 1;
3487 3487
3488 assert (len < sizeof (temp)); 3488 assert (len < (int) sizeof (temp));
3489 strcpy (temp, name + 1); /* Remove initial Q */ 3489 strcpy (temp, name + 1); /* Remove initial Q */
3490 temp[0] = toupper (temp[0]); 3490 temp[0] = toupper (temp[0]);
3491 for (i = 0; i < len; i++) 3491 for (i = 0; i < len; i++)
3492 if (temp[i] == '_') 3492 if (temp[i] == '_')
3493 temp[i] = ' '; 3493 temp[i] = ' ';