File xemacs-21.5.25-wnnfix-128362.patch of Package xemacs
--- xemacs-21.5.25/src/mule-wnnfns.c.orig 2004-11-05 01:06:43.000000000 +0200
+++ xemacs-21.5.25/src/mule-wnnfns.c 2006-03-31 00:20:37.000000000 +0300
@@ -318,7 +318,7 @@
Lisp_Object Qwnn_jisho, Qwnn_sbn, Qwnn_dbn_len, Qwnn_sbn_cnt, Qwnn_suuji;
Lisp_Object Qwnn_kana, Qwnn_eisuu, Qwnn_kigou, Qwnn_toji_kakko, Qwnn_fuzokogo, Qwnn_kaikakko;
Lisp_Object Vwnn_server_type;
-Lisp_Object Vcwnn_zhuyin;
+//Lisp_Object Vcwnn_zhuyin;
Lisp_Object Vwnnenv_sticky;
Lisp_Object Vwnn_uniq_level;
Fixnum lb_sisheng;
@@ -1897,9 +1897,11 @@
DEFVAR_LISP ("wnn-server-type", &Vwnn_server_type /*
*jserver, cserver ..
*/ );
- DEFVAR_LISP ("cwnn-zhuyin", &Vcwnn_zhuyin /*
+#if 0
+ DEFVAR_LISP ("cwnn-zhuyin", &Vcwnn_zhuyin /*
*pinyin or zhuyin
*/ );
+#endif
DEFVAR_LISP ("wnnenv-sticky", &Vwnnenv_sticky /*
*If non-nil, make environment sticky
*/ );
@@ -1908,7 +1910,7 @@
*/ );
Vwnn_server_type = Qjserver;
- Vcwnn_zhuyin = Qnil;
+ //Vcwnn_zhuyin = Qnil;
Vwnnenv_sticky = Qnil;
Vwnn_uniq_level = Qwnn_uniq;
@@ -1930,10 +1932,14 @@
case 0x80:
if (EQ(Vwnn_server_type, Qcserver))
{
+#if 0
len = cwnn_yincod_pzy (pzy, wc,
NILP (Vcwnn_zhuyin)
? CWNN_PINYIN
: CWNN_ZHUYIN);
+#else
+ len = 0;
+#endif
for (i = 0; i < len; i++)
{
if (pzy[i] & 0x80)
@@ -2036,8 +2042,12 @@
else *pin = *w;
w++; pin++;
}
+#if 0
len = cwnn_pzy_yincod (ybuf, pbuf,
NILP (Vcwnn_zhuyin) ? CWNN_PINYIN : CWNN_ZHUYIN);
+#else
+ return;
+#endif
if (len <= 0)
return;