$B$3$l$O(B Mule-2.0 $BMQ$N(B T-Code $B%I%i%$%P$N%"%k%U%!HG$G$9!#(B

	tc-mule2.el		T-Code $B%I%i%$%PK\BN(B
	tc-isearch19.el		$B%$%s%/%j%a%s%?%k%5!<%A$N%Q%C%A(B
	eelll-mule2.el		T-Code $BN}=,%W%m%0%i%`(BEELLL$B$G$9(B
	EELLLTXT		EELLL $B$NN}=,MQ%F%-%9%H$G$9!#(B
	bushu-mule.dic		$BIt<sJQ49<-=q!#(B

$B@_Dj$N$7$+$?$O$@$$$VJQ$o$C$F$$$^$9!#4pK\E*$K%f!<%6!<JQ?t$N(B
$B%X%k%W$r8+$l$P$o$+$k$O$:$G$9!#;29M$^$G$K;d$N@_Dj$r=q$-$^$9!#(B

# $B$3$N$^$^%+%C%H%"%s%I%Z!<%9%H$9$k$H!"(BQWERTY$B$N?M$OH/68$9$k$N$GCm0U$7$F$M!#(B

$BMWK>!"%P%0!"Ds0F$J$I!"$I$7$I$7(B
	tcode-ml@is.s.u-tokyo.ac.jp
$B$^$G$*4j$$$7$^$9!#(B

$B%a!<%j%s%0%j%9%H$N2q0w$G$J$$J}$O(B
	tcode-admin@is.s.u-tokyo.ac.jp
$B$XF~2q?=9~$9$k$+(B($B?M<j$G=hM}$5$l$^$9(B)$B!"(B
	maeda@src.ricoh.co.jp
$B$X$I$&$>!#(B

-------------------------------	 MadCat V1    LRM10   $B""(B/$B!1(B\$B""(B	 LRM10
 $BA0ED(B $B70(B maeda@src.ricoh.co.jp	 96km/h	      Md LG  o@$B!C(B  $B!C(B@o	 AFC50 Md
 ($B3t(B)$B%j%3!<(B $B%=%U%H%&%'%";v6HIt(B	 HeatSink 10  Sm MG   .=X$B!1(BX=.	 MG Sm
-------------------------------			     _|_    _|_

;;;
;;; T-Code configurations
;;;

(load "tc-mule2")

;;
;;  T-Code on dvorak keyboard
;;
   ;   0  1  2  3  4  5  6  7  8  9 
   ;  10 11 12 13 14 15 16 17 18 19
   ;  20 21 22 23 24 25 26 27 28 29
   ;  30 31 32 33 34 35 36 37 38 39

   ;   1  2  3  4  5  6  7  8  9  0
   ;   '  ,  .  p  y  f  g  c  r  l
   ;   a  o  e  u  i  d  h  t  n  s
   ;   ;  q  j  k  x  b  m  w  v  z

   ;        !   \"   #   $   %   &   '   (   )   *   +   ,   -   .   / 
   ;    0   1   2   3   4   5   6   7   8   9   :   ;   <   =   >   ?
   ;    @   A   B   C   D   E   F   G   H   I   J   K   L   M   N   O
   ;    P   Q   R   S   T   U   V   W   X   Y   Z   [   \   ]   ^   _
   ;    `   a   b   c   d   e   f   g   h   i   j   k   l   m   n   o
   ;    p   q   r   s   t   u   v   w   x   y   z   {   |   }   ~
(setq tcode-keymap-table
      [
       -32 -1  -1  -1  -1  -1  -1  10  -1  -1  -1  -3  11  -1  12  -3
       09  00  01  02  03  04  05  06  07  08  -1  30  -1  -3  -1  -3
       -1  -2  -2  -2  -2  -2  -2  -2  -2  -2  -2  -2  -2  -2  -2  -2
       -2  -2  -2  -2  -2  -2  -2  -2  -2  -2  -2  -1  -3  -1  -1 -45
       -1  20  35  17  25  22  15  16  26  24  32  33  19  36  28  21
       13  31  18  29  27  23  38  37  34  14  39  -1  -3  -1  -1
       ] )

(setq tcode-dictionary-name "~/emacs/mylisp/mazegaki.dic"
      tcode-bushu-dictionary-name "~/dic/bushu-mule.dic"
      tcode-stroke-file-name "~/emacs/mylisp/mule-tc/tcode.st"
      tcode-table-file-name "~/emacs/mylisp/mule-tc/tc-mule.tbl.el"
      tcode-use-egg-in-mazegaki nil
      tcode-mazegaki-gakushu-level 2
      tcode-bushu-on-demand 2
      tcode-kakutei-register ?=
      tcode-help-first-stroke "$B!|(B"
      tcode-help-second-stroke "$B!{(B")
;(define-key tcode-mode-map "=" 'tcode-insert-register)
;(define-key tcode-mode-map "+" 'copy-to-register)
(define-key tcode-mode-map "\\" 'toggle-tcode-mode-and-self-insert)
;;(define-key tcode-mode-map "|" 'toggle-tcode-mode-and-self-insert)
;;(define-key tcode-mode-map "?" 'abbrev-prefix-mark)
(define-key tcode-mode-map "/" 'expand-abbrev)

(defun toggle-tcode-mode-and-self-insert (arg)
  (interactive "p")
  (toggle-tcode-mode)
  (self-insert-command arg))

(global-set-key "\C-z" 'toggle-tcode-mode)
(define-key isearch-mode-map "\C-z" 'isearch-toggle-tcode)

;; EELLL
(autoload 'eelll "eelll-mule2" "EELLL" t)
(setq eelll-text "~/emacs/mylisp/EELLLTXT")
