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

   1 ;; Japanese Character Input Package for Egg
   2 ;; Coded by S.Tomura, Electrotechnical Lab. (tomura@etl.go.jp)
   3
   4 ;; This file is part of Egg on Mule (Multilingal Environment)
   5
   6 ;; Egg is distributed in the forms of patches to GNU
   7 ;; Emacs under the terms of the GNU EMACS GENERAL PUBLIC
   8 ;; LICENSE which is distributed along with GNU Emacs by the
   9 ;; Free Software Foundation.
  10
  11 ;; Egg is distributed in the hope that it will be useful,
  12 ;; but WITHOUT ANY WARRANTY; without even the implied
  13 ;; warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
  14 ;; PURPOSE.  See the GNU EMACS GENERAL PUBLIC LICENSE for
  15 ;; more details.
  16
  17 ;; You should have received a copy of the GNU EMACS GENERAL
  18 ;; PUBLIC LICENSE along with Nemacs; see the file COPYING.
  19 ;; If not, write to the Free Software Foundation, 675 Mass
  20 ;; Ave, Cambridge, MA 02139, USA.
  21
  22 ;;; 92.10.18 modified for Mule Ver.0.9.6 by K.Handa <handa@etl.go.jp>
  23 ;;;     Moved from egg.el
  24 ;;; 92.12.26 modified for Mule Ver.0.9.7 by T.Shingu <shingu@cpr.canon.co.jp>
  25 ;;;     JIS Hojo Kanji support.
  26
  27 (provide 'egg-jsymbol)
  28
  29 (defvar *ku1-alist* '(
  30          ( "\e$B!!\e(B" . "\e$B!!\e(B")
  31          ( "\e$B!"\e(B" . "\e$B!"\e(B")
  32          ( "\e$B!#\e(B" . "\e$B!#\e(B")
  33          ( "\e$B!$\e(B" . "\e$B!$\e(B")
  34          ( "\e$B!%\e(B" . "\e$B!%\e(B")
  35          ( "\e$B!&\e(B" . "\e$B!&\e(B")
  36          ( "\e$B!'\e(B" . "\e$B!'\e(B")
  37          ( "\e$B!(\e(B" . "\e$B!(\e(B")
  38          ( "\e$B!)\e(B" . "\e$B!)\e(B")
  39          ( "\e$B!*\e(B" . "\e$B!*\e(B")
  40          ( "\e$B!+\e(B" . "\e$B!+\e(B")
  41          ( "\e$B!,\e(B" . "\e$B!,\e(B")
  42          ( "\e$B!-\e(B" . "\e$B!-\e(B")
  43          ( "\e$B!.\e(B" . "\e$B!.\e(B")
  44          ( "\e$B!/\e(B" . "\e$B!/\e(B")
  45          ( "\e$B!0\e(B" . "\e$B!0\e(B")
  46          ( "\e$B!1\e(B" . "\e$B!1\e(B")
  47          ( "\e$B!2\e(B" . "\e$B!2\e(B")
  48          ( "\e$B!3\e(B" . "\e$B!3\e(B")
  49          ( "\e$B!4\e(B" . "\e$B!4\e(B")
  50          ( "\e$B!5\e(B" . "\e$B!5\e(B")
  51          ( "\e$B!6\e(B" . "\e$B!6\e(B")
  52          ( "\e$B!7\e(B" . "\e$B!7\e(B")
  53          ( "\e$B!8\e(B" . "\e$B!8\e(B")
  54          ( "\e$B!9\e(B" . "\e$B!9\e(B")
  55          ( "\e$B!:\e(B" . "\e$B!:\e(B")
  56          ( "\e$B!;\e(B" . "\e$B!;\e(B")
  57          ( "\e$B!<\e(B" . "\e$B!<\e(B")
  58          ( "\e$B!=\e(B" . "\e$B!=\e(B")
  59          ( "\e$B!>\e(B" . "\e$B!>\e(B")
  60          ( "\e$B!?\e(B" . "\e$B!?\e(B")
  61          ( "\e$B!@\e(B" . "\e$B!@\e(B")
  62          ( "\e$B!A\e(B" . "\e$B!A\e(B")
  63          ( "\e$B!B\e(B" . "\e$B!B\e(B")
  64          ( "\e$B!C\e(B" . "\e$B!C\e(B")
  65          ( "\e$B!D\e(B" . "\e$B!D\e(B")
  66          ( "\e$B!E\e(B" . "\e$B!E\e(B")
  67          ( "\e$B!F\e(B" . "\e$B!F\e(B")
  68          ( "\e$B!G\e(B" . "\e$B!G\e(B")
  69          ( "\e$B!H\e(B" . "\e$B!H\e(B")
  70          ( "\e$B!I\e(B" . "\e$B!I\e(B")
  71          ( "\e$B!J\e(B" . "\e$B!J\e(B")
  72          ( "\e$B!K\e(B" . "\e$B!K\e(B")
  73          ( "\e$B!L\e(B" . "\e$B!L\e(B")
  74          ( "\e$B!M\e(B" . "\e$B!M\e(B")
  75          ( "\e$B!N\e(B" . "\e$B!N\e(B")
  76          ( "\e$B!O\e(B" . "\e$B!O\e(B")
  77          ( "\e$B!P\e(B" . "\e$B!P\e(B")
  78          ( "\e$B!Q\e(B" . "\e$B!Q\e(B")
  79          ( "\e$B!R\e(B" . "\e$B!R\e(B")
  80          ( "\e$B!S\e(B" . "\e$B!S\e(B")
  81          ( "\e$B!T\e(B" . "\e$B!T\e(B")
  82          ( "\e$B!U\e(B" . "\e$B!U\e(B")
  83          ( "\e$B!V\e(B" . "\e$B!V\e(B")
  84          ( "\e$B!W\e(B" . "\e$B!W\e(B")
  85          ( "\e$B!X\e(B" . "\e$B!X\e(B")
  86          ( "\e$B!Y\e(B" . "\e$B!Y\e(B")
  87          ( "\e$B!Z\e(B" . "\e$B!Z\e(B")
  88          ( "\e$B![\e(B" . "\e$B![\e(B")
  89          ( "\e$B!\\e(B" . "\e$B!\\e(B")
  90          ( "\e$B!]\e(B" . "\e$B!]\e(B")
  91          ( "\e$B!^\e(B" . "\e$B!^\e(B")
  92          ( "\e$B!_\e(B" . "\e$B!_\e(B")
  93          ( "\e$B!`\e(B" . "\e$B!`\e(B")
  94          ( "\e$B!a\e(B" . "\e$B!a\e(B")
  95          ( "\e$B!b\e(B" . "\e$B!b\e(B")
  96          ( "\e$B!c\e(B" . "\e$B!c\e(B")
  97          ( "\e$B!d\e(B" . "\e$B!d\e(B")
  98          ( "\e$B!e\e(B" . "\e$B!e\e(B")
  99          ( "\e$B!f\e(B" . "\e$B!f\e(B")
 100          ( "\e$B!g\e(B" . "\e$B!g\e(B")
 101          ( "\e$B!h\e(B" . "\e$B!h\e(B")
 102          ( "\e$B!i\e(B" . "\e$B!i\e(B")
 103          ( "\e$B!j\e(B" . "\e$B!j\e(B")
 104          ( "\e$B!k\e(B" . "\e$B!k\e(B")
 105          ( "\e$B!l\e(B" . "\e$B!l\e(B")
 106          ( "\e$B!m\e(B" . "\e$B!m\e(B")
 107          ( "\e$B!n\e(B" . "\e$B!n\e(B")
 108          ( "\e$B!o\e(B" . "\e$B!o\e(B")
 109          ( "\e$B!p\e(B" . "\e$B!p\e(B")
 110          ( "\e$B!q\e(B" . "\e$B!q\e(B")
 111          ( "\e$B!r\e(B" . "\e$B!r\e(B")
 112          ( "\e$B!s\e(B" . "\e$B!s\e(B")
 113          ( "\e$B!t\e(B" . "\e$B!t\e(B")
 114          ( "\e$B!u\e(B" . "\e$B!u\e(B")
 115          ( "\e$B!v\e(B" . "\e$B!v\e(B")
 116          ( "\e$B!w\e(B" . "\e$B!w\e(B")
 117          ( "\e$B!x\e(B" . "\e$B!x\e(B")
 118          ( "\e$B!y\e(B" . "\e$B!y\e(B")
 119          ( "\e$B!z\e(B" . "\e$B!z\e(B")
 120          ( "\e$B!{\e(B" . "\e$B!{\e(B")
 121          ( "\e$B!|\e(B" . "\e$B!|\e(B")
 122          ( "\e$B!}\e(B" . "\e$B!}\e(B")
 123          ( "\e$B!~\e(B" . "\e$B!~\e(B")
 124 ))
 125 (defvar *ku2-alist* '(
 126          ( "\e$B"!\e(B" . "\e$B"!\e(B")
 127          ( "\e$B""\e(B" . "\e$B""\e(B")
 128          ( "\e$B"#\e(B" . "\e$B"#\e(B")
 129          ( "\e$B"$\e(B" . "\e$B"$\e(B")
 130          ( "\e$B"%\e(B" . "\e$B"%\e(B")
 131          ( "\e$B"&\e(B" . "\e$B"&\e(B")
 132          ( "\e$B"'\e(B" . "\e$B"'\e(B")
 133          ( "\e$B"(\e(B" . "\e$B"(\e(B")
 134          ( "\e$B")\e(B" . "\e$B")\e(B")
 135          ( "\e$B"*\e(B" . "\e$B"*\e(B")
 136          ( "\e$B"+\e(B" . "\e$B"+\e(B")
 137          ( "\e$B",\e(B" . "\e$B",\e(B")
 138          ( "\e$B"-\e(B" . "\e$B"-\e(B")
 139          ( "\e$B".\e(B" . "\e$B".\e(B")
 140 ;        ( "\e$B"/\e(B" . "\e$B"/\e(B")
 141 ;        ( "\e$B"0\e(B" . "\e$B"0\e(B")
 142 ;        ( "\e$B"1\e(B" . "\e$B"1\e(B")
 143 ;        ( "\e$B"2\e(B" . "\e$B"2\e(B")
 144 ;        ( "\e$B"3\e(B" . "\e$B"3\e(B")
 145 ;        ( "\e$B"4\e(B" . "\e$B"4\e(B")
 146 ;        ( "\e$B"5\e(B" . "\e$B"5\e(B")
 147 ;        ( "\e$B"6\e(B" . "\e$B"6\e(B")
 148 ;        ( "\e$B"7\e(B" . "\e$B"7\e(B")
 149 ;        ( "\e$B"8\e(B" . "\e$B"8\e(B")
 150 ;        ( "\e$B"9\e(B" . "\e$B"9\e(B")
 151          ( "\e$B":\e(B" . "\e$B":\e(B")
 152          ( "\e$B";\e(B" . "\e$B";\e(B")
 153          ( "\e$B"<\e(B" . "\e$B"<\e(B")
 154          ( "\e$B"=\e(B" . "\e$B"=\e(B")
 155          ( "\e$B">\e(B" . "\e$B">\e(B")
 156          ( "\e$B"?\e(B" . "\e$B"?\e(B")
 157          ( "\e$B"@\e(B" . "\e$B"@\e(B")
 158          ( "\e$B"A\e(B" . "\e$B"A\e(B")
 159 ;        ( "\e$B"B\e(B" . "\e$B"B\e(B")
 160 ;        ( "\e$B"C\e(B" . "\e$B"C\e(B")
 161 ;        ( "\e$B"D\e(B" . "\e$B"D\e(B")
 162 ;        ( "\e$B"E\e(B" . "\e$B"E\e(B")
 163 ;        ( "\e$B"F\e(B" . "\e$B"F\e(B")
 164 ;        ( "\e$B"G\e(B" . "\e$B"G\e(B")
 165 ;        ( "\e$B"H\e(B" . "\e$B"H\e(B")
 166 ;        ( "\e$B"I\e(B" . "\e$B"I\e(B")
 167          ( "\e$B"J\e(B" . "\e$B"J\e(B")
 168          ( "\e$B"K\e(B" . "\e$B"K\e(B")
 169          ( "\e$B"L\e(B" . "\e$B"L\e(B")
 170          ( "\e$B"M\e(B" . "\e$B"M\e(B")
 171          ( "\e$B"N\e(B" . "\e$B"N\e(B")
 172          ( "\e$B"O\e(B" . "\e$B"O\e(B")
 173          ( "\e$B"P\e(B" . "\e$B"P\e(B")
 174 ;        ( "\e$B"Q\e(B" . "\e$B"Q\e(B")
 175 ;        ( "\e$B"R\e(B" . "\e$B"R\e(B")
 176 ;        ( "\e$B"S\e(B" . "\e$B"S\e(B")
 177 ;        ( "\e$B"T\e(B" . "\e$B"T\e(B")
 178 ;        ( "\e$B"U\e(B" . "\e$B"U\e(B")
 179 ;        ( "\e$B"V\e(B" . "\e$B"V\e(B")
 180 ;        ( "\e$B"W\e(B" . "\e$B"W\e(B")
 181 ;        ( "\e$B"X\e(B" . "\e$B"X\e(B")
 182 ;        ( "\e$B"Y\e(B" . "\e$B"Y\e(B")
 183 ;        ( "\e$B"Z\e(B" . "\e$B"Z\e(B")
 184 ;        ( "\e$B"[\e(B" . "\e$B"[\e(B")
 185          ( "\e$B"\\e(B" . "\e$B"\\e(B")
 186          ( "\e$B"]\e(B" . "\e$B"]\e(B")
 187          ( "\e$B"^\e(B" . "\e$B"^\e(B")
 188          ( "\e$B"_\e(B" . "\e$B"_\e(B")
 189          ( "\e$B"`\e(B" . "\e$B"`\e(B")
 190          ( "\e$B"a\e(B" . "\e$B"a\e(B")
 191          ( "\e$B"b\e(B" . "\e$B"b\e(B")
 192          ( "\e$B"c\e(B" . "\e$B"c\e(B")
 193          ( "\e$B"d\e(B" . "\e$B"d\e(B")
 194          ( "\e$B"e\e(B" . "\e$B"e\e(B")
 195          ( "\e$B"f\e(B" . "\e$B"f\e(B")
 196          ( "\e$B"g\e(B" . "\e$B"g\e(B")
 197          ( "\e$B"h\e(B" . "\e$B"h\e(B")
 198          ( "\e$B"i\e(B" . "\e$B"i\e(B")
 199          ( "\e$B"j\e(B" . "\e$B"j\e(B")
 200 ;        ( "\e$B"k\e(B" . "\e$B"k\e(B")
 201 ;        ( "\e$B"l\e(B" . "\e$B"l\e(B")
 202 ;        ( "\e$B"m\e(B" . "\e$B"m\e(B")
 203 ;        ( "\e$B"n\e(B" . "\e$B"n\e(B")
 204 ;        ( "\e$B"o\e(B" . "\e$B"o\e(B")
 205 ;        ( "\e$B"p\e(B" . "\e$B"p\e(B")
 206 ;        ( "\e$B"q\e(B" . "\e$B"q\e(B")
 207          ( "\e$B"r\e(B" . "\e$B"r\e(B")
 208          ( "\e$B"s\e(B" . "\e$B"s\e(B")
 209          ( "\e$B"t\e(B" . "\e$B"t\e(B")
 210          ( "\e$B"u\e(B" . "\e$B"u\e(B")
 211          ( "\e$B"v\e(B" . "\e$B"v\e(B")
 212          ( "\e$B"w\e(B" . "\e$B"w\e(B")
 213          ( "\e$B"x\e(B" . "\e$B"x\e(B")
 214          ( "\e$B"y\e(B" . "\e$B"y\e(B")
 215 ;        ( "\e$B"z\e(B" . "\e$B"z\e(B")
 216 ;        ( "\e$B"{\e(B" . "\e$B"{\e(B")
 217 ;        ( "\e$B"|\e(B" . "\e$B"|\e(B")
 218 ;        ( "\e$B"}\e(B" . "\e$B"}\e(B")
 219          ( "\e$B"~\e(B" . "\e$B"~\e(B")
 220 ))
 221
 222 (defvar egg:*symbol-alist* (append *ku1-alist* *ku2-alist*))
 223
 224 (defvar *ku3-alist* '(
 225 ;I       ( "\e$B#!\e(B" . "\e$B#!\e(B")
 226 ;II      ( "\e$B#"\e(B" . "\e$B#"\e(B")
 227 ;III     ( "\e$B##\e(B" . "\e$B##\e(B")
 228 ;IV      ( "\e$B#$\e(B" . "\e$B#$\e(B")
 229 ;V       ( "\e$B#%\e(B" . "\e$B#%\e(B")
 230 ;VI      ( "\e$B#&\e(B" . "\e$B#&\e(B")
 231 ;VII     ( "\e$B#'\e(B" . "\e$B#'\e(B")
 232 ;VIII    ( "\e$B#(\e(B" . "\e$B#(\e(B")
 233 ;IX      ( "\e$B#)\e(B" . "\e$B#)\e(B")
 234 ;X       ( "\e$B#*\e(B" . "\e$B#*\e(B")
 235 ;XI      ( "\e$B#+\e(B" . "\e$B#+\e(B")
 236 ;XII     ( "\e$B#,\e(B" . "\e$B#,\e(B")
 237 ;XIII    ( "\e$B#-\e(B" . "\e$B#-\e(B")
 238 ;XIV     ( "\e$B#.\e(B" . "\e$B#.\e(B")
 239 ;XV      ( "\e$B#/\e(B" . "\e$B#/\e(B")
 240          ( "\e$B#0\e(B" . "\e$B#0\e(B")
 241          ( "\e$B#1\e(B" . "\e$B#1\e(B")
 242          ( "\e$B#2\e(B" . "\e$B#2\e(B")
 243          ( "\e$B#3\e(B" . "\e$B#3\e(B")
 244          ( "\e$B#4\e(B" . "\e$B#4\e(B")
 245          ( "\e$B#5\e(B" . "\e$B#5\e(B")
 246          ( "\e$B#6\e(B" . "\e$B#6\e(B")
 247          ( "\e$B#7\e(B" . "\e$B#7\e(B")
 248          ( "\e$B#8\e(B" . "\e$B#8\e(B")
 249          ( "\e$B#9\e(B" . "\e$B#9\e(B")
 250 ;1/2     ( "\e$B#:\e(B" . "\e$B#:\e(B")
 251 ;1/3     ( "\e$B#;\e(B" . "\e$B#;\e(B")
 252 ;1/4     ( "\e$B#<\e(B" . "\e$B#<\e(B")
 253 ;2/3     ( "\e$B#=\e(B" . "\e$B#=\e(B")
 254 ;3/4     ( "\e$B#>\e(B" . "\e$B#>\e(B")
 255 ;        ( "\e$B#?\e(B" . "\e$B#?\e(B")
 256 ;        ( "\e$B#@\e(B" . "\e$B#@\e(B")
 257          ( "\e$B#A\e(B" . "\e$B#A\e(B")
 258          ( "\e$B#B\e(B" . "\e$B#B\e(B")
 259          ( "\e$B#C\e(B" . "\e$B#C\e(B")
 260          ( "\e$B#D\e(B" . "\e$B#D\e(B")
 261          ( "\e$B#E\e(B" . "\e$B#E\e(B")
 262          ( "\e$B#F\e(B" . "\e$B#F\e(B")
 263          ( "\e$B#G\e(B" . "\e$B#G\e(B")
 264          ( "\e$B#H\e(B" . "\e$B#H\e(B")
 265          ( "\e$B#I\e(B" . "\e$B#I\e(B")
 266          ( "\e$B#J\e(B" . "\e$B#J\e(B")
 267          ( "\e$B#K\e(B" . "\e$B#K\e(B")
 268          ( "\e$B#L\e(B" . "\e$B#L\e(B")
 269          ( "\e$B#M\e(B" . "\e$B#M\e(B")
 270          ( "\e$B#N\e(B" . "\e$B#N\e(B")
 271          ( "\e$B#O\e(B" . "\e$B#O\e(B")
 272          ( "\e$B#P\e(B" . "\e$B#P\e(B")
 273          ( "\e$B#Q\e(B" . "\e$B#Q\e(B")
 274          ( "\e$B#R\e(B" . "\e$B#R\e(B")
 275          ( "\e$B#S\e(B" . "\e$B#S\e(B")
 276          ( "\e$B#T\e(B" . "\e$B#T\e(B")
 277          ( "\e$B#U\e(B" . "\e$B#U\e(B")
 278          ( "\e$B#V\e(B" . "\e$B#V\e(B")
 279          ( "\e$B#W\e(B" . "\e$B#W\e(B")
 280          ( "\e$B#X\e(B" . "\e$B#X\e(B")
 281          ( "\e$B#Y\e(B" . "\e$B#Y\e(B")
 282          ( "\e$B#Z\e(B" . "\e$B#Z\e(B")
 283 ;        ( "\e$B#[\e(B" . "\e$B#[\e(B")
 284 ;        ( "\e$B#\\e(B" . "\e$B#\\e(B")
 285 ;        ( "\e$B#]\e(B" . "\e$B#]\e(B")
 286 ;        ( "\e$B#^\e(B" . "\e$B#^\e(B")
 287 ;        ( "\e$B#_\e(B" . "\e$B#_\e(B")
 288 ;        ( "\e$B#`\e(B" . "\e$B#`\e(B")
 289          ( "\e$B#a\e(B" . "\e$B#a\e(B")
 290          ( "\e$B#b\e(B" . "\e$B#b\e(B")
 291          ( "\e$B#c\e(B" . "\e$B#c\e(B")
 292          ( "\e$B#d\e(B" . "\e$B#d\e(B")
 293          ( "\e$B#e\e(B" . "\e$B#e\e(B")
 294          ( "\e$B#f\e(B" . "\e$B#f\e(B")
 295          ( "\e$B#g\e(B" . "\e$B#g\e(B")
 296          ( "\e$B#h\e(B" . "\e$B#h\e(B")
 297          ( "\e$B#i\e(B" . "\e$B#i\e(B")
 298          ( "\e$B#j\e(B" . "\e$B#j\e(B")
 299          ( "\e$B#k\e(B" . "\e$B#k\e(B")
 300          ( "\e$B#l\e(B" . "\e$B#l\e(B")
 301          ( "\e$B#m\e(B" . "\e$B#m\e(B")
 302          ( "\e$B#n\e(B" . "\e$B#n\e(B")
 303          ( "\e$B#o\e(B" . "\e$B#o\e(B")
 304          ( "\e$B#p\e(B" . "\e$B#p\e(B")
 305          ( "\e$B#q\e(B" . "\e$B#q\e(B")
 306          ( "\e$B#r\e(B" . "\e$B#r\e(B")
 307          ( "\e$B#s\e(B" . "\e$B#s\e(B")
 308          ( "\e$B#t\e(B" . "\e$B#t\e(B")
 309          ( "\e$B#u\e(B" . "\e$B#u\e(B")
 310          ( "\e$B#v\e(B" . "\e$B#v\e(B")
 311          ( "\e$B#w\e(B" . "\e$B#w\e(B")
 312          ( "\e$B#x\e(B" . "\e$B#x\e(B")
 313          ( "\e$B#y\e(B" . "\e$B#y\e(B")
 314          ( "\e$B#z\e(B" . "\e$B#z\e(B")
 315 ;        ( "\e$B#{\e(B" . "\e$B#{\e(B")
 316 ;        ( "\e$B#|\e(B" . "\e$B#|\e(B")
 317 ;        ( "\e$B#}\e(B" . "\e$B#}\e(B")
 318 ;        ( "\e$B#~\e(B" . "\e$B#~\e(B")
 319 ))
 320
 321 (defvar egg:*alphanumeric-alist* *ku3-alist*)
 322
 323 (defvar *ku4-alist* '(
 324
 325          ( "\e$B$!\e(B" . "\e$B$!\e(B")
 326          ( "\e$B$"\e(B" . "\e$B$"\e(B")
 327          ( "\e$B$#\e(B" . "\e$B$#\e(B")
 328          ( "\e$B$$\e(B" . "\e$B$$\e(B")
 329          ( "\e$B$%\e(B" . "\e$B$%\e(B")
 330          ( "\e$B$&\e(B" . "\e$B$&\e(B")
 331          ( "\e$B$'\e(B" . "\e$B$'\e(B")
 332          ( "\e$B$(\e(B" . "\e$B$(\e(B")
 333          ( "\e$B$)\e(B" . "\e$B$)\e(B")
 334          ( "\e$B$*\e(B" . "\e$B$*\e(B")
 335          ( "\e$B$+\e(B" . "\e$B$+\e(B")
 336          ( "\e$B$,\e(B" . "\e$B$,\e(B")
 337          ( "\e$B$-\e(B" . "\e$B$-\e(B")
 338          ( "\e$B$.\e(B" . "\e$B$.\e(B")
 339          ( "\e$B$/\e(B" . "\e$B$/\e(B")
 340          ( "\e$B$0\e(B" . "\e$B$0\e(B")
 341          ( "\e$B$1\e(B" . "\e$B$1\e(B")
 342          ( "\e$B$2\e(B" . "\e$B$2\e(B")
 343          ( "\e$B$3\e(B" . "\e$B$3\e(B")
 344          ( "\e$B$4\e(B" . "\e$B$4\e(B")
 345          ( "\e$B$5\e(B" . "\e$B$5\e(B")
 346          ( "\e$B$6\e(B" . "\e$B$6\e(B")
 347          ( "\e$B$7\e(B" . "\e$B$7\e(B")
 348          ( "\e$B$8\e(B" . "\e$B$8\e(B")
 349          ( "\e$B$9\e(B" . "\e$B$9\e(B")
 350          ( "\e$B$:\e(B" . "\e$B$:\e(B")
 351          ( "\e$B$;\e(B" . "\e$B$;\e(B")
 352          ( "\e$B$<\e(B" . "\e$B$<\e(B")
 353          ( "\e$B$=\e(B" . "\e$B$=\e(B")
 354          ( "\e$B$>\e(B" . "\e$B$>\e(B")
 355          ( "\e$B$?\e(B" . "\e$B$?\e(B")
 356          ( "\e$B$@\e(B" . "\e$B$@\e(B")
 357          ( "\e$B$A\e(B" . "\e$B$A\e(B")
 358          ( "\e$B$B\e(B" . "\e$B$B\e(B")
 359          ( "\e$B$C\e(B" . "\e$B$C\e(B")
 360          ( "\e$B$D\e(B" . "\e$B$D\e(B")
 361          ( "\e$B$E\e(B" . "\e$B$E\e(B")
 362          ( "\e$B$F\e(B" . "\e$B$F\e(B")
 363          ( "\e$B$G\e(B" . "\e$B$G\e(B")
 364          ( "\e$B$H\e(B" . "\e$B$H\e(B")
 365          ( "\e$B$I\e(B" . "\e$B$I\e(B")
 366          ( "\e$B$J\e(B" . "\e$B$J\e(B")
 367          ( "\e$B$K\e(B" . "\e$B$K\e(B")
 368          ( "\e$B$L\e(B" . "\e$B$L\e(B")
 369          ( "\e$B$M\e(B" . "\e$B$M\e(B")
 370          ( "\e$B$N\e(B" . "\e$B$N\e(B")
 371          ( "\e$B$O\e(B" . "\e$B$O\e(B")
 372          ( "\e$B$P\e(B" . "\e$B$P\e(B")
 373          ( "\e$B$Q\e(B" . "\e$B$Q\e(B")
 374          ( "\e$B$R\e(B" . "\e$B$R\e(B")
 375          ( "\e$B$S\e(B" . "\e$B$S\e(B")
 376          ( "\e$B$T\e(B" . "\e$B$T\e(B")
 377          ( "\e$B$U\e(B" . "\e$B$U\e(B")
 378          ( "\e$B$V\e(B" . "\e$B$V\e(B")
 379          ( "\e$B$W\e(B" . "\e$B$W\e(B")
 380          ( "\e$B$X\e(B" . "\e$B$X\e(B")
 381          ( "\e$B$Y\e(B" . "\e$B$Y\e(B")
 382          ( "\e$B$Z\e(B" . "\e$B$Z\e(B")
 383          ( "\e$B$[\e(B" . "\e$B$[\e(B")
 384          ( "\e$B$\\e(B" . "\e$B$\\e(B")
 385          ( "\e$B$]\e(B" . "\e$B$]\e(B")
 386          ( "\e$B$^\e(B" . "\e$B$^\e(B")
 387          ( "\e$B$_\e(B" . "\e$B$_\e(B")
 388          ( "\e$B$`\e(B" . "\e$B$`\e(B")
 389          ( "\e$B$a\e(B" . "\e$B$a\e(B")
 390          ( "\e$B$b\e(B" . "\e$B$b\e(B")
 391          ( "\e$B$c\e(B" . "\e$B$c\e(B")
 392          ( "\e$B$d\e(B" . "\e$B$d\e(B")
 393          ( "\e$B$e\e(B" . "\e$B$e\e(B")
 394          ( "\e$B$f\e(B" . "\e$B$f\e(B")
 395          ( "\e$B$g\e(B" . "\e$B$g\e(B")
 396          ( "\e$B$h\e(B" . "\e$B$h\e(B")
 397          ( "\e$B$i\e(B" . "\e$B$i\e(B")
 398          ( "\e$B$j\e(B" . "\e$B$j\e(B")
 399          ( "\e$B$k\e(B" . "\e$B$k\e(B")
 400          ( "\e$B$l\e(B" . "\e$B$l\e(B")
 401          ( "\e$B$m\e(B" . "\e$B$m\e(B")
 402          ( "\e$B$n\e(B" . "\e$B$n\e(B")
 403          ( "\e$B$o\e(B" . "\e$B$o\e(B")
 404          ( "\e$B$p\e(B" . "\e$B$p\e(B")
 405          ( "\e$B$q\e(B" . "\e$B$q\e(B")
 406          ( "\e$B$r\e(B" . "\e$B$r\e(B")
 407          ( "\e$B$s\e(B" . "\e$B$s\e(B")
 408 ;        ( "\e$B$t\e(B" . "\e$B$t\e(B")
 409 ;        ( "\e$B$u\e(B" . "\e$B$u\e(B")
 410 ;        ( "\e$B$v\e(B" . "\e$B$v\e(B")
 411 ;        ( "\e$B$w\e(B" . "\e$B$w\e(B")
 412 ;        ( "\e$B$x\e(B" . "\e$B$x\e(B")
 413 ;        ( "\e$B$y\e(B" . "\e$B$y\e(B")
 414 ;        ( "\e$B$z\e(B" . "\e$B$z\e(B")
 415 ;        ( "\e$B${\e(B" . "\e$B${\e(B")
 416 ;        ( "\e$B$|\e(B" . "\e$B$|\e(B")
 417 ;        ( "\e$B$}\e(B" . "\e$B$}\e(B")
 418 ;        ( "\e$B$~\e(B" . "\e$B$~\e(B")
 419 ))
 420
 421 (defvar egg:*hiragana-alist* *ku4-alist*)
 422
 423 (defvar *ku5-alist* '(
 424          ( "\e$B%!\e(B" . "\e$B%!\e(B")
 425          ( "\e$B%"\e(B" . "\e$B%"\e(B")
 426          ( "\e$B%#\e(B" . "\e$B%#\e(B")
 427          ( "\e$B%$\e(B" . "\e$B%$\e(B")
 428          ( "\e$B%%\e(B" . "\e$B%%\e(B")
 429          ( "\e$B%&\e(B" . "\e$B%&\e(B")
 430          ( "\e$B%'\e(B" . "\e$B%'\e(B")
 431          ( "\e$B%(\e(B" . "\e$B%(\e(B")
 432          ( "\e$B%)\e(B" . "\e$B%)\e(B")
 433          ( "\e$B%*\e(B" . "\e$B%*\e(B")
 434          ( "\e$B%+\e(B" . "\e$B%+\e(B")
 435          ( "\e$B%,\e(B" . "\e$B%,\e(B")
 436          ( "\e$B%-\e(B" . "\e$B%-\e(B")
 437          ( "\e$B%.\e(B" . "\e$B%.\e(B")
 438          ( "\e$B%/\e(B" . "\e$B%/\e(B")
 439          ( "\e$B%0\e(B" . "\e$B%0\e(B")
 440          ( "\e$B%1\e(B" . "\e$B%1\e(B")
 441          ( "\e$B%2\e(B" . "\e$B%2\e(B")
 442          ( "\e$B%3\e(B" . "\e$B%3\e(B")
 443          ( "\e$B%4\e(B" . "\e$B%4\e(B")
 444          ( "\e$B%5\e(B" . "\e$B%5\e(B")
 445          ( "\e$B%6\e(B" . "\e$B%6\e(B")
 446          ( "\e$B%7\e(B" . "\e$B%7\e(B")
 447          ( "\e$B%8\e(B" . "\e$B%8\e(B")
 448          ( "\e$B%9\e(B" . "\e$B%9\e(B")
 449          ( "\e$B%:\e(B" . "\e$B%:\e(B")
 450          ( "\e$B%;\e(B" . "\e$B%;\e(B")
 451          ( "\e$B%<\e(B" . "\e$B%<\e(B")
 452          ( "\e$B%=\e(B" . "\e$B%=\e(B")
 453          ( "\e$B%>\e(B" . "\e$B%>\e(B")
 454          ( "\e$B%?\e(B" . "\e$B%?\e(B")
 455          ( "\e$B%@\e(B" . "\e$B%@\e(B")
 456          ( "\e$B%A\e(B" . "\e$B%A\e(B")
 457          ( "\e$B%B\e(B" . "\e$B%B\e(B")
 458          ( "\e$B%C\e(B" . "\e$B%C\e(B")
 459          ( "\e$B%D\e(B" . "\e$B%D\e(B")
 460          ( "\e$B%E\e(B" . "\e$B%E\e(B")
 461          ( "\e$B%F\e(B" . "\e$B%F\e(B")
 462          ( "\e$B%G\e(B" . "\e$B%G\e(B")
 463          ( "\e$B%H\e(B" . "\e$B%H\e(B")
 464          ( "\e$B%I\e(B" . "\e$B%I\e(B")
 465          ( "\e$B%J\e(B" . "\e$B%J\e(B")
 466          ( "\e$B%K\e(B" . "\e$B%K\e(B")
 467          ( "\e$B%L\e(B" . "\e$B%L\e(B")
 468          ( "\e$B%M\e(B" . "\e$B%M\e(B")
 469          ( "\e$B%N\e(B" . "\e$B%N\e(B")
 470          ( "\e$B%O\e(B" . "\e$B%O\e(B")
 471          ( "\e$B%P\e(B" . "\e$B%P\e(B")
 472          ( "\e$B%Q\e(B" . "\e$B%Q\e(B")
 473          ( "\e$B%R\e(B" . "\e$B%R\e(B")
 474          ( "\e$B%S\e(B" . "\e$B%S\e(B")
 475          ( "\e$B%T\e(B" . "\e$B%T\e(B")
 476          ( "\e$B%U\e(B" . "\e$B%U\e(B")
 477          ( "\e$B%V\e(B" . "\e$B%V\e(B")
 478          ( "\e$B%W\e(B" . "\e$B%W\e(B")
 479          ( "\e$B%X\e(B" . "\e$B%X\e(B")
 480          ( "\e$B%Y\e(B" . "\e$B%Y\e(B")
 481          ( "\e$B%Z\e(B" . "\e$B%Z\e(B")
 482          ( "\e$B%[\e(B" . "\e$B%[\e(B")
 483          ( "\e$B%\\e(B" . "\e$B%\\e(B")
 484          ( "\e$B%]\e(B" . "\e$B%]\e(B")
 485          ( "\e$B%^\e(B" . "\e$B%^\e(B")
 486          ( "\e$B%_\e(B" . "\e$B%_\e(B")
 487          ( "\e$B%`\e(B" . "\e$B%`\e(B")
 488          ( "\e$B%a\e(B" . "\e$B%a\e(B")
 489          ( "\e$B%b\e(B" . "\e$B%b\e(B")
 490          ( "\e$B%c\e(B" . "\e$B%c\e(B")
 491          ( "\e$B%d\e(B" . "\e$B%d\e(B")
 492          ( "\e$B%e\e(B" . "\e$B%e\e(B")
 493          ( "\e$B%f\e(B" . "\e$B%f\e(B")
 494          ( "\e$B%g\e(B" . "\e$B%g\e(B")
 495          ( "\e$B%h\e(B" . "\e$B%h\e(B")
 496          ( "\e$B%i\e(B" . "\e$B%i\e(B")
 497          ( "\e$B%j\e(B" . "\e$B%j\e(B")
 498          ( "\e$B%k\e(B" . "\e$B%k\e(B")
 499          ( "\e$B%l\e(B" . "\e$B%l\e(B")
 500          ( "\e$B%m\e(B" . "\e$B%m\e(B")
 501          ( "\e$B%n\e(B" . "\e$B%n\e(B")
 502          ( "\e$B%o\e(B" . "\e$B%o\e(B")
 503          ( "\e$B%p\e(B" . "\e$B%p\e(B")
 504          ( "\e$B%q\e(B" . "\e$B%q\e(B")
 505          ( "\e$B%r\e(B" . "\e$B%r\e(B")
 506          ( "\e$B%s\e(B" . "\e$B%s\e(B")
 507          ( "\e$B%t\e(B" . "\e$B%t\e(B")
 508          ( "\e$B%u\e(B" . "\e$B%u\e(B")
 509          ( "\e$B%v\e(B" . "\e$B%v\e(B")
 510 ;        ( "\e$B%w\e(B" . "\e$B%w\e(B")
 511 ;        ( "\e$B%x\e(B" . "\e$B%x\e(B")
 512 ;        ( "\e$B%y\e(B" . "\e$B%y\e(B")
 513 ;        ( "\e$B%z\e(B" . "\e$B%z\e(B")
 514 ;        ( "\e$B%{\e(B" . "\e$B%{\e(B")
 515 ;        ( "\e$B%|\e(B" . "\e$B%|\e(B")
 516 ;        ( "\e$B%}\e(B" . "\e$B%}\e(B")
 517 ;        ( "\e$B%~\e(B" . "\e$B%~\e(B")
 518 ))
 519
 520 (defvar egg:*katakana-alist* *ku5-alist*)
 521
 522 (defvar *ku6-alist* '(
 523          ( "\e$B&!\e(B" . "\e$B&!\e(B")
 524          ( "\e$B&"\e(B" . "\e$B&"\e(B")
 525          ( "\e$B&#\e(B" . "\e$B&#\e(B")
 526          ( "\e$B&$\e(B" . "\e$B&$\e(B")
 527          ( "\e$B&%\e(B" . "\e$B&%\e(B")
 528          ( "\e$B&&\e(B" . "\e$B&&\e(B")
 529          ( "\e$B&'\e(B" . "\e$B&'\e(B")
 530          ( "\e$B&(\e(B" . "\e$B&(\e(B")
 531          ( "\e$B&)\e(B" . "\e$B&)\e(B")
 532          ( "\e$B&*\e(B" . "\e$B&*\e(B")
 533          ( "\e$B&+\e(B" . "\e$B&+\e(B")
 534          ( "\e$B&,\e(B" . "\e$B&,\e(B")
 535          ( "\e$B&-\e(B" . "\e$B&-\e(B")
 536          ( "\e$B&.\e(B" . "\e$B&.\e(B")
 537          ( "\e$B&/\e(B" . "\e$B&/\e(B")
 538          ( "\e$B&0\e(B" . "\e$B&0\e(B")
 539          ( "\e$B&1\e(B" . "\e$B&1\e(B")
 540          ( "\e$B&2\e(B" . "\e$B&2\e(B")
 541          ( "\e$B&3\e(B" . "\e$B&3\e(B")
 542          ( "\e$B&4\e(B" . "\e$B&4\e(B")
 543          ( "\e$B&5\e(B" . "\e$B&5\e(B")
 544          ( "\e$B&6\e(B" . "\e$B&6\e(B")
 545          ( "\e$B&7\e(B" . "\e$B&7\e(B")
 546          ( "\e$B&8\e(B" . "\e$B&8\e(B")
 547 ;        ( "\e$B&9\e(B" . "\e$B&9\e(B")
 548 ;        ( "\e$B&:\e(B" . "\e$B&:\e(B")
 549 ;        ( "\e$B&;\e(B" . "\e$B&;\e(B")
 550 ;        ( "\e$B&<\e(B" . "\e$B&<\e(B")
 551 ;        ( "\e$B&=\e(B" . "\e$B&=\e(B")
 552 ;        ( "\e$B&>\e(B" . "\e$B&>\e(B")
 553 ;        ( "\e$B&?\e(B" . "\e$B&?\e(B")
 554 ;        ( "\e$B&@\e(B" . "\e$B&@\e(B")
 555          ( "\e$B&A\e(B" . "\e$B&A\e(B")
 556          ( "\e$B&B\e(B" . "\e$B&B\e(B")
 557          ( "\e$B&C\e(B" . "\e$B&C\e(B")
 558          ( "\e$B&D\e(B" . "\e$B&D\e(B")
 559          ( "\e$B&E\e(B" . "\e$B&E\e(B")
 560          ( "\e$B&F\e(B" . "\e$B&F\e(B")
 561          ( "\e$B&G\e(B" . "\e$B&G\e(B")
 562          ( "\e$B&H\e(B" . "\e$B&H\e(B")
 563          ( "\e$B&I\e(B" . "\e$B&I\e(B")
 564          ( "\e$B&J\e(B" . "\e$B&J\e(B")
 565          ( "\e$B&K\e(B" . "\e$B&K\e(B")
 566          ( "\e$B&L\e(B" . "\e$B&L\e(B")
 567          ( "\e$B&M\e(B" . "\e$B&M\e(B")
 568          ( "\e$B&N\e(B" . "\e$B&N\e(B")
 569          ( "\e$B&O\e(B" . "\e$B&O\e(B")
 570          ( "\e$B&P\e(B" . "\e$B&P\e(B")
 571          ( "\e$B&Q\e(B" . "\e$B&Q\e(B")
 572          ( "\e$B&R\e(B" . "\e$B&R\e(B")
 573          ( "\e$B&S\e(B" . "\e$B&S\e(B")
 574          ( "\e$B&T\e(B" . "\e$B&T\e(B")
 575          ( "\e$B&U\e(B" . "\e$B&U\e(B")
 576          ( "\e$B&V\e(B" . "\e$B&V\e(B")
 577          ( "\e$B&W\e(B" . "\e$B&W\e(B")
 578          ( "\e$B&X\e(B" . "\e$B&X\e(B")
 579 ;        ( "\e$B&Y\e(B" . "\e$B&Y\e(B")
 580 ;        ( "\e$B&Z\e(B" . "\e$B&Z\e(B")
 581 ;        ( "\e$B&[\e(B" . "\e$B&[\e(B")
 582 ;        ( "\e$B&\\e(B" . "\e$B&\\e(B")
 583 ;        ( "\e$B&]\e(B" . "\e$B&]\e(B")
 584 ;        ( "\e$B&^\e(B" . "\e$B&^\e(B")
 585 ;        ( "\e$B&_\e(B" . "\e$B&_\e(B")
 586 ;        ( "\e$B&`\e(B" . "\e$B&`\e(B")
 587 ;(a)     ( "\e$B&a\e(B" . "\e$B&a\e(B")
 588 ;(b)     ( "\e$B&b\e(B" . "\e$B&b\e(B")
 589 ;(c)     ( "\e$B&c\e(B" . "\e$B&c\e(B")
 590 ;(d)     ( "\e$B&d\e(B" . "\e$B&d\e(B")
 591 ;(e)     ( "\e$B&e\e(B" . "\e$B&e\e(B")
 592 ;(f)     ( "\e$B&f\e(B" . "\e$B&f\e(B")
 593 ;(g)     ( "\e$B&g\e(B" . "\e$B&g\e(B")
 594 ;(h)     ( "\e$B&h\e(B" . "\e$B&h\e(B")
 595 ;(i)     ( "\e$B&i\e(B" . "\e$B&i\e(B")
 596 ;(j)     ( "\e$B&j\e(B" . "\e$B&j\e(B")
 597 ;(k)     ( "\e$B&k\e(B" . "\e$B&k\e(B")
 598 ;(l)     ( "\e$B&l\e(B" . "\e$B&l\e(B")
 599 ;(m)     ( "\e$B&m\e(B" . "\e$B&m\e(B")
 600 ;(n)     ( "\e$B&n\e(B" . "\e$B&n\e(B")
 601 ;(o)     ( "\e$B&o\e(B" . "\e$B&o\e(B")
 602 ;(p)     ( "\e$B&p\e(B" . "\e$B&p\e(B")
 603 ;(q)     ( "\e$B&q\e(B" . "\e$B&q\e(B")
 604 ;(r)     ( "\e$B&r\e(B" . "\e$B&r\e(B")
 605 ;(s)     ( "\e$B&s\e(B" . "\e$B&s\e(B")
 606 ;(t)     ( "\e$B&t\e(B" . "\e$B&t\e(B")
 607 ;(u)     ( "\e$B&u\e(B" . "\e$B&u\e(B")
 608 ;(v)     ( "\e$B&v\e(B" . "\e$B&v\e(B")
 609 ;(w)     ( "\e$B&w\e(B" . "\e$B&w\e(B")
 610 ;(x)     ( "\e$B&x\e(B" . "\e$B&x\e(B")
 611 ;(y)     ( "\e$B&y\e(B" . "\e$B&y\e(B")
 612 ;(z)     ( "\e$B&z\e(B" . "\e$B&z\e(B")
 613 ;        ( "\e$B&{\e(B" . "\e$B&{\e(B")
 614 ;        ( "\e$B&|\e(B" . "\e$B&|\e(B")
 615 ;        ( "\e$B&}\e(B" . "\e$B&}\e(B")
 616 ;        ( "\e$B&~\e(B" . "\e$B&~\e(B")
 617 ))
 618
 619 (defvar egg:*greek-alist* *ku6-alist*)
 620
 621 (defvar *ku7-alist* '(
 622          ( "\e$B'!\e(B" . "\e$B'!\e(B")
 623          ( "\e$B'"\e(B" . "\e$B'"\e(B")
 624          ( "\e$B'#\e(B" . "\e$B'#\e(B")
 625          ( "\e$B'$\e(B" . "\e$B'$\e(B")
 626          ( "\e$B'%\e(B" . "\e$B'%\e(B")
 627          ( "\e$B'&\e(B" . "\e$B'&\e(B")
 628          ( "\e$B''\e(B" . "\e$B''\e(B")
 629          ( "\e$B'(\e(B" . "\e$B'(\e(B")
 630          ( "\e$B')\e(B" . "\e$B')\e(B")
 631          ( "\e$B'*\e(B" . "\e$B'*\e(B")
 632          ( "\e$B'+\e(B" . "\e$B'+\e(B")
 633          ( "\e$B',\e(B" . "\e$B',\e(B")
 634          ( "\e$B'-\e(B" . "\e$B'-\e(B")
 635          ( "\e$B'.\e(B" . "\e$B'.\e(B")
 636          ( "\e$B'/\e(B" . "\e$B'/\e(B")
 637          ( "\e$B'0\e(B" . "\e$B'0\e(B")
 638          ( "\e$B'1\e(B" . "\e$B'1\e(B")
 639          ( "\e$B'2\e(B" . "\e$B'2\e(B")
 640          ( "\e$B'3\e(B" . "\e$B'3\e(B")
 641          ( "\e$B'4\e(B" . "\e$B'4\e(B")
 642          ( "\e$B'5\e(B" . "\e$B'5\e(B")
 643          ( "\e$B'6\e(B" . "\e$B'6\e(B")
 644          ( "\e$B'7\e(B" . "\e$B'7\e(B")
 645          ( "\e$B'8\e(B" . "\e$B'8\e(B")
 646          ( "\e$B'9\e(B" . "\e$B'9\e(B")
 647          ( "\e$B':\e(B" . "\e$B':\e(B")
 648          ( "\e$B';\e(B" . "\e$B';\e(B")
 649          ( "\e$B'<\e(B" . "\e$B'<\e(B")
 650          ( "\e$B'=\e(B" . "\e$B'=\e(B")
 651          ( "\e$B'>\e(B" . "\e$B'>\e(B")
 652          ( "\e$B'?\e(B" . "\e$B'?\e(B")
 653          ( "\e$B'@\e(B" . "\e$B'@\e(B")
 654          ( "\e$B'A\e(B" . "\e$B'A\e(B")
 655 ;(1)     ( "\e$B'B\e(B" . "\e$B'B\e(B")
 656 ;(2)     ( "\e$B'C\e(B" . "\e$B'C\e(B")
 657 ;(3)     ( "\e$B'D\e(B" . "\e$B'D\e(B")
 658 ;(4)     ( "\e$B'E\e(B" . "\e$B'E\e(B")
 659 ;(5)     ( "\e$B'F\e(B" . "\e$B'F\e(B")
 660 ;(6)     ( "\e$B'G\e(B" . "\e$B'G\e(B")
 661 ;(7)     ( "\e$B'H\e(B" . "\e$B'H\e(B")
 662 ;(8)     ( "\e$B'I\e(B" . "\e$B'I\e(B")
 663 ;(9)     ( "\e$B'J\e(B" . "\e$B'J\e(B")
 664 ;(10)    ( "\e$B'K\e(B" . "\e$B'K\e(B")
 665 ;(11)    ( "\e$B'L\e(B" . "\e$B'L\e(B")
 666 ;(12)    ( "\e$B'M\e(B" . "\e$B'M\e(B")
 667 ;(13)    ( "\e$B'N\e(B" . "\e$B'N\e(B")
 668 ;(14)    ( "\e$B'O\e(B" . "\e$B'O\e(B")
 669 ;(15)    ( "\e$B'P\e(B" . "\e$B'P\e(B")
 670          ( "\e$B'Q\e(B" . "\e$B'Q\e(B")
 671          ( "\e$B'R\e(B" . "\e$B'R\e(B")
 672          ( "\e$B'S\e(B" . "\e$B'S\e(B")
 673          ( "\e$B'T\e(B" . "\e$B'T\e(B")
 674          ( "\e$B'U\e(B" . "\e$B'U\e(B")
 675          ( "\e$B'V\e(B" . "\e$B'V\e(B")
 676          ( "\e$B'W\e(B" . "\e$B'W\e(B")
 677          ( "\e$B'X\e(B" . "\e$B'X\e(B")
 678          ( "\e$B'Y\e(B" . "\e$B'Y\e(B")
 679          ( "\e$B'Z\e(B" . "\e$B'Z\e(B")
 680          ( "\e$B'[\e(B" . "\e$B'[\e(B")
 681          ( "\e$B'\\e(B" . "\e$B'\\e(B")
 682          ( "\e$B']\e(B" . "\e$B']\e(B")
 683          ( "\e$B'^\e(B" . "\e$B'^\e(B")
 684          ( "\e$B'_\e(B" . "\e$B'_\e(B")
 685          ( "\e$B'`\e(B" . "\e$B'`\e(B")
 686          ( "\e$B'a\e(B" . "\e$B'a\e(B")
 687          ( "\e$B'b\e(B" . "\e$B'b\e(B")
 688          ( "\e$B'c\e(B" . "\e$B'c\e(B")
 689          ( "\e$B'd\e(B" . "\e$B'd\e(B")
 690          ( "\e$B'e\e(B" . "\e$B'e\e(B")
 691          ( "\e$B'f\e(B" . "\e$B'f\e(B")
 692          ( "\e$B'g\e(B" . "\e$B'g\e(B")
 693          ( "\e$B'h\e(B" . "\e$B'h\e(B")
 694          ( "\e$B'i\e(B" . "\e$B'i\e(B")
 695          ( "\e$B'j\e(B" . "\e$B'j\e(B")
 696          ( "\e$B'k\e(B" . "\e$B'k\e(B")
 697          ( "\e$B'l\e(B" . "\e$B'l\e(B")
 698          ( "\e$B'm\e(B" . "\e$B'm\e(B")
 699          ( "\e$B'n\e(B" . "\e$B'n\e(B")
 700          ( "\e$B'o\e(B" . "\e$B'o\e(B")
 701          ( "\e$B'p\e(B" . "\e$B'p\e(B")
 702          ( "\e$B'q\e(B" . "\e$B'q\e(B")
 703 ;i       ( "\e$B'r\e(B" . "\e$B'r\e(B")
 704 ;ii      ( "\e$B's\e(B" . "\e$B's\e(B")
 705 ;iii     ( "\e$B't\e(B" . "\e$B't\e(B")
 706 ;iv      ( "\e$B'u\e(B" . "\e$B'u\e(B")
 707 ;v       ( "\e$B'v\e(B" . "\e$B'v\e(B")
 708 ;vi      ( "\e$B'w\e(B" . "\e$B'w\e(B")
 709 ;vii     ( "\e$B'x\e(B" . "\e$B'x\e(B")
 710 ;viii    ( "\e$B'y\e(B" . "\e$B'y\e(B")
 711 ;ix      ( "\e$B'z\e(B" . "\e$B'z\e(B")
 712 ;x       ( "\e$B'{\e(B" . "\e$B'{\e(B")
 713 ;|       ( "\e$B'|\e(B" . "\e$B'|\e(B")
 714 ;'       ( "\e$B'}\e(B" . "\e$B'}\e(B")
 715 ;''      ( "\e$B'~\e(B" . "\e$B'~\e(B")
 716 ))
 717
 718 (defvar egg:*russian-alist* *ku7-alist*)
 719
 720 (defvar *ku8-alist* '(
 721          ( "\e$B(!\e(B" . "\e$B(!\e(B")
 722          ( "\e$B("\e(B" . "\e$B("\e(B")
 723          ( "\e$B(#\e(B" . "\e$B(#\e(B")
 724          ( "\e$B($\e(B" . "\e$B($\e(B")
 725          ( "\e$B(%\e(B" . "\e$B(%\e(B")
 726          ( "\e$B(&\e(B" . "\e$B(&\e(B")
 727          ( "\e$B('\e(B" . "\e$B('\e(B")
 728          ( "\e$B((\e(B" . "\e$B((\e(B")
 729          ( "\e$B()\e(B" . "\e$B()\e(B")
 730          ( "\e$B(*\e(B" . "\e$B(*\e(B")
 731          ( "\e$B(+\e(B" . "\e$B(+\e(B")
 732          ( "\e$B(,\e(B" . "\e$B(,\e(B")
 733          ( "\e$B(-\e(B" . "\e$B(-\e(B")
 734          ( "\e$B(.\e(B" . "\e$B(.\e(B")
 735          ( "\e$B(/\e(B" . "\e$B(/\e(B")
 736          ( "\e$B(0\e(B" . "\e$B(0\e(B")
 737          ( "\e$B(1\e(B" . "\e$B(1\e(B")
 738          ( "\e$B(2\e(B" . "\e$B(2\e(B")
 739          ( "\e$B(3\e(B" . "\e$B(3\e(B")
 740          ( "\e$B(4\e(B" . "\e$B(4\e(B")
 741          ( "\e$B(5\e(B" . "\e$B(5\e(B")
 742          ( "\e$B(6\e(B" . "\e$B(6\e(B")
 743          ( "\e$B(7\e(B" . "\e$B(7\e(B")
 744          ( "\e$B(8\e(B" . "\e$B(8\e(B")
 745          ( "\e$B(9\e(B" . "\e$B(9\e(B")
 746          ( "\e$B(:\e(B" . "\e$B(:\e(B")
 747          ( "\e$B(;\e(B" . "\e$B(;\e(B")
 748          ( "\e$B(<\e(B" . "\e$B(<\e(B")
 749          ( "\e$B(=\e(B" . "\e$B(=\e(B")
 750          ( "\e$B(>\e(B" . "\e$B(>\e(B")
 751          ( "\e$B(?\e(B" . "\e$B(?\e(B")
 752          ( "\e$B(@\e(B" . "\e$B(@\e(B")
 753 ;        ( "\e$B(A\e(B" . "\e$B(A\e(B")
 754 ;        ( "\e$B(B\e(B" . "\e$B(B\e(B")
 755 ;        ( "\e$B(C\e(B" . "\e$B(C\e(B")
 756 ;        ( "\e$B(D\e(B" . "\e$B(D\e(B")
 757 ;        ( "\e$B(E\e(B" . "\e$B(E\e(B")
 758 ;*       ( "\e$B(F\e(B" . "\e$B(F\e(B")
 759 ;*       ( "\e$B(G\e(B" . "\e$B(G\e(B")
 760 ;*       ( "\e$B(H\e(B" . "\e$B(H\e(B")
 761 ;*       ( "\e$B(I\e(B" . "\e$B(I\e(B")
 762 ;*       ( "\e$B(J\e(B" . "\e$B(J\e(B")
 763 ;*       ( "\e$B(K\e(B" . "\e$B(K\e(B")
 764 ;*       ( "\e$B(L\e(B" . "\e$B(L\e(B")
 765 ;*       ( "\e$B(M\e(B" . "\e$B(M\e(B")
 766 ;*       ( "\e$B(N\e(B" . "\e$B(N\e(B")
 767 ;*       ( "\e$B(O\e(B" . "\e$B(O\e(B")
 768 ;*       ( "\e$B(P\e(B" . "\e$B(P\e(B")
 769 ;*       ( "\e$B(Q\e(B" . "\e$B(Q\e(B")
 770 ;*       ( "\e$B(R\e(B" . "\e$B(R\e(B")
 771 ;*       ( "\e$B(S\e(B" . "\e$B(S\e(B")
 772 ;*       ( "\e$B(T\e(B" . "\e$B(T\e(B")
 773 ;*       ( "\e$B(U\e(B" . "\e$B(U\e(B")
 774 ;*       ( "\e$B(V\e(B" . "\e$B(V\e(B")
 775 ;*       ( "\e$B(W\e(B" . "\e$B(W\e(B")
 776 ;*       ( "\e$B(X\e(B" . "\e$B(X\e(B")
 777 ;*       ( "\e$B(Y\e(B" . "\e$B(Y\e(B")
 778 ;*       ( "\e$B(Z\e(B" . "\e$B(Z\e(B")
 779 ;*       ( "\e$B([\e(B" . "\e$B([\e(B")
 780 ;*       ( "\e$B(\\e(B" . "\e$B(\\e(B")
 781 ;*       ( "\e$B(]\e(B" . "\e$B(]\e(B")
 782 ;*       ( "\e$B(^\e(B" . "\e$B(^\e(B")
 783 ;*       ( "\e$B(_\e(B" . "\e$B(_\e(B")
 784 ;*       ( "\e$B(`\e(B" . "\e$B(`\e(B")
 785 ;*       ( "\e$B(a\e(B" . "\e$B(a\e(B")
 786 ;*       ( "\e$B(b\e(B" . "\e$B(b\e(B")
 787 ;*       ( "\e$B(c\e(B" . "\e$B(c\e(B")
 788 ;*       ( "\e$B(d\e(B" . "\e$B(d\e(B")
 789 ;*       ( "\e$B(e\e(B" . "\e$B(e\e(B")
 790 ;*       ( "\e$B(f\e(B" . "\e$B(f\e(B")
 791 ;*       ( "\e$B(g\e(B" . "\e$B(g\e(B")
 792 ;*       ( "\e$B(h\e(B" . "\e$B(h\e(B")
 793 ;*       ( "\e$B(i\e(B" . "\e$B(i\e(B")
 794 ;*       ( "\e$B(j\e(B" . "\e$B(j\e(B")
 795 ;*       ( "\e$B(k\e(B" . "\e$B(k\e(B")
 796 ;*       ( "\e$B(l\e(B" . "\e$B(l\e(B")
 797 ;*       ( "\e$B(m\e(B" . "\e$B(m\e(B")
 798 ;*       ( "\e$B(n\e(B" . "\e$B(n\e(B")
 799 ;*       ( "\e$B(o\e(B" . "\e$B(o\e(B")
 800 ;*       ( "\e$B(p\e(B" . "\e$B(p\e(B")
 801 ;*       ( "\e$B(q\e(B" . "\e$B(q\e(B")
 802 ;*       ( "\e$B(r\e(B" . "\e$B(r\e(B")
 803 ;*       ( "\e$B(s\e(B" . "\e$B(s\e(B")
 804 ;*       ( "\e$B(t\e(B" . "\e$B(t\e(B")
 805 ;*       ( "\e$B(u\e(B" . "\e$B(u\e(B")
 806 ;*       ( "\e$B(v\e(B" . "\e$B(v\e(B")
 807 ;*       ( "\e$B(w\e(B" . "\e$B(w\e(B")
 808 ;*       ( "\e$B(x\e(B" . "\e$B(x\e(B")
 809 ;*       ( "\e$B(y\e(B" . "\e$B(y\e(B")
 810 ;*       ( "\e$B(z\e(B" . "\e$B(z\e(B")
 811 ;        ( "\e$B({\e(B" . "\e$B({\e(B")
 812 ;        ( "\e$B(|\e(B" . "\e$B(|\e(B")
 813 ;        ( "\e$B(}\e(B" . "\e$B(}\e(B")
 814 ;        ( "\e$B(~\e(B" . "\e$B(~\e(B")
 815 ))
 816
 817 (defvar egg:*keisen-alist* *ku8-alist*)
 818
 819 (defun make-all-jis-code-alist ()
 820   (let ((result nil) (ku 116))
 821     (while (<  32 ku)
 822       (let ((ten 126))
 823         (while (< 32 ten)
 824           (setq result (cons
 825                         (let ((str (make-string 1 0)))
 826                           (aset str 0 (make-char (find-charset 'japanese-jisx0208)  ku ten))
 827                           (cons str str))
 828                         result))
 829           (setq ten (1- ten))))
 830       (setq ku (1- ku)))
 831     result))
 832
 833 (defun make-jis-first-level-code-alist ()
 834   (let ((result nil) (ku 79))
 835     (while (<=  48 ku)
 836       (let ((ten 126))
 837         (while (<= 33 ten)
 838           (setq result (cons
 839                         (let ((str (make-string 1 0)))
 840                           (aset str 0 (make-char (find-charset 'japanese-jisx0208)  ku ten))
 841                           (cons str str))
 842                         result))
 843           (setq ten (1- ten))))
 844       (setq ku (1- ku)))
 845     result))
 846
 847 (defun make-jis-second-level-code-alist ()
 848   (let ((result nil) (ku 116))
 849     (while (<= 80 ku)
 850       (let ((ten 126))
 851         (while (<= 33 ten)
 852           (setq result (cons
 853                         (let ((str (make-string 1 0))) ; by T.Shingu
 854                           (aset str 0 (make-char (find-charset 'japanese-jisx0208)  ku ten))
 855                           (cons str str))
 856                         result))
 857           (setq ten (1- ten))))
 858       (setq ku (1- ku)))
 859     result))
 860
 861 (defun make-jis-hojo-kanji-code-alist ()
 862   (let ((result nil) (ku 109))
 863     (while (<=  34 ku)
 864       (let ((ten 126))
 865         (while (<= 33 ten)
 866           (setq result (cons
 867                         (let ((str (make-string 1 0)))
 868                           (aset str 0 (make-char (find-charset 'japanese-jisx0212)  ku ten))
 869                           (cons str str))
 870                         result))
 871           (setq ten (1- ten))))
 872       (setq ku (1- ku)))
 873     result))
 874
 875 ;;;(defvar egg:*all-jis-code-alist* (make-all-jis-code-alist))
 876
 877 (defvar egg:*first-level-alist*  (make-jis-first-level-code-alist))
 878 (defvar egg:*second-level-alist* (make-jis-second-level-code-alist))
 879 (defvar egg:*hojo-kanji-alist* (make-jis-hojo-kanji-code-alist))
 880
 881 (defvar *symbol-input-menu*
 882   (list 'menu "\e$B5-9fF~NO\e(B:"
 883         (list
 884          (cons "JIS\e$BF~NO\e(B"
 885                '(jis-code-input))
 886          (cons "\e$B5-9f\e(B"
 887                (list 'menu "\e$B5-9f\e(B:" egg:*symbol-alist*))
 888          (cons "\e$B1Q?t;z\e(B"
 889                (list 'menu "\e$B1Q?t;z\e(B:" egg:*alphanumeric-alist*))
 890          (cons "\e$B$R$i$,$J\e(B"
 891                (list 'menu "\e$B$R$i$,$J\e(B:" egg:*hiragana-alist*))
 892          (cons "\e$B%+%?%+%J\e(B"
 893                (list 'menu "\e$B%+%?%+%J\e(B:" egg:*katakana-alist*))
 894          (cons "\e$B%.%j%7%cJ8;z\e(B"
 895                (list 'menu "\e$B%.%j%7%cJ8;z\e(B:" egg:*greek-alist*))
 896          (cons "\e$B%m%7%"J8;z\e(B"
 897                (list 'menu "\e$B%m%7%"J8;z\e(B:" egg:*russian-alist*))
 898          (cons "\e$B7S@~\e(B"
 899                (list 'menu "\e$B7S@~\e(B:" egg:*keisen-alist*))
 900          ;; 92.7.8 by T.Shingu
 901          (cons "\e$BIt<sF~NO\e(B"
 902                '(busyu-input))
 903          (cons "\e$B2h?tF~NO\e(B"
 904                '(kakusuu-input))
 905          ;; end of patch
 906          (cons "\e$BBh0l?e=`\e(B"
 907                (list 'menu "\e$BBh0l?e=`\e(B:" egg:*first-level-alist*))
 908          (cons "\e$BBhFs?e=`\e(B"
 909                (list 'menu "\e$BBhFs?e=`\e(B:" egg:*second-level-alist*))
 910          (cons "\e$BJd=u4A;z\e(B"
 911                (list 'menu "\e$BJd=u4A;z\e(B:" egg:*hojo-kanji-alist*))
 912         ;; (cons "\e$BA4%3!<%I!J>/$7;~4V$,3]$+$j$^$9!#!K\e(B"
 913         ;;       (list 'menu "\e$BA4%3!<%I\e(B:" egg:*all-jis-code-alist*))
 914          )))