From owner-ports-jp@jp.freebsd.org  Tue Dec 28 23:11:54 1999
Received: (from daemon@localhost)
	by castle.jp.freebsd.org (8.9.3+3.2W/8.7.3) id XAA02332;
	Tue, 28 Dec 1999 23:11:54 +0900 (JST)
	(envelope-from owner-ports-jp@jp.FreeBSD.org)
Received: from multi.al.rim.or.jp (multi.al.rim.or.jp [202.247.191.124])
	by castle.jp.freebsd.org (8.9.3+3.2W/8.7.3) with ESMTP id XAA02327
	for <ports-jp@jp.freebsd.org>; Tue, 28 Dec 1999 23:11:53 +0900 (JST)
	(envelope-from kuriyama@sky.rim.or.jp)
Received: from relay.rim.or.jp by multi.al.rim.or.jp (8.8.8/3.7W/HMX-12) with ESMTP id XAA17129 for <ports-jp@jp.freebsd.org>; Tue, 28 Dec 1999 23:11:53 +0900 (JST)
Received: from rhea.sky.rim.or.jp by relay.rim.or.jp (8.8.8/3.7W/HMX-12)
	id XAA00759; Tue, 28 Dec 1999 23:11:52 +0900 (JST)
	(envelope-from kuriyama@sky.rim.or.jp)
Received: from localhost.sky.rim.or.jp (localhost [127.0.0.1])
	by rhea.sky.rim.or.jp (8.9.3/3.7W/rhea-1.2) with ESMTP id XAA71115
	for <ports-jp@jp.freebsd.org>; Tue, 28 Dec 1999 23:11:50 +0900 (JST)
Date: Tue, 28 Dec 1999 23:11:47 +0900
Message-ID: <14440.50467.929736.20616R@localhost.sky.rim.or.jp>
From: Jun Kuriyama <kuriyama@sky.rim.or.jp>
To: Japanese Ports Team <ports-jp@jp.freebsd.org>
User-Agent: Wanderlust/1.0.3 (Notorious) SEMI/1.13.3 (Komaiko) FLIM/1.12.5 (Hirahata) MULE XEmacs/20.4 (Emerald) (i386--freebsd)
MIME-Version: 1.0 (generated by SEMI 1.13.3 - "Komaiko")
Content-Type: text/plain; charset=ISO-2022-JP
Reply-To: ports-jp@jp.freebsd.org
Precedence: list
X-Distribute: distribute version 2.1 (Alpha) patchlevel 24e+990727
X-Sequence: ports-jp 8457
Subject: [ports-jp 8457] honyaku.el
Errors-To: owner-ports-jp@jp.freebsd.org
Sender: owner-ports-jp@jp.freebsd.org
X-Originator: kuriyama@sky.rim.or.jp


