Mercurial > hg > xemacs-beta

comparison src/mule-wnnfns.c @ 444:576fb035e263 r21-2-37

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-37
author cvs
date Mon, 13 Aug 2007 11:36:19 +0200
parents abe6d1db359e
children c33ae14dd6d0
comparison
equal deleted inserted replaced
443:a8296e22da4e 444:576fb035e263
326 /* Lisp functions definition */ 326 /* Lisp functions definition */
327 327
328 DEFUN ("wnn-server-open", Fwnn_open, 2, 2, 0, /* 328 DEFUN ("wnn-server-open", Fwnn_open, 2, 2, 0, /*
329 Connect to jserver of host HNAME, make an environment with 329 Connect to jserver of host HNAME, make an environment with
330 login name LNAME in the server. 330 login name LNAME in the server.
331 Return nil if error occurs 331 Return nil if error occurs.
332 */ 332 */
333 (hname, lname)) 333 (hname, lname))
334 { 334 {
335 char *envname; 335 char *envname;
336 char *langname; 336 char *langname;
526 return val; 526 return val;
527 } 527 }
528 528
529 DEFUN ("wnn-server-dict-comment", Fwnn_dict_comment, 2, 2, 0, /* 529 DEFUN ("wnn-server-dict-comment", Fwnn_dict_comment, 2, 2, 0, /*
530 Set comment to dictionary specified by DIC-NUMBER. 530 Set comment to dictionary specified by DIC-NUMBER.
531 Comment string COMMENT 531 Comment string COMMENT.
532 */ 532 */
533 (dicno, comment)) 533 (dicno, comment))
534 { 534 {
535 w_char wbuf[512]; 535 w_char wbuf[512];
536 int snum; 536 int snum;
769 return val; 769 return val;
770 } 770 }
771 771
772 772
773 DEFUN ("wnn-server-henkan-quit", Fwnn_quit_henkan, 0, 0, 0, /* 773 DEFUN ("wnn-server-henkan-quit", Fwnn_quit_henkan, 0, 0, 0, /*
774 do nothing 774 do nothing.
775 */ 775 */
776 ()) 776 ())
777 { 777 {
778 int snum; 778 int snum;
779 if ((snum = check_wnn_server_type ()) == -1) return Qnil; 779 if ((snum = check_wnn_server_type ()) == -1) return Qnil;
860 } 860 }
861 861
862 862
863 DEFUN ("wnn-server-word-add", Fwnn_word_toroku, 5, 5, 0, /* 863 DEFUN ("wnn-server-word-add", Fwnn_word_toroku, 5, 5, 0, /*
864 Add a word to dictionary. Arguments are 864 Add a word to dictionary. Arguments are
865 DIC-NUMBER, KANJI, YOMI, COMMENT, HINSI-NUMBER 865 DIC-NUMBER, KANJI, YOMI, COMMENT, HINSI-NUMBER.
866 */ 866 */
867 (dicno, kanji, yomi, comment, hinsi)) 867 (dicno, kanji, yomi, comment, hinsi))
868 { 868 {
869 w_char yomi_buf[256], kanji_buf[256], comment_buf[256]; 869 w_char yomi_buf[256], kanji_buf[256], comment_buf[256];
870 int snum; 870 int snum;
886 else return Qt; 886 else return Qt;
887 } 887 }
888 888
889 889
890 DEFUN ("wnn-server-word-delete", Fwnn_word_sakujo, 2, 2, 0, /* 890 DEFUN ("wnn-server-word-delete", Fwnn_word_sakujo, 2, 2, 0, /*
891 Delete a word from dictionary, specified by DIC-NUMBER, SERIAL-NUMBER 891 Delete a word from dictionary, specified by DIC-NUMBER, SERIAL-NUMBER.
892 */ 892 */
893 (no, serial)) 893 (no, serial))
894 { 894 {
895 int snum; 895 int snum;
896 CHECK_INT (no); 896 CHECK_INT (no);
902 else return Qt; 902 else return Qt;
903 } 903 }
904 904
905 905
906 DEFUN ("wnn-server-word-use", Fwnn_word_use, 2, 2, 0, /* 906 DEFUN ("wnn-server-word-use", Fwnn_word_use, 2, 2, 0, /*
907 Toggle on/off word, specified by DIC-NUMBER and SERIAL-NUMBER 907 Toggle on/off word, specified by DIC-NUMBER and SERIAL-NUMBER.
908 */ 908 */
909 (no, serial)) 909 (no, serial))
910 { 910 {
911 int snum; 911 int snum;
912 CHECK_INT (no); 912 CHECK_INT (no);
953 } 953 }
954 } 954 }
955 955
956 DEFUN ("wnn-server-word-hindo-set", Fwnn_hindo_set, 3, 3, 0, /* 956 DEFUN ("wnn-server-word-hindo-set", Fwnn_hindo_set, 3, 3, 0, /*
957 Set frequency to arbitrary value. Specified by DIC-NUMBER, 957 Set frequency to arbitrary value. Specified by DIC-NUMBER,
958 SERIAL-NUMBER, FREQUENCY 958 SERIAL-NUMBER, FREQUENCY.
959 */ 959 */
960 (no, serial, hindo)) 960 (no, serial, hindo))
961 { 961 {
962 int snum; 962 int snum;
963 CHECK_INT (no); 963 CHECK_INT (no);