🚀 go-pugleaf

$@G/Kv$*@$OC$K$J$C$?5\@n!wBg9)Bg$G$9!#(J

$@$[$\B48&$NJ}$bJRIU$-!"$^$?(J emacs$@$GM7$S;O$a$?$N$G$9$,!"(J
$@$3$NA0$HF1$8MM$J$H$3$m$G5M$^$C$F$$$^$9!#(J
$@!J$&!A$s!"?JJb$,$J$$!*!*!K(J

$@<+J,$N8&5f<<$G$O!"(JNEC PC9801(or EPSON)$@$rC<Kv$H$7$F;HMQ(J
$@$7$F$$$k$N$G$9$,!":#2s(J key.tbl$@!J(JMS-DOS$@>e!K$rMQ$$$F!"(J

	:ku=\E[A:kd=\E[B:kr=\E[C:kl=\E[D:\

$@$H$7$^$7$?!#(Jcusor $@0\F0$N$?$a!"(J.emacs$@$G!"(J

	   (define-key global-map "\^[[A" 'previous-line)
	   (define-key global-map "\^[[B" 'next-line)
	   (define-key global-map "\^[[C" 'forward-char)
	   (define-key global-map "\^[[D" 'backward-char)

$@$H$7$h$&$H$7$?$N$G$9$,$&$^$/$$$-$^$;$s!#(J
$@!!$3$l$O!"$3$N>l9g$@$1$G$J$/!"(Jkey $@$,(J "\^[["+? $@$N>l9g$K$O(J
$@$&$^$/(J define-key $@$G$-$J$$$_$?$$$G$9!#(J
  $@$^$?!"(J

	   (define-key esc-map "[A" 'previous-line)
	   (define-key esc-map "[B" 'next-line)
	   (define-key esc-map "[C" 'forward-char)
	   (define-key esc-map "[D" 'backward-char)

$@$H$7$F$b$@$a$G$7$?!#(J

$@!!$=$l$H!"(JSun $@$NJ}$G(J BS-key $@$G(J delete-backward-char$@!"(J
DEL-key $@$G(J delete-char$@!"(JHelp-key $@$G(J helper.el $@$N(J Helper-help
$@$G$-$k$h$&$K$7$h$&$H!"(Jbobcat.el$@$r$^$M$F!"(J.emacs$@$G!"(J

	   (let ((the-table (make-string 128 0)))
		(let ((i 0))
		     (while (< i 128)
			    (aset the-table i i)
			    (setq i (1+ i))))
		(aset the-table ?\177 ?\^[D)
		(aset the-table ?\^h ?\177)
		(setq keyboard-translate-table the-table))
	   (load "helper")
	   (define-key global-map "\^[[207z" 'Helper-help)
	   (define-key global-map "\^[D" 'delete-char)

$@$H$7$?$N$G$9$,$&$^$/$$$-$^$;$s!#(J
$@$J$*!"(Jmake-string $@$H(J aset $@$N;H$$J}$K$D$$$F$O!"$[$H$s$ICN$j$^$;$s!#(J
$@$^$?!"(J

	(setq keyboard-translate-table
	      "\^@\^A\^B\^C")

$@$N$h$&$K(J keyboard-translate-table$@$KD>@\(J key-code $@$rNs5s$7$F(J setq
$@$9$k>l9g$K(J ESC$@$rH<$&$h$&$J(J key-code $@$O$I$N$h$&$K07$($P$$$$$N$+!"(J
$@$=$7$F!"(Jsun.el$@$G$O!"(Jmake-sparse-keymap$@$H$7$F(J key-map$@$r:n$j=P$7$F(J
$@$k$_$?$$$G$9$,!"4pK\E*$K(J key-map $@$d(J table $@$H$$$C$?$b$N$O$I$&$$$C$?(J
$@$b$N$J$N$G$7$g$&$+!"Nc$($P!"(Jlist $@$G$"$k$H$+!"(Jarray $@$G$"$k$H$+!"$*65(J
$@$(4j$($J$$$G$7$g$&$+!#(J

elisp $@$K$D$$$F$[$H$s$ICN$i$J$$$b$N$G!"K\Ev$K4pK\E*$J;vJA$P$+$j(J
$@$@$H$O;W$$$^$9$,!"59$7$/$*4j$$$$$?$7$^$9!#(J

$@F0:n4D6-(J: nemacs3.3.2 + emacs18.55.5
	  sparc + SunOS 4.1.1 - JLE1.1.1RevB 

-- 
$@Bg:e9)6HBg3X!!EE;R9)3X2J!!1~MQEE;R!&DL?.@)8f8&5f<<(J
$@!!!!!!!!!!5\@n!!5.;V(J(miyagawa takashi)
          miyagawa@aecc.elc.osaka-tech.ac.jp