🚀 go-pugleaf

$BJR;3!w#P#F#U$G$9!#(B

In article <86o949$oai$1@nn-tk106.ocn.ad.jp>,
	"Kiyomi Yamazaki" <kiyomiy@ai-com.co.jp> writes:

>.emacs$B$K0J2<$N$h$&$K5-=R$7$^$7$?(B
>(global-set-key "\C-i" 'previous-line )
>(global-set-key "\C-k" 'next-line )
>(global-set-key "\C-l" 'forward-char )
>(global-set-key "\C-j" 'backward-char )
>C-j$B$@$1$,5!G=$;$:!"(BC-j$B$r2!2<$9$k$H2~9T$,5!G=$7$F$7$^(B
>$B$$$^$9!%(BKeyBind$B$N0lMw$r8+$F$b(BC-j$B$OH4$1$F$$$^$9!%!!(B

Major Mode Bindings $B$NCf$K(B LFD $B$N%P%$%s%I$,$"$k$N$@$H;W$$$^$9!#(B
lisp $B%b!<%I$d(B C $B%b!<%I$G$O!"(BC-i $B$J$I$b8z$+$J$/$J$k$O$:$G$9!#(B

>C-j$B$K5!G=$r3d$jEv$F$k$K$O2?$+I,MW$J$N$G$7$g$&$+!)(B

$B%a%8%c!<%b!<%I$K$O4X78$J$/>o$K>e5-$N%P%$%s%I$K$7$?$$!J%a%8%c!<%b!<(B
$B%I$N5!G=$O;H$o$J$$!K$H$$$&$N$G$"$l$P!"(Bminor-mode-map $B$r;H$&$3$H(B
$B$,$G$-$^$9$,!"$=$&$$$&$3$H$G$O$J$$$H;W$$$^$9!#(B

$B?tB?$/$"$k%a%8%c!<%b!<%I$N$9$Y$F$G%-!<%P%$%s%I$rDj5A$7D>$9$N$O8=(B
$B<BE*$G$O$"$j$^$;$s$+$i!"(Bkeyboard-translate-table $B$r;H$C$F%-!<%^%C(B
$B%W$=$N$b$N$rJQ$($k$N$,$h$$$G$7$g$&!#(B

$B!=!=!=!=$3$3$+$i!=!=!=!=$3$3$+$i!=!=!=!=$3$3$+$i!=!=!=!=$3$3$+$i!=!=!=!=(B
(setq keyboard-translate-table
      (let* ((table (make-string 32 0))
	     (i (length table)))
	(while (> i 0)
	  (setq i (1- i))
	  (aset table i i))
	(aset table ?\C-i ?\C-p)
	(aset table ?\C-k ?\C-n)
	(aset table ?\C-l ?\C-f)
	(aset table ?\C-j ?\C-b)

	(aset table ?\C-p ?\C-i)
	(aset table ?\C-n ?\C-k)
	(aset table ?\C-f ?\C-l)
	(aset table ?\C-b ?\C-j)
	table))
$B!=!=!=!=$3$3$^$G!=!=!=!=$3$3$^$G!=!=!=!=$3$3$^$G!=!=!=!=$3$3$^$G!=!=!=!=(B

$B!H(B(aset table ?\C-i ?\C-p)$B!I$O!"(BC-i $B$r2!$9$H(B C-p $B$,DLCN$5$l$k$h(B
$B$&$K%-!<%^%C%W$rJQ99$7$^$9!#(B

$B$3$NNc$G$O!"(BC-i $B"N(B C-p$B!"(BC-k $B"N(B C-n$B!"(BC-l $B"N(B C-f$B!"(BC-j $B"N(B C-b $B$H%-!<(B
$B$rF~$l49$($F$$$^$9!#(B

$B$3$NF~$l49$($O>o$K5/$3$k$N$G!"Nc$($P!"(BC-x C-f $B$O(B C-x C-l $B$K$J$j(B
$B$^$9!#(B
--
$BJR;3!w#P#F#U(B

ありがとうございます．　うまくいきました．

ストールマンやみなさんはカーソル移動って
C-p C-b C-f C-nなのでしょうか？
----------------------------
山﨑　清美 (Kiyomi Yamazaki)

KATAYAMA Yoshio <kate@pfu.co.jp> wrote in message
news:KATE.00Jan27160338@yamato.trad.pfu.co.jp...
> 片山＠ＰＦＵです。
>
> In article <86o949$oai$1@nn-tk106.ocn.ad.jp>,
> "Kiyomi Yamazaki" <kiyomiy@ai-com.co.jp> writes:
>
> >.emacsに以下のように記述しました
> >(global-set-key "\C-i" 'previous-line )
> >(global-set-key "\C-k" 'next-line )
> >(global-set-key "\C-l" 'forward-char )
> >(global-set-key "\C-j" 'backward-char )
> >C-jだけが機能せず、C-jを押下すると改行が機能してしま
> >います．KeyBindの一覧を見てもC-jは抜けています．　
>
> Major Mode Bindings の中に LFD のバインドがあるのだと思います。
> lisp モードや C モードでは、C-i なども効かなくなるはずです。
>
> >C-jに機能を割り当てるには何か必要なのでしょうか？
>
> メジャーモードには関係なく常に上記のバインドにしたい（メジャーモー
> ドの機能は使わない）というのであれば、minor-mode-map を使うこと
> ができますが、そういうことではないと思います。
>
> 数多くあるメジャーモードのすべてでキーバインドを定義し直すのは現
> 実的ではありませんから、keyboard-translate-table を使ってキーマッ
> プそのものを変えるのがよいでしょう。
>
> ――――ここから――――ここから――――ここから――――ここから――――
> (setq keyboard-translate-table
>       (let* ((table (make-string 32 0))
>      (i (length table)))
> (while (> i 0)
>   (setq i (1- i))
>   (aset table i i))
> (aset table ?\C-i ?\C-p)
> (aset table ?\C-k ?\C-n)
> (aset table ?\C-l ?\C-f)
> (aset table ?\C-j ?\C-b)
>
> (aset table ?\C-p ?\C-i)
> (aset table ?\C-n ?\C-k)
> (aset table ?\C-f ?\C-l)
> (aset table ?\C-b ?\C-j)
> table))
> ――――ここまで――――ここまで――――ここまで――――ここまで――――
>
> “(aset table ?\C-i ?\C-p)”は、C-i を押すと C-p が通知されるよ
> うにキーマップを変更します。
>
> この例では、C-i ⇔ C-p、C-k ⇔ C-n、C-l ⇔ C-f、C-j ⇔ C-b とキー
> を入れ換えています。
>
> この入れ換えは常に起こるので、例えば、C-x C-f は C-x C-l になり
> ます。
> --
> 片山＠ＰＦＵ

In article <86r3e1$at5$1@nn-tk106.ocn.ad.jp>
"Kiyomi Yamazaki" <kiyomiy@ai-com.co.jp> wrote:

> ストールマンやみなさんはカーソル移動って
> C-p C-b C-f C-nなのでしょうか？

hjklです。あ、その順ならkhljか。
いつもviper-modeなもので。

＃ hjklはnethackじゃなくてhuntで覚えたのさ。
____
  | ＡＩＳＴ  北陸先端科学技術大学院大学
  | HOKURIKU  情報科学研究科 落水研究室
o_/ 1990      藤枝 和宏 fujieda@jaist.ac.jp

In article <86r3e1$at5$1@nn-tk106.ocn.ad.jp>, kiyomiy@ai-com.co.jp says...
>ストールマンやみなさんはカーソル移動って
>C-p C-b C-f C-nなのでしょうか？

ng を使っている頻度の方が高いですが、
ng は矢印キーが使えない為、それを使ってました。

ただ、あまりにもだったので .ng に、

(global-set-key "\^?" 'delete-char)
(global-set-key "\^h" 'delete-backward-char)
(global-set-key "\^[[A" 'previous-line)
(global-set-key "\^[[B" 'next-line)
(global-set-key "\^[[D" 'backward-char)
(global-set-key "\^[[C" 'forward-char)

これを書き込んで今では矢印キーを使っています。
（C-p は左手だけで押すには遠すぎる。
　両手使うのはめんどう。）

-------------------------------
Y.Sato