🚀 go-pugleaf

$@ElKLBg$N9uLZ$G$9!#(Jelisp $@A4A3CN$i$J$$$1$I!"$A$g$C$H$@$1;22C!#(J

In article <848@gunma.cs.gunma-u.ac.jp> miura@symb.cs.gunma-u.ac.jp (Miura Kinya) writes:
 |$@$b$H$b$H$N(J global-map (esc-map) $@$G$O!$(J"\e[" $@$K(J backward-paragraph $@$H$$$&(J
 |$@4X?t$,Dj5A$5$l$F$$$k$N$G!$$=$N$^$^$G$O(J prefix $@$H$7$F07$&$3$H$,$G$-$^$;$s!%(J
 |
 |(define-key global-map "\e[" nil)
 |
 |$@$O!$$=$NDj5A$r$4GK;;$K$9$k(J$@$N$G!$$&$^$/$$$/$h$&$K$J$k$o$1$G$9!%K\Mh$J$i!$(J
 |
 |(define-key global-map "\e[" (make-keymap))
 |
 |$@$H$+(J
 |
 |(define-key global-map "\e[" (make-sparse-keymap))
 |
 |$@$H$+$9$k$Y$-$J$s$G$7$g$&$1$I!%(J

$@$H$$(J$@$&$o$1$G!";d$O0J2<$NMM$K$7$F$$$^$9(J:

;;;
;;;	enable arrow keys
;;;
(defvar arrow-keymap (make-keymap))
(fset 'arrow-prefix arrow-keymap)
(define-key global-map "\e[" 'arrow-prefix)
(define-key arrow-keymap "[" 'backward-paragraph)
(define-key arrow-keymap "A" 'previous-line)
(define-key arrow-keymap "B" 'next-line)
(define-key arrow-keymap "C" 'forward-char)
(define-key arrow-keymap "D" 'backward-char)
(defvar ap-arrow-keymap (make-keymap))
(fset 'ap-arrow-prefix ap-arrow-keymap)
(define-key global-map "\eO" 'ap-arrow-prefix)
(define-key ap-arrow-keymap "A" 'previous-line)
(define-key ap-arrow-keymap "B" 'next-line)
(define-key ap-arrow-keymap "C" 'forward-char)
(define-key ap-arrow-keymap "D" 'backward-char)

$@$3$l$GLdBj$O$J$$$N$G$7$g$&$+!)(J
--
$@9uLZ8<!wElKLBg3XM}3XIt?t3X65<<(J