🚀 go-pugleaf

いいじま＠東大文学部です。

> mule2.3 + Wnn6 を使っています(FreeBSD3.3R)。
> Cモードで、コメントなどに日本語の読点「、」を入力したいのですが、
> 無変換の英語のカンマ「,」になってしまいます。

	C モードでは "," キーに別のコマンドが割り当てられていて、
	これが global-map の egg-self-insert-command よりも優先されて
	いるのが原因です。
	＃C モードで、M-x describe-key (C-h k) で見てみましょう。

	で、対策は、.emacs に
		(add-hook 'c-mode-hook '(lambda ()
			(define-key c-mode-map "," nil)
			; 他のキーも問題になるならここに define-key を列記
		))
	と書いてください。

☆-- 飯嶋 浩光 ----------------------------------------------☆
｜IIJIMA 'Delmonta' Hiromitsu an der Universitaet Tokyo      ｜
☆-----------------------------------------------------------☆
｜ODN ユーザーは odn.question を購読しましょう。             ｜
☆-----------------------------------------------------------☆
｜【宣伝】EmacsのVZ+ATOK+カナ入力化など外道カスタマイズの数々｜
｜  http://user.ecc.u-tokyo.ac.jp/~l94102/emacs/             ｜
☆-------------------------- L94102@mail.ecc.u-tokyo.ac.jp --☆

In article <86pg73$22lq$1@hoya.cen2.ishikawa-nct.ac.jp>
 yyama@i.ishikawa-nct.ac.jp (Yoji YAMADA) writes:
 | mule2.3 + Wnn6 を使っています(FreeBSD3.3R)。
 | Cモードで、コメントなどに日本語の読点「、」を入力したいのですが、
 | 無変換の英語のカンマ「,」になってしまいます。

その「,」になってしまう状況で

  M-x describe-key RET ,

の結果と例えば

  M-x describe-key RET .

の出力を比べてみてください。「.」の方は

, runs the command egg-self-insert-command
   which is an interactive compiled Lisp function in `egg'.
(egg-self-insert-command ARG)

だけど「,」の方は

, runs the command c-electric-semi&comma
   which is an interactive compiled Lisp function in `cc-cmds'.
(c-electric-semi&comma ARG)

などとなってはいないでしょうか。

 | 長らく mule を使ってきましたが、このようなことは初めてです。
 | 何かご存じの方がいらっしゃったら、対処をご教示願えませんか。

実は正しい対処は知らないのですが、私は

