Newsgroups: fj.editor.mule,fj.os.linux,fj.unix,fj.questions.unix
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!news.join.ad.jp!news.imnet.ad.jp!ripspost.aist.go.jp!news.tisn.ad.jp!is.s.u-tokyo!mech.t.u-tokyo.ac.jp!t-server!news.nc.u-tokyo.ac.jp!train.ad.jp!yu-news!yacc.or.jp!ca-gate!mckinley!yamaguti
From: yamaguti@mckinley.comp-appl.co.jp (YAMAGUCHI Kenji)
Subject: Re: Key bind.
Followup-To: fj.editor.mule,fj.os.linux,fj.unix,fj.questions.unix
References: <C9402873.96Mar13012528@mita1.cc.mita.keio.ac.jp> <867mwpm3vy.fsf@thelonious.smoke.or.jp>
Date: Thu, 14 Mar 1996 08:26:11 GMT
Nntp-Posting-Host: 202.227.65.137
X-Newsreader: TIN [version 1.2 PL2]
Distribution: fj
Organization: Computer Application, Corp.
Sender: news@ca-gate.comp-appl.co.jp
Message-ID: <1996Mar14.082611.14745@ca-gate.comp-appl.co.jp>
Lines: 60
Xref: galaxy.trc.rwcp.or.jp fj.editor.mule:4008 fj.os.linux:266 fj.unix:1925 fj.questions.unix:3030
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.questions.unix&nb=3030&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.

$B;38}!w#C#A$G$9!#(B

Seiichi Namba (pi9s-nnb@asahi-net.or.jp) wrote:
> X $B>e$N(B Mule $B$G$O!"(B^H, DEL, BS $B$r;W$$$I$*$j$K@_Dj!J(BDEL $B$r(B help $B$N%W%j%U%#%C(B
> $B%/%9$H$7$F!"$^$?!"(BBS, ^H $B$O$H$b$K(B delete-backward-char $B$K;H$&!K$9$k$?(B
> $B$a$K!";d$b6lO+$7$?5-21$,$"$j$^$9!#(B

$B;d$b(B ^H $B$H(B DEL $B$G$O6lO+$7$^$7$?!#(B

$BFC$K(B HP-UX $B$@$H(B ^H $B$,(B erase $B%-%c%i%/%?$H$7$F%G%U%)%k%H$K$J$C$F$*$j!"F~$l(B
$B49$($h$&$H$9$k$H$I$s$I$s@09g$,<h$l$J$/$J$C$F$f$/$N$G$9!#(B
$B$"$A$iN)$F$l$P$3$A$i$,N)$?$:!#<RFb$K$O(B VT100 $B8_49(B (DEL)$B$b$"$k$7!"(B98 $B$N%?!<(B
$B%_%J%k%(%_%e%l!<%?$G$O(B ^H $B$,%G%U%)%k%H!#$^$$$j$^$7$?!#(B

$B$G!"7k2LE*$K0J2<$NJ}?K$G$J$s$H$+@Z$jH4$1$F$$$^$9!#(B

              $B!V(B^H $B$H(B DEL $B$rN>J}$H$b%P%C%/%9%Z!<%9$K$7$F$7$^$&!W(B

$B6qBNE*$K$O!"(B.emacs $B$"$k$$$O(B site-lisp/default.el $B$K(B bobcat.el $B$N0lIt$r(B
$BJQ99$7$?<!$N%3!<%I$rF~$l$^$9!#(B
--------------------------------------------------------------------------
;
; Setup DEL and ^H to erase character.
;
(let ((the-table (make-string 128 0)))
;; Default is to translate each character into itself.
(let ((i 0))
(while (< i 128)
(aset the-table i i)
(setq i (1+ i))))
;; Swap Back-Space and Delete
; (aset the-table ?\177 ?\^h)
(aset the-table ?\^h ?\177)
(setq keyboard-translate-table the-table))
--------------------------------------------------------------------------
\177$B$N$H$3$m$r%3%a%s%H%"%&%H$7$?$@$1$G$9!#(B

$B$G!"$3$l$G$O(B HELP $B$,;H$($^$;$s$N$G!"(BM-? $B$K(B HELP $B$r3d$jEv$F$^$9!#(B
--------------------------------------------------------------------------
; rebinding HELP
;
(global-set-key "\M-?" 'help-for-help)
--------------------------------------------------------------------------

$B$3$l$i$N@_Dj$O(B MULE 1.x $B$N;~$+$i;H$C$F$*$j!"(BEmacs 19.x $B%Y!<%9$N(B MULE 2.x
$B$G$OK\Ev$O$$$1$J$$$N$+$b$7$l$^$;$s!#(B
$B0l1~(B X $BC<Kv$*$h$S%-%c%i%/%?C<Kv$GF0:n$7$F$$$^$9!#(B


> $B$?$V$s!"Nr;KE*$JGX7J$,$"$k$N$G$7$g$&$,!":#!"0lHLE*$K;H$o$l$F$$$k(B
> $B%-!<%\!<%I$K$O!"$3$N$"$?$j$N(B Emacs $B$N%G%U%)%k%H%P%$%s%G%#%s%0$O9g$o$J(B
> $B$$$G$9$h$M!D!#(B

$B;d$b6/$/$=$&;W$$$^$9!#(B

--
($B3t(B)$B%3%s%T%e!<%?!&%"%W%j%1!<%7%g%s(B
 $B5;=Q(B  $B;38}7r;K(B (YAMAGUCHI Kenji)
 E-Mail: yamaguchi-kenji@comp-appl.co.jp
 NIFTY-Serve: HFF02115
