[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[debian-users:17498] Re: Hon-yoku no Ousama for Linux Beta Released



「インターネット翻訳の王様」Linux版βをDebianのEmacs20環境で動かす
ための修正について。

From: Hiroshi KISE <fuyuneko@xxxxxxxxxxxx>
Subject: [debian-users:16628] Re: Hon-yoku no Ousama for Linux Beta Released
Date: Tue, 13 Jul 1999 00:54:33 +0900
> > emacs20.3-9 でうまく動かなかったので修正。
> > king.el
> > @@ -15,7 +15,7 @@
> >  (defvar king-version "0.90"
> >         "Version number of KingTranslation client.")
> >  (defvar set-king-output-codeset
> > -       (define-program-coding-system nil nil (cons *sjis* *sjis*)))
> > +       (set-default-coding-systems 'euc-japan))
> こちらでは、これではだめでした。emacs20_20.3-7です。EUCなバッファに
> ShiftJISで出力しようとした形跡があったので、最後の行の“euc-japan”を
> “sjis”に直しました。これでちゃんと動きました。これでいいのか
> よくわかりませんが。

set-default-coding-systemsを使うとほかのバッファにも影響がでて、
あまりよろしくありませんでした。

今日、Mule2のdefine-program-coding-systemに対応するものをEmacs20で
探すために検索をしたところ、意外に身近なとこに答をみつけました。
[debian-users:07040]です。

Lispはよくわからんので、しばらく試行錯誤しました。以下のようにすると
動くみたいです。*addudict-command*はここで設定して意味あるかな?
−−−−−−−−−−−−−−−ここから−−−−−−−−−−−−−−−
--- /usr/local/share/mule/site-lisp/king-0.90/king.el.original	Sun Aug 22 02:06:06 1999
+++ /usr/local/share/mule/site-lisp/king-0.90/king.el	Sun Aug 22 02:06:34 1999
@@ -14,11 +14,17 @@
 
 (defvar king-version "0.90"
 	"Version number of KingTranslation client.")
-(defvar set-king-output-codeset
-	(define-program-coding-system nil nil (cons *sjis* *sjis*)))
 
 (defvar *translate-command* "/usr/local/bin/kingtr" nil)
 (defvar *addudict-command* "/usr/local/bin/addudict" nil)
+
+(defvar set-king-output-codeset
+  (setq process-coding-system-alist
+	(cons (cons *translate-command* 'sjis)
+	      (cons (cons *addudict-command* 'sjis)
+		    (if (boundp 'process-coding-system-alist)
+			process-coding-system-alist)))))
+
 (defvar translate-buf-name "*翻訳の王様*" 
 	"Buffer associated with translation result")
 
−−−−−−−−−−−−−−−ここまで−−−−−−−−−−−−−−−
-- 
喜瀬“冬猫”浩@南国沖縄