cgit.sxemacs.org Git - packages/blob - mule-packages/egg-its/its-kanainput.el

   1 ;; Basic translation table to input KANA with ASCII keyboard
   2 ;; Created by DEMIZU Norotishi <nori-d@is.aist-nara.ac.jp>  on 1994.1.26
   3 ;; !Id: kanainput.el,v 1.2 1994/02/04 13:19:38 nori-d Exp nori-d !
   4
   5 ;;
   6 ;; \e$BG[I[>r7o$O\e(B GNU GENERAL PUBLIC LICENSE \e$B$K=>$$$^$9!#\e(B
   7 ;;
   8 ;; \e$B$3$l$O\e(B ASCII \e$BG[Ns$N%-!<%\!<%I$G$+$JF~NO$G2>L>4A;zJQ49$r$9$k$?$a$N\e(B
   9 ;; \e$BJQ49%k!<%k$r5-$7$?\e(B lisp \e$B$G$9!#;H$$J}$O<!$NDL$j$G$9!#\e(B
  10 ;;  (load "its-kanainput")
  11 ;;  (setq its:*standard-modes*
  12 ;;      (cons (its:get-mode-map "kanainput") its:*standard-modes*))
  13 ;;  (setq-default its:*current-map* (its:get-mode-map "kanainput"))
  14 ;;
  15
  16 ;;
  17 ;; \e$B0lHL$N\e(B JIS \e$B$+$J$H0c$&$H$3$m$O<!$G$9!#\e(B
  18 ;;   \e$B!&\e(B \e$B!V$m!W$,\e(B "|" \e$B$N0LCV$K!#K\Mh$N!V$m!W$N0LCV$K%-!<$,$J$$$?$a!#\e(B(\e$BITJX\e(B)
  19 ;;   \e$B!&\e(B \e$B!V!<!W$,B?$/$N%"%9%-!<%-!<%\!<%I$G$O4|BT$H0c$&0LCV$K$"$k!#\e(B(\e$BITJX\e(B)
  20 ;;   \e$B!&\e(B `\e$B!V\e(B'  \e$B$,\e(B `[' \e$B$N0LCV$K!#\e(BASCII \e$B$N\e(B "[" \e$B$K5$;}$A$r9g$o$;$?!#\e(B
  21 ;;   \e$B!&\e(B `\e$B!W\e(B'  \e$B$,\e(B `]' \e$B$N0LCV$K!#\e(BASCII \e$B$N\e(B "]" \e$B$K5$;}$A$r9g$o$;$?!#\e(B
  22 ;;   \e$B!&\e(B \e$B!V!)!W$,\e(B "?" \e$B$N0LCV$K!#\e(BASCII \e$B$N\e(B "?" \e$B$K5$;}$A$r9g$o$;$?!#\e(B
  23 ;;   \e$B!&\e(B \e$B!V!&!W$,\e(B ":" \e$B$N0LCV$K!#!V!)!W$r\e(B "?" \e$B$HF1$80LCV$K$9$k$?$a$:$i$7$?!#\e(B
  24 ;;
  25 ;; \e$BA43QJ8;z!"H>3QJ8;z!"\e(BJIS \e$B5-9fF~NO$NItJ,$O\e(B its/hira.el \e$B$HF1$8$K$7$^$7$?!#\e(B
  26 ;; \e$BF~NO$N$?$a$N\e(B prefix \e$B$O0J2<$NDL$j!#\e(B
  27 ;;   Q: \e$BA43QF~NO\e(B (Quote \e$B$H3P$($k\e(B)  ; k-zenkaku-escape \e$B$GDj5A2DG=\e(B
  28 ;;   A: \e$BH>3QF~NO\e(B (Ascii \e$B$H3P$($k\e(B)  ; k-hankaku-escape \e$B$GDj5A2DG=\e(B
  29 ;;   S: \e$B5-9fF~NO\e(B (Symbol \e$B$H3P$($k\e(B) ; k-symbols-escape \e$B$GDj5A2DG=\e(B
  30 ;;
  31 ;;\e$B!V$+$JF~NO;~$NG[Ns!W\e(B
  32 ;; \e$B$L!*\e(B \e$B$U!w\e(B \e$B$"$!\e(B \e$B$&$%\e(B \e$B$($'\e(B \e$B$*$)\e(B \e$B$d$c\e(B \e$B$f$e\e(B \e$B$h$g\e(B \e$B$o$r\e(B \e$B$[$m\e(B \e$B$X!\\e(B \e$B!<!A\e(B
  33 ;;  \e$B$?\e(B__ \e$B$F\e(B__ \e$B$$$#\e(B \e$B$9$9\e(B \e$B$+%u\e(B \e$B$s$s\e(B \e$B$J$J\e(B \e$B$K$K\e(B \e$B$i$i\e(B \e$B$;$;\e(B \e$B!I!V\e(B \e$B!,!W\e(B
  34 ;;   \e$B$A\e(B__ \e$B$H\e(B__ \e$B$7$7\e(B \e$B$O$O\e(B \e$B$-$-\e(B \e$B$/$/\e(B \e$B$^$^\e(B \e$B$N$N\e(B \e$B$j$j\e(B \e$B$l!&\e(B \e$B$1%v\e(B \e$B$`$m\e(B
  35 ;;    \e$B$D$C\e(B \e$B$5$5\e(B \e$B$=$=\e(B \e$B$R$R\e(B \e$B$3$3\e(B \e$B$_$_\e(B \e$B$b$b\e(B \e$B$M!"\e(B \e$B$k!#\e(B \e$B$a!)\e(B
  36 ;;
  37 ;;\e$B!V5-9fF~NO;~$NG[Ns!W\e(B(proposed by TANAKA Jiro <jiro@math.keio.ac.jp> 90.3.2)
  38 ;; \e$B!{!|\e(B \e$B"&"'\e(B \e$B"$"%\e(B \e$B"""#\e(B \e$B!~"!\e(B \e$B!y!z\e(B \e$B!}!r\e(B \e$B!q!_\e(B \e$B!i!Z\e(B \e$B!j![\e(B \e$B!A!h\e(B \e$B!b!^\e(B \e$B!-!/\e(B
  39 ;;  \e$B!T!R\e(B \e$B!U!S\e(B ____ \e$B!9!8\e(B \e$B!:!x\e(B \e$B!o\e(B__ ____ ____ ____ \e$B")",\e(B \e$B!X!L\e(B \e$B!Y!M\e(B
  40 ;;   ____\e$B!3!4\e(B \e$B!5!6\e(B \e$B!7"*\e(B \e$B!>!=\e(B \e$B"+\e(B__ \e$B"-!2\e(B \e$B",!1\e(B \e$B"*\e(B__ \e$B!+!,\e(B \e$B!F!H\e(B \e$B!@!B\e(B
  41 ;;    ____ :-:-)\e$B!;!n\e(B \e$B"(!`\e(B \e$B!k"+\e(B \e$B!l"-\e(B \e$B!m".\e(B \e$B!E!e\e(B \e$B!D!f\e(B \e$B!&!g\e(B
  42 ;;
  43 ;;\e$B!VA[Dj$7$F$$$k\e(B ASCII \e$B%-!<%\!<%I$NG[Ns!W\e(B(\e$BH>3Q!"A43QF~NO;~$b\e(B)
  44 ;; 1!  2@  3#  4$  5%  6^  7&  8*  9(  0)  -_  =+  `~
  45 ;;  qQ  wW  eE  rR  tT  yY  uU  iI  oO  pP  [{  ]}
  46 ;;   aA  sS  dD  fF  gG  hH  jJ  kK  lL  ;:  '"  \|
  47 ;;    zZ  xX  cC  vV  bB  nN  mM  ,<  .>  /?
  48 ;;
  49 ;; kanainput.el 1.1 -> 1.2:
  50 ;;  o \e$B5-9fF~NO\e(B prefix \e$B$r\e(B "X" \e$B$+$i\e(B "S" \e$B$K$7$?!#\e(B
  51 ;;  o \e$B0J2<$NF~NOJ}K!$r4JC1$K$9$k$?$aJQ99$7$?!#\e(B
  52 ;;      \e$B!V$p!W\e(B  "W4E" --> "WE"
  53 ;;      \e$B!V$q!W\e(B  "W4%" --> "W%"
  54 ;;      \e$B!V%t!W\e(B  "W4[" --> "W["
  55 ;;  o \e$B0J2<$NF~NO7k2L$rJQ99$7$?!#K\J*$N\e(B Quote \e$B$K$9$k$?$a!#\e(B
  56 ;;      "Q\\"   \e$B!V!o!W\e(B-->\e$B!V!@!W\e(B
  57 ;;      "Q~"    \e$B!V!1!W\e(B-->\e$B!V!A!W\e(B
  58 ;;  o \e$B0J2<$N%k!<%k$rDI2C$7$?!#\e(B
  59 ;;      "Sy" -->\e$B!V!o!W\e(B
  60 ;;      "SJ" -->\e$B!V!2!W\e(B
  61 ;;      "Sk" -->\e$B!V!1!W\e(B
  62 ;;  o \e$B3F%k!<%k$K$D$$$F\e(B its-defrule \e$B$r=q$$$F$$$?$N$r!"\e(B
  63 ;;    \e$B4JC1$N$?$aI=%Y!<%9$K$7$?!#\e(B
  64 ;;
  65
  66 (its-define-mode "kanainput" "\e$B$+\e(B" t)
  67 (defvar k-zenkaku-escape "Q")  ; \e$BA43QF~NO$N\e(B prefix
  68 (defvar k-hankaku-escape "A")  ; \e$BH>3QF~NO$N\e(B prefix
  69 (defvar k-symbols-escape "S")  ; \e$B5-9fF~NO$N\e(B prefix
  70
  71
  72 (defun its:make-terminal-state-kanainput (map input action state)
  73   (cond((its:standard-actionp action) (action-output action))
  74        (t nil)))
  75
  76 (let ((its:make-terminal-state 'its:make-terminal-state-kanainput))
  77   ;; \e$B$+$JF~NOMQ\e(B
  78   (dolist (normal-pair
  79            '(
  80              ;; \e$B@62;\e(B
  81              ("3"   "\e$B$"\e(B") ("e"   "\e$B$$\e(B") ("4"   "\e$B$&\e(B") ("5"   "\e$B$(\e(B") ("6"   "\e$B$*\e(B")
  82              ("t"   "\e$B$+\e(B") ("g"   "\e$B$-\e(B") ("h"   "\e$B$/\e(B") ("'"   "\e$B$1\e(B") ("b"   "\e$B$3\e(B")
  83              ("x"   "\e$B$5\e(B") ("d"   "\e$B$7\e(B") ("r"   "\e$B$9\e(B") ("p"   "\e$B$;\e(B") ("c"   "\e$B$=\e(B")
  84              ("q"   "\e$B$?\e(B") ("a"   "\e$B$A\e(B") ("z"   "\e$B$D\e(B") ("w"   "\e$B$F\e(B") ("s"   "\e$B$H\e(B")
  85              ("u"   "\e$B$J\e(B") ("i"   "\e$B$K\e(B") ("1"   "\e$B$L\e(B") (","   "\e$B$M\e(B") ("k"   "\e$B$N\e(B")
  86              ("f"   "\e$B$O\e(B") ("v"   "\e$B$R\e(B") ("2"   "\e$B$U\e(B") ("="   "\e$B$X\e(B") ("-"   "\e$B$[\e(B")
  87              ("j"   "\e$B$^\e(B") ("n"   "\e$B$_\e(B") ("\\"  "\e$B$`\e(B") ("/"   "\e$B$a\e(B") ("m"   "\e$B$b\e(B")
  88              ("7"   "\e$B$d\e(B")              ("8"   "\e$B$f\e(B")              ("9"   "\e$B$h\e(B")
  89              ("o"   "\e$B$i\e(B") ("l"   "\e$B$j\e(B") ("."   "\e$B$k\e(B") (";"   "\e$B$l\e(B") ("|"   "\e$B$m\e(B")
  90              ("0"   "\e$B$o\e(B") ("WE"  "\e$B$p\e(B")              ("W%"  "\e$B$q\e(B") (")"   "\e$B$r\e(B")
  91              ("y"   "\e$B$s\e(B")
  92              ;; \e$BBy2;\e(B
  93              ("t["  "\e$B$,\e(B") ("g["  "\e$B$.\e(B") ("h["  "\e$B$0\e(B") ("'["  "\e$B$2\e(B") ("b["  "\e$B$4\e(B")
  94              ("x["  "\e$B$6\e(B") ("d["  "\e$B$8\e(B") ("r["  "\e$B$:\e(B") ("p["  "\e$B$<\e(B") ("c["  "\e$B$>\e(B")
  95              ("q["  "\e$B$@\e(B") ("a["  "\e$B$B\e(B") ("z["  "\e$B$E\e(B") ("w["  "\e$B$G\e(B") ("s["  "\e$B$I\e(B")
  96              ("f["  "\e$B$P\e(B") ("v["  "\e$B$S\e(B") ("2["  "\e$B$V\e(B") ("=["  "\e$B$Y\e(B") ("-["  "\e$B$\\e(B")
  97              ;; \e$BH>By2;\e(B
  98              ("f]"  "\e$B$Q\e(B") ("v]"  "\e$B$T\e(B") ("2]"  "\e$B$W\e(B") ("=]"  "\e$B$Z\e(B") ("-]"  "\e$B$]\e(B")
  99              ;; \e$B>.$5$J;z\e(B
 100              ("#"   "\e$B$!\e(B") ("E"   "\e$B$#\e(B") ("$"   "\e$B$%\e(B") ("%"   "\e$B$'\e(B") ("^"   "\e$B$)\e(B")
 101              ("&"   "\e$B$c\e(B")              ("*"   "\e$B$e\e(B")              ("("   "\e$B$g\e(B")
 102              ("T"   "\e$B%u\e(B") ("\""  "\e$B%v\e(B") ("Z"   "\e$B$C\e(B") ("W0"  "\e$B$n\e(B") ("W#"  "\e$B$n\e(B")
 103              ;; \e$B$=$NB>\e(B
 104              ("W["  "\e$B%t\e(B") ("W"   "\e$B$&\e(B")
 105              ;; \e$B5-9f\e(B
 106              ("<"   "\e$B!"\e(B") (">"   "\e$B!#\e(B") (":"   "\e$B!&\e(B") ("?"   "\e$B!)\e(B")
 107              ("{"   "\e$B!V\e(B") ("}"   "\e$B!W\e(B") ("["   "\e$B!+\e(B") ("]"   "\e$B!,\e(B") ("`"   "\e$B!<\e(B")
 108              ;; \e$B%7%U%H%-!<2!2<;~$N07$$\e(B
 109              ("G"   "\e$B$-\e(B") ("H"   "\e$B$/\e(B") ("B"   "\e$B$3\e(B")
 110              ("X"   "\e$B$5\e(B") ("D"   "\e$B$7\e(B") ("R"   "\e$B$9\e(B") ("P"   "\e$B$;\e(B") ("C"   "\e$B$=\e(B")
 111              ("U"   "\e$B$J\e(B") ("I"   "\e$B$K\e(B") ("K"   "\e$B$N\e(B")
 112              ("F"   "\e$B$O\e(B") ("V"   "\e$B$R\e(B")
 113              ("J"   "\e$B$^\e(B") ("N"   "\e$B$_\e(B") ("M"   "\e$B$b\e(B")
 114              ("O"   "\e$B$i\e(B") ("L"   "\e$B$j\e(B")
 115              ("Y"   "\e$B$s\e(B")
 116              ("!"   "\e$B!*\e(B") ("@"   "\e$B!w\e(B") ("+"   "\e$B!\\e(B") ("~"   "\e$B!A\e(B")
 117              ("_"   "\e$B$m\e(B");;; \e$B!V$m!W$,$"$k%-!<%\!<%IMQ\e(B
 118              ))
 119     (its-defrule (car normal-pair) (car (cdr normal-pair))))
 120
 121   ;; \e$BA43QF~NO\e(B
 122   (dolist (zenkaku-pair
 123            '(
 124              (" "  "\e$B!!\e(B") ("!"  "\e$B!*\e(B") ("\"" "\e$B!I\e(B") ("#"  "\e$B!t\e(B")  ; 20--24
 125              ("$"  "\e$B!p\e(B") ("%"  "\e$B!s\e(B") ("&"  "\e$B!u\e(B") ("'"  "\e$B!G\e(B")  ; 25--27
 126              ("("  "\e$B!J\e(B") (")"  "\e$B!K\e(B") ("*"  "\e$B!v\e(B") ("+"  "\e$B!\\e(B")  ; 28--2b
 127              (","  "\e$B!$\e(B") ("-"  "\e$B!]\e(B") ("."  "\e$B!%\e(B") ("/"  "\e$B!?\e(B")  ; 2c--2f
 128              ("0"  "\e$B#0\e(B") ("1"  "\e$B#1\e(B") ("2"  "\e$B#2\e(B") ("3"  "\e$B#3\e(B")  ; 30--33
 129              ("4"  "\e$B#4\e(B") ("5"  "\e$B#5\e(B") ("6"  "\e$B#6\e(B") ("7"  "\e$B#7\e(B")  ; 34--37
 130              ("8"  "\e$B#8\e(B") ("9"  "\e$B#9\e(B") (":"  "\e$B!'\e(B") (";"  "\e$B!(\e(B")  ; 38--3b
 131              ("<"  "\e$B!c\e(B") ("="  "\e$B!a\e(B") (">"  "\e$B!d\e(B") ("?"  "\e$B!)\e(B")  ; 3c--3f
 132              ("@"  "\e$B!w\e(B") ("A"  "\e$B#A\e(B") ("B"  "\e$B#B\e(B") ("C"  "\e$B#C\e(B")  ; 40--43
 133              ("D"  "\e$B#D\e(B") ("E"  "\e$B#E\e(B") ("F"  "\e$B#F\e(B") ("G"  "\e$B#G\e(B")  ; 44--47
 134              ("H"  "\e$B#H\e(B") ("I"  "\e$B#I\e(B") ("J"  "\e$B#J\e(B") ("K"  "\e$B#K\e(B")  ; 48--4b
 135              ("L"  "\e$B#L\e(B") ("M"  "\e$B#M\e(B") ("N"  "\e$B#N\e(B") ("O"  "\e$B#O\e(B")  ; 4c--4f
 136              ("P"  "\e$B#P\e(B") ("Q"  "\e$B#Q\e(B") ("R"  "\e$B#R\e(B") ("S"  "\e$B#S\e(B")  ; 50--53
 137              ("T"  "\e$B#T\e(B") ("U"  "\e$B#U\e(B") ("V"  "\e$B#V\e(B") ("W"  "\e$B#W\e(B")  ; 54--57
 138              ("X"  "\e$B#X\e(B") ("Y"  "\e$B#Y\e(B") ("Z"  "\e$B#Z\e(B") ("["  "\e$B!N\e(B")  ; 58--5a
 139              ("\\" "\e$B!@\e(B") ("]"  "\e$B!O\e(B") ("^"  "\e$B!0\e(B") ("_"  "\e$B!2\e(B")  ; 5b--5f
 140              ("`"  "\e$B!.\e(B") ("a"  "\e$B#a\e(B") ("b"  "\e$B#b\e(B") ("c"  "\e$B#c\e(B")  ; 60--63
 141              ("d"  "\e$B#d\e(B") ("e"  "\e$B#e\e(B") ("f"  "\e$B#f\e(B") ("g"  "\e$B#g\e(B")  ; 64--67
 142              ("h"  "\e$B#h\e(B") ("i"  "\e$B#i\e(B") ("j"  "\e$B#j\e(B") ("k"  "\e$B#k\e(B")  ; 68--6b
 143              ("l"  "\e$B#l\e(B") ("m"  "\e$B#m\e(B") ("n"  "\e$B#n\e(B") ("o"  "\e$B#o\e(B")  ; 6c--6f
 144              ("p"  "\e$B#p\e(B") ("q"  "\e$B#q\e(B") ("r"  "\e$B#r\e(B") ("s"  "\e$B#s\e(B")  ; 70--73
 145              ("t"  "\e$B#t\e(B") ("u"  "\e$B#u\e(B") ("v"  "\e$B#v\e(B") ("w"  "\e$B#w\e(B")  ; 74--77
 146              ("x"  "\e$B#x\e(B") ("y"  "\e$B#y\e(B") ("z"  "\e$B#z\e(B") ("{"  "\e$B!P\e(B")  ; 78--7b
 147              ("|"  "\e$B!C\e(B") ("}"  "\e$B!Q\e(B") ("~"  "\e$B!A\e(B")              ; 7c--7e
 148              ))
 149     (its-defrule (concat k-zenkaku-escape (car zenkaku-pair))
 150                  (car (cdr zenkaku-pair))))
 151
 152   ;; \e$BH>3QF~NO\e(B
 153   (dolist (character
 154            '( "1"  "2"  "3"  "4" "5"  "6"  "7"  "8"  "9"  "0"
 155               " "  "!"  "@"  "#"  "$"  "%"  "^"  "&"  "*"  "("  ")"
 156               "-"  "="  "`"  "\\" "|"  "_"  "+"  "~" "["  "]"  "{"  "}"
 157               ":"  ";"  "\"" "'"  "<"  ">"  "?"  "/"  ","  "."
 158               "a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n"
 159               "o" "p" "q" "r" "s" "t" "u" "v" "w" "x" "y" "z"
 160               "A" "B" "C" "D" "E" "F" "G" "H" "I" "J" "K" "L" "M" "N"
 161               "O" "P" "Q" "R" "S" "T" "U" "V" "W" "X" "Y" "Z"))
 162     (its-defrule (concat k-hankaku-escape character)  character))
 163
 164   ;;; proposal key bindings for JIS symbols
 165   ;;; 90.3.2  by jiro@math.keio.ac.jp (TANAKA Jiro)
 166   ;;; \e$B!V!o!W!"!V!1!W!"!V!2!W\e(B are added
 167   ;;; 94.2.4 by nori-d@is.aist-nara.ac.jp (DEMIZU Noritoshi)
 168   (dolist (symbols-pair
 169            '(
 170              ("1"  "\e$B!{\e(B") ("2"  "\e$B"&\e(B") ("3"  "\e$B"$\e(B") ("4"  "\e$B""\e(B") ("5"  "\e$B!~\e(B")
 171              ("6"  "\e$B!y\e(B") ("7"  "\e$B!}\e(B") ("8"  "\e$B!q\e(B") ("9"  "\e$B!i\e(B") ("0"  "\e$B!j\e(B")
 172              ("-"  "\e$B!A\e(B") ("="  "\e$B!b\e(B") ("\\" "\e$B!@\e(B") ("`"  "\e$B!-\e(B")
 173              ("!"  "\e$B!|\e(B") ("@"  "\e$B"'\e(B") ("#"  "\e$B"%\e(B") ("$"  "\e$B"#\e(B") ("%"  "\e$B"!\e(B")
 174              ("^"  "\e$B!z\e(B") ("&"  "\e$B!r\e(B") ("*"  "\e$B!_\e(B") ("("  "\e$B!Z\e(B") (")"  "\e$B![\e(B")
 175              ("_"  "\e$B!h\e(B") ("+"  "\e$B!^\e(B") ("|"  "\e$B!B\e(B") ("~"  "\e$B!/\e(B")
 176              ("q"  "\e$B!T\e(B") ("w"  "\e$B!U\e(B") ("r"  "\e$B!9\e(B") ("t"  "\e$B!:\e(B") ("y"  "\e$B!o\e(B")
 177              ("Q"  "\e$B!R\e(B") ("W"  "\e$B!S\e(B") ("R"  "\e$B!8\e(B") ("T"  "\e$B!x\e(B")
 178              ("p"  "\e$B")\e(B") ("["  "\e$B!X\e(B") ("]"  "\e$B!Y\e(B")
 179              ("P"  "\e$B",\e(B") ("{"  "\e$B!L\e(B") ("}"  "\e$B!M\e(B")
 180              ("s"  "\e$B!3\e(B") ("d"  "\e$B!5\e(B") ("f"  "\e$B!7\e(B") ("g"  "\e$B!>\e(B")
 181              ("S"  "\e$B!4\e(B") ("D"  "\e$B!6\e(B") ("F"  "\e$B"*\e(B") ("G"  "\e$B!=\e(B")
 182              ("h"  "\e$B"+\e(B") ("j"  "\e$B"-\e(B") ("k"  "\e$B",\e(B") ("l"  "\e$B"*\e(B")
 183                          ("J"  "\e$B!2\e(B") ("K"  "\e$B!1\e(B")
 184              (";"  "\e$B!+\e(B") (":"  "\e$B!,\e(B") ("\'" "\e$B!F\e(B") ("\"" "\e$B!H\e(B")
 185              ("x"  ":-") ("c"  "\e$B!;\e(B") ("v"  "\e$B"(\e(B") ("b"  "\e$B!k\e(B") ("n"  "\e$B!l\e(B")
 186              ("X" ":-)") ("C"  "\e$B!n\e(B") ("V"  "\e$B!`\e(B") ("B"  "\e$B"+\e(B") ("N"  "\e$B"-\e(B")
 187              ("m"  "\e$B!m\e(B") (","  "\e$B!E\e(B") ("."  "\e$B!D\e(B") ("/"  "\e$B!&\e(B")
 188              ("M"  "\e$B".\e(B") ("<"  "\e$B!e\e(B") (">"  "\e$B!f\e(B") ("?"  "\e$B!g\e(B")
 189              ))
 190     (its-defrule (concat k-symbols-escape (car symbols-pair))
 191                  (car (cdr symbols-pair))))
 192 )