Mercurial > hg > xemacs-beta

comparison modules/canna/canna_api.c @ 4042:f9be867eb83e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-06-29 08:00:58 by stephent] Quiet gcc warnings on amd64 (1/2). <87wsxn18ri.fsf@uwakimon.sk.tsukuba.ac.jp>
author stephent
date Fri, 29 Jun 2007 08:01:08 +0000
parents e58f4b9ab1ad
children aa5ed11f473b
comparison
equal deleted inserted replaced
4041:f90878e20efe 4042:f9be867eb83e
331 If non-nil value is specified, the white space separator will be used. 331 If non-nil value is specified, the white space separator will be used.
332 No separator will be used otherwise. 332 No separator will be used otherwise.
333 */ 333 */
334 (num)) 334 (num))
335 { 335 {
336 int kugiri; /* 文節区切りをするか？ (display clause separator?) */ 336 /* This is actually a Boolean! */
337 337 char *kugiri; /* 文節区切りをするか？ (display clause separator?) */
338 kugiri = NILP (num) ? 0 : 1; 338
339 339 kugiri = NILP (num) ? (char *) 0 : (char *) 1;
340 jrKanjiControl (0, KC_SETBUNSETSUKUGIRI, (char *) kugiri); 340
341 jrKanjiControl (0, KC_SETBUNSETSUKUGIRI, kugiri);
341 342
342 return Qnil; 343 return Qnil;
343 } 344 }
344 345
345 /* For whatever reason, calling Fding directly from libCanna loses */ 346 /* For whatever reason, calling Fding directly from libCanna loses */
363 { 364 {
364 Lisp_Object val; 365 Lisp_Object val;
365 int res; 366 int res;
366 char **p, **q; 367 char **p, **q;
367 368
368 int kugiri; /* 文節区切りをするか？ (display clause separator?) */ 369 /* This is actually a Boolean! */
370 char *kugiri; /* 文節区切りをするか？ (display clause separator?) */
369 371
370 IRCP_context = -1; 372 IRCP_context = -1;
371 373
372 if (NILP (num)) 374 if (NILP (num))
373 { 375 {
374 kugiri = 1; 376 kugiri = (char *) 1;
375 } 377 }
376 else 378 else
377 { 379 {
378 CHECK_INT (num); 380 CHECK_INT (num);
379 kugiri = XINT (num); 381 kugiri = (XINT (num) == 1) ? (char *) 1 : (char *) 0;
380 kugiri = (kugiri == 1) ? 1 : 0;
381 } 382 }
382 383
383 if (NILP (server)) 384 if (NILP (server))
384 { 385 {
385 jrKanjiControl (0, KC_SETSERVERNAME, (char *) 0); 386 jrKanjiControl (0, KC_SETSERVERNAME, (char *) 0);
442 #else /* CANNA_MULE */ 443 #else /* CANNA_MULE */
443 jrKanjiControl (0, KC_SETAPPNAME, "mule"); 444 jrKanjiControl (0, KC_SETAPPNAME, "mule");
444 #endif /* CANNA_MULE */ 445 #endif /* CANNA_MULE */
445 #endif /* KC_SETAPPNAME */ 446 #endif /* KC_SETAPPNAME */
446 447
447 jrKanjiControl (0, KC_SETBUNSETSUKUGIRI, (char *) kugiri); 448 jrKanjiControl (0, KC_SETBUNSETSUKUGIRI, kugiri);
448 jrKanjiControl (0, KC_SETWIDTH, (char *) 78); 449 jrKanjiControl (0, KC_SETWIDTH, (char *) 78);
449 #ifndef CANNA_MULE 450 #ifndef CANNA_MULE
450 jrKanjiControl (0, KC_INHIBITHANKAKUKANA, (char *) 1); 451 jrKanjiControl (0, KC_INHIBITHANKAKUKANA, (char *) 1);
451 #else 452 #else
452 /* mule だったら半角カタカナも使える 453 /* mule だったら半角カタカナも使える