[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")
−−−−−−−−−−−−−−−ここまで−−−−−−−−−−−−−−−
--
喜瀬“冬猫”浩＠南国沖縄