$B!!A4A3(B ports $B$8$c$J$$$h$&$J5$$b$7$^$9$,!"K]Lu:2$N(B honyaku.el $B$r(B XEmacs 
21.1.8 $B$GF0$/$h$&$K$7$^$7$?$s$G%Q%C%A$rN.$7$^$9!#(Belisp $B$o$+$C$F$J$$$N$K(B
$B$h$/$d$k$J!<$C$F46$8!#Hh$l$?!D!D!#(B
$B!!$3$N$^$^$@$H(B XEmacs $B$@$1$G$7$+F0$+$J$$$N$G!"C/$+6&MQ$K$7$F$/$l$k$H4r$7(B
$B$$$+$b!#(B


--- honyaku.el.orig	Tue Oct  5 00:00:00 1999
+++ honyaku.el	Tue Dec 28 22:47:19 1999
@@ -65,25 +65,25 @@
 
 
 (define-key global-map [f9]     'honyaku-translate-ej)
-(define-key global-map "\C-xye" 'honyaku-translate-ej)
+(define-key ctl-x-map  "ye"	'honyaku-translate-ej)
 
-(define-key global-map "\C-xyw" 'honyaku-word-translate-ej)
-(define-key global-map "\C-xys" 'honyaku-sentence-translate-ej)
-(define-key global-map "\C-xyp" 'honyaku-paragraph-translate-ej)
+(define-key ctl-x-map  "yw"	'honyaku-word-translate-ej)
+(define-key ctl-x-map  "ys"	'honyaku-sentence-translate-ej)
+(define-key ctl-x-map  "yp"	'honyaku-paragraph-translate-ej)
 
 (define-key global-map [f10]    'honyaku-dic-word-ej)
-(define-key global-map "\C-xyn" 'honyaku-dic-word-ej)
+(define-key ctl-x-map  "yn"	'honyaku-dic-word-ej)
 
-(define-key global-map "\C-xyi" 'honyaku-dic-ej)
+(define-key ctl-x-map  "yi"	'honyaku-dic-ej)
 
 (define-key global-map [f11]    'honyaku-translate-je)
-(define-key global-map "\C-xyj" 'honyaku-translate-je)
+(define-key ctl-x-map  "yj"	'honyaku-translate-je)
 
-(define-key global-map "\C-xyb" 'honyaku-sentence-translate-je)
-(define-key global-map "\C-xyd" 'honyaku-paragraph-translate-je)
+(define-key ctl-x-map  "yb"	'honyaku-sentence-translate-je)
+(define-key ctl-x-map  "yd"	'honyaku-paragraph-translate-je)
 
 (define-key global-map [f12]    'honyaku-dic-je)
-(define-key global-map "\C-xym" 'honyaku-dic-je)
+(define-key ctl-x-map  "ym"	'honyaku-dic-je)
 
 
 (defvar honyaku-server-list nil "*$B%5!<%P%[%9%HL>$N%j%9%H(B")
@@ -1374,7 +1374,7 @@
 (defconst EG_CLEAR_CACHE       ?\x14   "$B<-=q%-%c%C%7%e$N%/%j%"(B")
 (defconst HONYAKU_DIVIDE_SENTENCE ?\x1b   "$BJ,3d=hM}(B")
 (defconst EG_SET_TIMEOUT       ?\x1c   "$B%?%$%`%"%&%H$N@_Dj(B")
-(defconst HONYAKU_VERSION         ?\xE001 "$B%W%m%H%3%k%P!<%8%g%s(B")
+(defconst HONYAKU_VERSION (string-to-number "e001" 16) "$B%W%m%H%3%k%P!<%8%g%s(B")
 (defconst HONYAKU_COM_BUF_NAME   "*honyaku-Comm*" "$BDL?.%W%m%;%9%P%C%U%!L>(B")
 (defconst HONYAKU_COM_PROC_NAME  "honyaku"        "$BDL?.%W%m%;%9%*%V%8%'%/%HL>(B")
 (defconst HONYAKU_COM_MODE_NAME  "honyaku-Comm"   "$BDL?.%W%m%;%9%P%C%U%!%b!<%I(B")
@@ -1731,9 +1731,11 @@
     (if (>= emacs-major-version 20)
 	(progn
 	  (setq euc-str (encode-coding-string str 'euc-jp))
-	  (if (multibyte-string-p euc-str)
-	      (set-buffer-multibyte t)
-	    (set-buffer-multibyte nil))
+	  (if (string-match "XEmacs" emacs-version)
+	      ()
+	      (if (multibyte-string-p euc-str)
+		  (set-buffer-multibyte t)
+		(set-buffer-multibyte nil)))
 	  (honyaku-com-set-string euc-str))
       (honyaku-com-set-string (code-convert-string str '*internal* '*euc-japan*)))
     ))
@@ -1741,7 +1743,7 @@
 (defun honyaku-com-send-data-to-server (proc)
   (let ( (p) (bsize (buffer-size)) )
     (goto-char (point-min))
-    (honyaku-com-set-int ?\xaabbccdd)
+    (honyaku-com-set-int (string-to-number "aabbccdd" 16))
     (honyaku-com-set-int bsize)
     (setq p (point-max))
     (process-send-region proc (point-min) (point-max))


$B$/$j$d$^(B // kuriyama@sky.rim.or.jp
        // kuriyama@FreeBSD.org
