西山和広です。 >>>>> On Sat, 9 Dec 2006 03:08:01 +0900 >>>>> maruyama.yuzo@xxxxxxxxx("Yuzo Maruyama") said: > ネット上には,(私の調べ方が悪いのかもしれませんが) > 中々情報がありません.一点分かったことは,yatex.elでは > jmodeと jmode-offで日本語と英数の切替えを制御している > ようなのですが,以下に添付したように > 具体的な入力方法に応じて別個に書く必要がありそうだと > いうことです. > しかしながら,自分には十分な知識,能力がありませんので > yatex.elでcannaをanthy に置換するくらいしか > 出来ません.残念ながらそれをbyte compileしたくらいでは > うまく行きませんでした. > > どなたか分かる方はいらっしゃいませんか? > あるいは別の方法でうまく$入力時の動作を制御する方法は > ありますでしょうか? > 教えていただければ幸いです. > > ---------------------yatex.elより-------------------------------------- > (defun YaTeX-jmode () > (or (and (boundp 'canna:*japanese-mode*) canna:*japanese-mode*) > (and (boundp 'egg:*mode-on*) egg:*mode-on* egg:*input-mode*))) > > (defun YaTeX-jmode-off () > (cond > ((and (boundp 'canna:*japanese-mode*) canna:*japanese-mode*) > (canna-toggle-japanese-mode)) > ((and (boundp 'egg:*mode-on*) egg:*mode-on* egg:*input-mode*) > (egg:toggle-egg-mode-on-off)) > ((and (fboundp 'skk-mode) (boundp 'skk-mode) skk-mode) > (cond > ((fboundp 'skk-latin-mode) (skk-latin-mode t)) > ((fboundp 'skk-mode-off) (skk-mode-off)) > (t (j-mode-off)))) > ((and (fboundp 'toggle-input-method) current-input-method) > (toggle-input-method)) > ((and (fboundp 'fep-force-off) (fep-force-off))))) > ---------------------------------------------------------------- anthy.elを使っているのなら、current-input-methodが変わるようなので、 YaTeX-jmode-offと同じようにYaTeX-jmodeの方でもcurrent-input-methodに 対応すれば良さそうです。 というわけで、 (defun YaTeX-jmode () (or (and (boundp 'canna:*japanese-mode*) canna:*japanese-mode*) (and (boundp 'egg:*mode-on*) egg:*mode-on* egg:*input-mode*) (and (boundp 'skk-mode) skk-mode) (and (boundp 'current-input-method) current-input-method))) でどうでしょうか? -- |ZnZ(ゼット エヌ ゼット) |西山和広(Kazuhiro NISHIYAMA)