tc.el, tc-help.el, tc-bushu.el, tc-mazegaki.el, tc-util.el, tc-tbl.el, tutc-tbl.el, eelll.el, tc-is19.elをコンパイルする.
(defun my-tcode-mode-on () (interactive) (fep-force-off t) (activate-input-method "japanese-T-Code") ) (defun my-tcode-mode-off () (interactive) (inactivate-input-method) ) (global-set-key "\C-C" 'my-tcode-mode-off) (global-set-key "\C-J" 'my-tcode-mode-on)
(add-hook 'tcode-ready-hook '(lambda () (tcode-set-key-layout "qwerty") (setq tcode-auto-help nil) )) (add-hook 'tcode-mode-hook '(lambda () (setq tcode-auto-help nil) )) (add-hook 'tcode-toggle-hook '(lambda () (setq tcode-auto-help nil) ))
(defvar tcode-kuten "." "* 句点") (defvar tcode-touten "," "* 読点")