Newsgroups: fj.editor.emacs
Path: galaxy.trc.rwcp.or.jp!jaist-news!cs.titech!wnoc-tyo-news!sh.wide!wnoc-kyo!kyu-cs!hakata!siebold!f0566
From: f0566@cc.nagasaki-u.ac.jp ()
Subject: Re: Demacs+NNANSI
In-Reply-To: swha0444@shizu.imt-shizuoka.or.jp (M.Beppu)'s message of 30 Jul 93 15: 17:49 GMT
Message-ID: <1993Aug2.044429.18027@siebold.cc.nagasaki-u.ac.jp>
Sender: news@siebold.cc.nagasaki-u.ac.jp
Organization: Nagasaki Univ., JAPAN
References: <1993Jul30.004236.521@siebold.cc.nagasaki-u.ac.jp> <199@shizu.imt-shizuoka.or.jp>
Distribution: fj
Date: Mon, 2 Aug 1993 04:44:29 GMT
Lines: 52
Xref: galaxy.trc.rwcp.or.jp fj.editor.emacs:3903
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.editor.emacs&nb=3903&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.

$BEmLZ!wD9:jBg3X$G$9!%(B

$B;d$N(B
>$B:G6a!$(BDemacs$B$r;H$$$O$8$a$^$7$?$,!$(BNNANSI$B$G$O0lIt$N%-!<$N(B
>$B3d$j$"$F$,JQ99$5$l$:$K:$$C$F$$$^$9!%(B(DEL, HOME, arrows..)
$B$H$$$&<ALd$KBP$7$F!$(B


$BJLI\!wL5=jB0(B $B$5$s$h$j(B follow$B$,$"$j$^$7$?!%(B
$B$=$l$K$h$k$H!$(Bibmpc.el$B$N(Bibmpc-assign-special-key$B$H(Bcancel ----$B$r(B
$B<!$N$h$&$K=q$-49$($k$H$h$$$H$N$3$H$G$9!%(B

(defun ibmpc-assign-special-key ()
  (send-string-to-terminal "\e[224;71;27;60p"); Home   -> M-<
  (send-string-to-terminal "\e[224;72;16p"); UpArrow    -> C-p
  (send-string-to-terminal "\e[224;73;27;118p"); PgUp  -> M-v
  (send-string-to-terminal "\e[224;75;2p"); LeftArrow  -> C-b
  (send-string-to-terminal "\e[224;77;6p"); RightArrow -> C-f
  (send-string-to-terminal "\e[224;79;27;62p"); End     -> C->
  (send-string-to-terminal "\e[224;80;14p"); DownArrow  -> C-n
  (send-string-to-terminal "\e[224;81;22p"); PgDn       -> C-v
; (send-string-to-terminal "\e[0;82;0;82p"); Ins
  (send-string-to-terminal "\e[224;83;4p"); Del        -> DEL
  (send-string-to-terminal "\e[8;8p"); Bs         -> BS
  )
(defun ibmpc-cancel-special-key ()
  (send-string-to-terminal "\e[0;59;0;59p")
  (send-string-to-terminal "\e[224;71;0;71p"); Home
  (send-string-to-terminal "\e[224;72;0;72p"); UpArrow
  (send-string-to-terminal "\e[224;73;0;73p"); PgUp
  (send-string-to-terminal "\e[224;75;0;75p"); LeftArrow
  (send-string-to-terminal "\e[224;77;0;77p"); RightArrow
  (send-string-to-terminal "\e[224;79;0;79p"); End
  (send-string-to-terminal "\e[224;80;0;80p"); DownArrow
  (send-string-to-terminal "\e[224;81;0;81p"); PgDn
  ; (send-string-to-terminal "\e[224;82;0;82p"); Ins
  (send-string-to-terminal "\e[224;83;0;83p"); Del
  (send-string-to-terminal "\e[8;8p"); BS
  )

$B0J>e$N:n6H$K$h$jL5;vF0:n$5$;$k$3$H$,$G$-$^$7$?!$(B
$BJLI\$5$s!%$I$&$b$"$j$,$H$&$4$6$$$^$7$?!%(B

------------------------------------------------------------------------------
                                      Satoru MOMOKI
                                      Dpt. of Mechanical Systems Engineering,
                                      Nagasaki University
                                      1-14 Bunkyo-machi, Nagasaki 852, JAPAN
                                      e-mail  s-momoki@cc.nagasaki-u.ac.jp
                                      tel.    0958-47-1111 Ext.2645
                                      fax.    0958-47-3247(Dept. office)
------------------------------------------------------------------------------
