; -*-emacs-lisp-*-
(and (fboundp 'set-language-environment)
     (set-language-environment "Japanese"))
(setq load-path (cons "../lisp" load-path))
(let (tcode-init-file-name)
  (provide 'tc-site)
  (setq tcode-site-data-directory nil)
  (load "tc-setup.el"))
(setq tcode-data-directory nil)
(load "tc")

(tcode-bushu-init 999)
(tcode-save-dictionaries)
(kill-emacs)