(add-hook 'c-mode-hook
	  (lambda ()
	    (local-set-key "," 'egg-self-insert-command)
	    ))

などとしています。

--
§NTTS○FT 技術開発部エレクトロニックコマース技術センター 上原 潤二 §
PGP Key fingerprint = B7 C0 CB 1F 1C 88 69 2A  25 36 8A EE 93 A3 61 72

箕浦です。元記事がまだ来てないのですが、

In article <UEHARA.00Jan31114416@MAIA0.ec.ntts.co.jp>,
uehara@po.ntts.co.jp (UEHARA, Junji) wrote:

> In article <86pg73$22lq$1@hoya.cen2.ishikawa-nct.ac.jp>
>  yyama@i.ishikawa-nct.ac.jp (Yoji YAMADA) writes:
>  | mule2.3 + Wnn6 を使っています(FreeBSD3.3R)。
>  | Cモードで、コメントなどに日本語の読点「、」を入力したいのですが、
>  | 無変換の英語のカンマ「,」になってしまいます。

同じく html-mode, sgml-mode で / キーに sgml-slash がバインドされる、
って問題もありますね。おそらく他にもいっぱいあるでしょう。これは Egg 
(Mule での Wnn のインターフェイス)の仕様というかバグなんでしょう。

> 実は正しい対処は知らないのですが、私は
> 
> (add-hook 'c-mode-hook
>           (lambda ()
>             (local-set-key "," 'egg-self-insert-command)
>             ))

こういうのを全てのモードに設定するのは結構大変そうですね。まあ、使わ
ないモードはほっとけばいいので、現実にはそんなに手間でもないでしょうが。

その点、SKK だとマイナーモードの変形として実装されており、キーマップ
待避してこの辺の問題を解決しています。SKK を使うというのも一つの解決
法です。

ちなみに私がメンテしている Egg で親指シフト入力をするための omelet.el 
の最新版 (ver 1.4 β版ですが) では、skkの真似をしてキーマップを待避して
います。ローマ字入力するのにわざわざ omelet を入れる人はいないでしょう
が、omelet を入れればローマ字入力時も Egg のこの問題を回避できるはずです。


omelet site -> http://www.eva.hi-ho.ne.jp/~minoura/keyboard.html

Egg ver.3 でキーマップを待避するだけのパッチを作ることもできると思います。

-- 
箕浦逸史 @ NIBB

藤枝＠ＪＡＩＳＴです。

In article <mitsushi-3101001338550001@ni482b.nibb.ac.jp>
mitsushi@nibb.ac.jp (Itsushi Minoura) wrote:

> 同じく html-mode, sgml-mode で / キーに sgml-slash がバインドされる、
> って問題もありますね。おそらく他にもいっぱいあるでしょう。

野鳥(http://www.yatex.org)では、通常のキーで特別な処理を行った後
(insert "そのキー") する際には、代わりに
(call-interactively (global-key-binding "そのキー") 
とすることで、EggやCannaの邪魔をしないようにしています。

＃ 「しています」じゃなくて「してもらいました」か
____
  | ＡＩＳＴ  北陸先端科学技術大学院大学
  | HOKURIKU  情報科学研究科 落水研究室
o_/ 1990      藤枝 和宏 fujieda@jaist.ac.jp

$B855-;vEj9F<T$N;3ED(B@$B@P@n9b@l$G$9!#(B
c-mode $B$G(B Egg $B$rMxMQ$7$F$$$k$H$-$KFIE@!V!"!W$,F~NO$G$-$J$$!"$H$$$&7o(B
$B$N%5%^%j$G$9!#(B

In article <86pg73$22lq$1@hoya.cen2.ishikawa-nct.ac.jp>
 yyama@i.ishikawa-nct.ac.jp (Yoji YAMADA) writes:
 | mule2.3 + Wnn6 $B$r;H$C$F$$$^$9(B(FreeBSD3.3R)$B!#(B
 | C$B%b!<%I$G!"%3%a%s%H$J$I$KF|K\8l$NFIE@!V!"!W$rF~NO$7$?$$$N$G$9$,!"(B
 | $BL5JQ49$N1Q8l$N%+%s%^!V(B,$B!W$K$J$C$F$7$^$$$^$9!#(B

$B$H$$$&Ej9F$KBP$7!">e86$5$s!"L'1:$5$s!"F#;^$5$s(B($B$I$&$b$*@$OC$K$J$C$F(B
$B$$$^$9(B ^^;)$B$+$i(B3$B7o$N%U%)%m!<$r$$$?$@$-$^$7$?!#$I$&$b$"$j$,$H$&$4$6(B
$B$$$^$7$?!#>e86$5$s$N5-;v$N$4;XE&$,!"$=$N$^$^%:%P%j$G$7$?!#$*Ni$N0UL#(B
$B$G!"%5%^%j$K$7$F$*$-$^$9!#(B

1. .emacs $B$K(B c-mode $B$N>l9g$N5-=R$rDI2C$9$k$3$H$GBP=h$9$k(B

$B>e86$5$s$NEj9F(B:
Message-ID: <UEHARA.00Jan31114416@MAIA0.ec.ntts.co.jp>$B$h$j!"(B

$B<B$O@5$7$$BP=h$OCN$i$J$$$N$G$9$,!";d$O(B

(add-hook 'c-mode-hook
	  (lambda ()
	    (local-set-key "," 'egg-self-insert-command)
	    ))

$B$J$I$H$7$F$$$^$9!#(B

$B$H$$$&%U%)%m!<$r$$$?$@$-$^$7$?!#855-;vEj9F<T$N4D6-$G$b!">e5-$r(B
.emacs $B$K=q$/$3$H$G!"K>$_$N?6$kIq$$$r$9$k$h$&$K$J$j$^$7$?!#(B
$B7k6I!"855-;vEj9F<T$N(B .emacs $B$O!";z2<$2$r(B4$BJ8;z$K$9$k@_Dj$H$"$o$;$F!"(B

;;; for c mode indent
(setq c-indent-level 4)
(setq c-continued-statement-offset 4)
(setq c-argdecl-indent 0)
(setq c-brace-offset -4)
(setq c-label-offset -4)
;; touten
(add-hook 'c-mode-hook
          (lambda ()
            (local-set-key "," 'egg-self-insert-command)
            ))

$B$N$h$&$K$7$F$$$^$9!#$^$?!">e5-$N@_Dj$NJdB-$H$7$F!"(B
$B0J2<$N@bL@$r$$$?$@$-$^$7$?!#(B

$B$=$N!V(B,$B!W$K$J$C$F$7$^$&>u67$G(B

  M-x describe-key RET ,

$B$N7k2L$HNc$($P(B

  M-x describe-key RET .

$B$N=PNO$rHf$Y$F$_$F$/$@$5$$!#!V(B.$B!W$NJ}$O(B

, runs the command egg-self-insert-command
   which is an interactive compiled Lisp function in `egg'.
(egg-self-insert-command ARG)

$B$@$1$I!V(B,$B!W$NJ}$O(B

, runs the command c-electric-semi&comma
   which is an interactive compiled Lisp function in `cc-cmds'.
(c-electric-semi&comma ARG)

$B$J$I$H$J$C$F$O$$$J$$$G$7$g$&$+!#(B

2. c-mode $B0J30$G$NN`;w$N;vNc$H!"(BSKK$B$d(B omelet.el $B$N;HMQ$G2sHr$9$k(B

$B>e5-$K4XO"$7$FL'1:$5$s$NEj9F(B
 Message-ID: <mitsushi-3101001338550001@ni482b.nibb.ac.jp>
$B$G!"0J2<$N$4;XE&$r$$$?$@$-$^$7$?!#(B

$BF1$8$/(B html-mode, sgml-mode $B$G(B / $B%-!<$K(B sgml-slash $B$,%P%$%s%I$5$l$k!"(B
$B$C$FLdBj$b$"$j$^$9$M!#$*$=$i$/B>$K$b$$$C$Q$$$"$k$G$7$g$&!#$3$l$O(B Egg 
(Mule $B$G$N(B Wnn $B$N%$%s%?!<%U%'%$%9(B)$B$N;EMM$H$$$&$+%P%0$J$s$G$7$g$&!#(B

> $B<B$O@5$7$$BP=h$OCN$i$J$$$N$G$9$,!";d$O(B
> 
> (add-hook 'c-mode-hook
>           (lambda ()
>             (local-set-key "," 'egg-self-insert-command)
>             ))

$B$3$&$$$&$N$rA4$F$N%b!<%I$K@_Dj$9$k$N$O7k9=BgJQ$=$&$G$9$M!#$^$"!";H$o(B
$B$J$$%b!<%I$O$[$C$H$1$P$$$$$N$G!"8=<B$K$O$=$s$J$K<j4V$G$b$J$$$G$7$g$&$,!#(B

$B$=$NE@!"(BSKK $B$@$H%^%$%J!<%b!<%I$NJQ7A$H$7$F<BAu$5$l$F$*$j!"%-!<%^%C%W(B
$BBTHr$7$F$3$NJU$NLdBj$r2r7h$7$F$$$^$9!#(BSKK $B$r;H$&$H$$$&$N$b0l$D$N2r7h(B
$BK!$G$9!#(B

$B$A$J$_$K;d(B($BL'1:;a(B)$B$,%a%s%F$7$F$$$k(B Egg $B$G?F;X%7%U%HF~NO$r$9$k$?$a$N(B
omelet.el $B$N:G?7HG(B (ver 1.4 $B&BHG$G$9$,(B) $B$G$O!"(Bskk$B$N??;w$r$7$F%-!<%^%C%W(B
$B$rBTHr$7$F$$$^$9!#%m!<%^;zF~NO$9$k$N$K$o$6$o$6(B omelet $B$rF~$l$k?M$O$$$J(B
$B$$$G$7$g$&$,!"(Bomelet $B$rF~$l$l$P%m!<%^;zF~NO;~$b(B Egg $B$N$3$NLdBj$r2sHr$G(B
$B$-$k$O$:$G$9!#(B

omelet site -> http://www.eva.hi-ho.ne.jp/~minoura/keyboard.html

Egg ver.3 $B$G%-!<%^%C%W$rBTHr$9$k$@$1$N%Q%C%A$r:n$k$3$H$b$G$-$k$H;W$$$^$9!#(B

$B$5$i$K!"L'1:$5$s$NEj9F$KBP$7!"F#;^$5$s$+$i2<5-$N;XE&$r$$$?$@$-$^$7$?!#(B
Message-ID: <s1sbt62endn.fsf_-_@jaist.ac.jp>

In article <mitsushi-3101001338550001@ni482b.nibb.ac.jp>
mitsushi@nibb.ac.jp (Itsushi Minoura) wrote:

> $BF1$8$/(B html-mode, sgml-mode $B$G(B / $B%-!<$K(B sgml-slash $B$,%P%$%s%I$5$l$k!"(B
> $B$C$FLdBj$b$"$j$^$9$M!#$*$=$i$/B>$K$b$$$C$Q$$$"$k$G$7$g$&!#(B

$BLnD;(B(http://www.yatex.org)$B$G$O!"DL>o$N%-!<$GFCJL$J=hM}$r9T$C$?8e(B
(insert "$B$=$N%-!<(B") $B$9$k:]$K$O!"Be$o$j$K(B
(call-interactively (global-key-binding "$B$=$N%-!<(B") 
$B$H$9$k$3$H$G!"(BEgg$B$d(BCanna$B$N<YKb$r$7$J$$$h$&$K$7$F$$$^$9!#(B

$B!t(B $B!V$7$F$$$^$9!W$8$c$J$/$F!V$7$F$b$i$$$^$7$?!W$+(B

$B0J>e$G$9!#!V%5%^%j!W$H$O8@$C$F$b!"Ej9F5-;v$=$N$^$^$G$9$,!"(B
$B$4MF<O2<$5$$!#(B
--
 $B;3ED(B $BMN;N(B (yyama@ishikawa-nct.ac.jp)

$B855-;vEj9F<T$N;3ED(B@$B@P@n9b@l$G$9!#(B

$B$$$$$8$^$5$s!"$O$8$a$^$7$F!#(B
$B2<5-$N%U%)%m!<$"$j$,$H$&$4$6$$$^$9!#$^$5$K2<5-$N$3$H$G$7$?!#(B

<389303FE.7975C434@mail.ecc.u-tokyo.ac.jp>$B$N5-;v$K$*$$$F(B
L94102@mail.ecc.u-tokyo.ac.jp$B$5$s$O=q$-$^$7$?!#(B

>> 	C $B%b!<%I$G$O(B "," $B%-!<$KJL$N%3%^%s%I$,3d$jEv$F$i$l$F$$$F!"(B
>> 	$B$3$l$,(B global-map $B$N(B egg-self-insert-command $B$h$j$bM%@h$5$l$F(B
>> 	$B$$$k$N$,860x$G$9!#(B
>> 	$B!t(BC $B%b!<%I$G!"(BM-x describe-key (C-h k) $B$G8+$F$_$^$7$g$&!#(B
>> 
>> 	$B$G!"BP:v$O!"(B.emacs $B$K(B
>> 		(add-hook 'c-mode-hook '(lambda ()
>> 			(define-key c-mode-map "," nil)
>> 			; $BB>$N%-!<$bLdBj$K$J$k$J$i$3$3$K(B define-key $B$rNs5-(B
>> 		))
>> 	$B$H=q$$$F$/$@$5$$!#(B

$B855-;v$O!"(BFAQ$BE*$JFbMF$@$J$"!"$H;W$C$F$$$?$N$G!"(Bmule $B$N(B FAQ $B$J$I$r0l1~(B
$B$OD4$Y$?>e$GEj9F$7$^$7$?$,!"$^$5$K(BFAQ$B$@$C$?$h$&$G$9!#;d$N$H$3$m$G$O!"(B
$B$$$$$8$^$5$s$N5-;v$,CY$/FO$$$?$N$G!"JL$KEj9F$7$?%5%^%j$KF~$C$F$$$^$;$s$,!"(B
$BB>0U$O$"$j$^$;$s$N$G$4N;2r2<$5$$!#(B

$B$H$3$m$G!">e5-$N$h$&$J$3$H$O!"$I$3$+$N(B FAQ $B$K$O=q$$$F$"$k$3$H$J$N$G(B
$B$7$g$&$+!#(Bfj.* $B$G2?EY$+$*8+$+$1$7$F$$$k$$$$$8$^$5$s$N%Z!<%8(B

 http://user.ecc.u-tokyo.ac.jp/~l94102/emacs/          

$B$d!";d$,D4$Y$?(B FAQ $B$N%Z!<%8$K$O$J$+$C$?$N$G!"$$$$$8$^$5$s$d>e86$5$s$N(B
$B5v2D$OJL$K$$$?$@$$$?>e!">l9g$K$h$j(B FreeBSD $B$N(B Q & A $B$N$h$&$J!";vNc$r(B
$B=8$a$F$$$k$H$3$m$KJs9p$5$;$F$$$?$@$3$&$+$H;W$C$F$$$k$N$G$9$,!#(B

# $B;d$,9M$($k$h$&$J$3$H$O!"$b$&<jEv$:$_$N2DG=@-$,9b$$$H$O(B
# $B;W$C$F$$$^$9!#(B ^^;
--
 $B;3ED(B $BMN;N(B (yyama@ishikawa-nct.ac.jp)

$BL'1:$G$9(B
fj.editor.mule $B$K<+J,$G$3$&=q$$$?$N$G$9$,!"(B

$B5-;v(B<mitsushi-3101001338550001@ni482b.nibb.ac.jp>
>> Egg ver.3 $B$G%-!<%^%C%W$rBTHr$9$k$@$1$N%Q%C%A$r:n$k$3$H$b$G$-$k$H;W$$$^$9!#(B

$B$=$l$r=q$-$^$7$?$N$GEj9F$7$^$9!#(B

$B$3$N(B salt.el $B$r%m!<%I$9$k$3$H$G(B egg.el $B$N(B toggle-egg-mode $B$H(B 
its:select-mode $B$r>e=q$-$7$F!"%P%C%U%!$N%b!<%I$NJQ99$,$"$k$?$S$K%-!<%^%C(B
$B%W$rBTHr$7$F?7$?$K%-!<%^%C%W$r@_Dj$7$^$9!#JT=8Cf$N%P%C%U%!$G%b!<%I$rJQ(B
$B$($k$H!"(BEgg $B$,(B [$B$"(B] $B$HI=<($7$F$$$?$N$,>C$($F$7$^$$$^$9$,!"$=$l$,$3$N%Q%C(B
$B%A%W%m%0%i%`$K$h$k@5>o$JF0:n$G$9!#:FEY(B C-\ $B$7$F(B Egg $B$rF0$+$7$F$/$@$5$$!#(B

;; -*-emacs-lisp-*-
;;
;; salt.el: boiled-egg $B$K$+$1$k1v(B
;; version 1.0 (2000.2.4.)

;; Copyright (C) 2000 by Itsushi Minoura <minoura@eva.hi-ho.ne.jp>
;; All rights reserved.

;; Egg version 3.09 $B$NLdBj(B: $BJT=8Cf$N%P%C%U%!$N%b!<%I$,@Z$jBX$($i$l$?$H(B
;; $B$-!"(Begg-self-insert-command $B$,%b!<%I$NDj5A$K$h$C$F>e=q$-$5$l!"$+$J(B
;; $BF~NO$,$G$-$J$/$J$kLdBj$r2sHr$9$k%Q%C%A!#(B
;; Mule 2.3, Emacs 20.5 + Wnn patch $B$GF0:n$r3NG'!#(B

;; Some parts of this code override Egg version 3.09 functions.
;;   Japanese Character Input Package for Egg
;;   Coded by S.Tomura, Electrotechnical Lab. (tomura@etl.go.jp)
;;                             
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2 of the License, or
;; (at your option) any later version.
;;
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with this program; if not, write to the Free Software
;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA.
;; Or, you can find GNU General Public License at "http://www.gnu.org/".

(if (boundp 'mc-flag)
    (set 'enable-multibyte-characters 'mc-flag))

;; kill-all-local-variables $B$G%b!<%I$r%/%j%"$9$k$h$&$K$9$k!#$3$l$i$K$h$C(B
;; $B$F!"%P%C%U%!$N%b!<%I$,JQ99$5$l$k$H!"(BEgg $B$N>uBV$,%j%;%C%H$5$l$k$h$&(B
;; $B$K$J$k!#!JI8=`$G$O$3$l$i$NJQ?t$O(B kill-all-local-variables $B$+$iJ]8n(B
;; $B$5$l$F$$$k!K(B
(put 'mode-line-egg-mode  'permanent-local nil)
(put 'egg:*input-mode* 'permanent-local nil)
(put 'egg:*mode-on* 'permanent-local nil)

(defvar egg-emacs-local-map nil  "Original keymap for emacs mode.")
(make-variable-buffer-local 'egg-emacs-local-map)

(defvar egg-local-keymap nil  "local keymap used in Egg input mode")
(make-variable-buffer-local 'egg-local-keymap)

(defvar egg-started-in-this-buffer nil 
  "egg $B$,$3$N%P%C%U%!$G:G=i$K5/F0$5$l$k$H$-$rH=Dj$9$k$?$a$N%U%i%0(B") 
(make-variable-buffer-local 'egg-started-in-this-buffer)
(setq-default egg-started-in-this-buffer nil)

(defun toggle-egg-mode ()
  "EGG 3.09 $B$N4X?t$rJQ99!#%-!<%^%C%W$rBTHr$7!"(Begg-local-keymap $B>e$K%-!<$r3d$jIU$1$k!#(B"
  (interactive)
  (if enable-multibyte-characters
      (if egg:*mode-on* 
	  (progn
	   (fence-toggle-egg-mode)
	   (use-local-map egg-emacs-local-map))
	(setq egg:*mode-on* t)
	(egg:mode-line-display)
	(if (not egg-started-in-this-buffer)
	    (salt-init-buffer))
	(use-local-map egg-local-keymap))))

(defun salt-init-buffer ()
  "Egg $B$N%-!<%^%C%W$r%P%C%U%!Kh$K=i4|2=$9$k!#%-!<%^%C%W$rBTHr$7(B egg-self-insert-command $B$N%-!<%P%$%s%I$,%b!<%I$K$h$C$F=q$-49$($i$l$k$N$KBP=h$9$k!#(B"
  (let (map)
    ;; save current mode
    (setq map (if (eq (selected-window) (minibuffer-window))
		  minibuffer-local-map
		(current-local-map)))
    (setq egg-emacs-local-map (if map (copy-keymap map) nil)
	  egg-local-keymap (copy-keymap (or egg-emacs-local-map 
					    (make-sparse-keymap)))))
  (let ((i 32)) ;; 32 = " "	 
    (while (<= i 126) ;; 126 = "~"
      (define-key egg-local-keymap (char-to-string i) 'egg-self-insert-command)
      (setq i (1+ i))))
  (setq egg-started-in-this-buffer t))

(defun its:select-mode (name)
  "$B%b!<%I$K=>$C$F%-!<%^%C%W$rA*Br(B"
  (interactive (list (completing-read "ITS mode: " its:*mode-alist*)))
  (if (its:get-mode-map name)
      (progn
	(setq its:*current-map* (its:get-mode-map name))
	(egg:mode-line-display)
	(if (eq name "downcase")
	    (use-local-map egg-emacs-local-map)
	  (use-local-map egg-local-keymap)))
    (beep))
  )

;;$B$3$3$^$G(B
-- 
Itsushi Minoura (minoura@eva.hi-ho.ne.jp)