Mercurial > hg > xemacs-beta

comparison src/mule-wnnfns.c @ 272:c5d627a313b1 r21-0b34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b34
author cvs
date Mon, 13 Aug 2007 10:28:48 +0200
parents e45d5e7c476e
children 3cc9f0ebfbd1
comparison
equal deleted inserted replaced
271:c7b7086b0a39 272:c5d627a313b1
580 #endif 580 #endif
581 return make_int (cnt); 581 return make_int (cnt);
582 } 582 }
583 583
584 DEFUN ("wnn-server-zenkouho", Fwnn_zenkouho, 2, 2, 0, /* 584 DEFUN ("wnn-server-zenkouho", Fwnn_zenkouho, 2, 2, 0, /*
585 Get zenkouho at BUNSETSU-NUMBER. Second argument DAI is T 585 Get zenkouho at BUNSETSU-NUMBER. Second argument DAI is t.
586 if dai-bunsetsu, NIL if sho-bunsetsu. Return the current offset of zenkouho. 586 if dai-bunsetsu, NIL if sho-bunsetsu. Return the current offset of zenkouho.
587 */ 587 */
588 (bunNo, dai)) 588 (bunNo, dai))
589 { 589 {
590 int no, offset; 590 int no, offset;
612 return make_int (offset); 612 return make_int (offset);
613 } 613 }
614 614
615 615
616 DEFUN ("wnn-server-get-zenkouho", Fwnn_get_zenkouho, 1, 1, 0, /* 616 DEFUN ("wnn-server-get-zenkouho", Fwnn_get_zenkouho, 1, 1, 0, /*
617 Get kanji string of KOUHO-NUMBER 617 Get kanji string of KOUHO-NUMBER.
618 */ 618 */
619 (kouhoNo)) 619 (kouhoNo))
620 { 620 {
621 unsigned char kanji_buf[256]; 621 unsigned char kanji_buf[256];
622 w_char wbuf[256]; 622 w_char wbuf[256];
640 if ((snum = check_wnn_server_type ()) == -1) return Qnil; 640 if ((snum = check_wnn_server_type ()) == -1) return Qnil;
641 return make_int (jl_zenkouho_bun (wnnfns_buf[snum])); 641 return make_int (jl_zenkouho_bun (wnnfns_buf[snum]));
642 } 642 }
643 643
644 DEFUN ("wnn-server-zenkouho-suu", Fwnn_zenkouho_suu, 0, 0, 0, /* 644 DEFUN ("wnn-server-zenkouho-suu", Fwnn_zenkouho_suu, 0, 0, 0, /*
645 Return the number of zen kouho 645 Return the number of zen kouho.
646 */ 646 */
647 ()) 647 ())
648 { 648 {
649 int snum; 649 int snum;
650 if ((snum = check_wnn_server_type ()) == -1) return Qnil; 650 if ((snum = check_wnn_server_type ()) == -1) return Qnil;
651 return make_int (jl_zenkouho_suu (wnnfns_buf[snum])); 651 return make_int (jl_zenkouho_suu (wnnfns_buf[snum]));
652 } 652 }
653 653
654 DEFUN ("wnn-server-dai-top", Fwnn_dai_top, 1, 1, 0, /* 654 DEFUN ("wnn-server-dai-top", Fwnn_dai_top, 1, 1, 0, /*
655 Return T if bunsetsu BUN-NUMBER is dai-bunsetsu. 655 Return t if bunsetsu BUN-NUMBER is dai-bunsetsu.
656 */ 656 */
657 (bunNo)) 657 (bunNo))
658 { 658 {
659 int snum; 659 int snum;
660 CHECK_INT (bunNo); 660 CHECK_INT (bunNo);