;;; Hey, Emacs, this file is -*- Emacs-Lisp -*- ... got that?

(custom-set-variables
 '(enable-multibyte-characters t))
(custom-set-faces)

(set-language-environment 'japanese)
(set-buffer-file-coding-system 'euc-japan)
(setq default-buffer-file-coding-system 'euc-japan)
(set-input-method 'japanese-egg-canna)



(defun japanify (buffer)
  (save-excursion
    (switch-to-buffer buffer)
    (set-language-environment 'japanese)
    (set-buffer-file-coding-system 'euc-japan)
    (set-buffer-process-coding-system 'euc-japan 'euc-japan))
  (setq default-buffer-file-coding-system 'euc-japan))
 
(defun jshell (&optional prefix)
  (interactive "P")
  (shell)
  (japanify "*shell*"))
 

;; Adapt the paths to your Lisp and Clim installations
;; for eli and clim and to your LKB installation!

(defun japanese (&optional prefix)
  (interactive "P")
 
  (unless (member "/project/cl/deepthought/lacl/eli" load-path)
    (setq load-path (cons "/project/cl/deepthought/lacl/eli" load-path)))
  (load "fi-site-init" nil t)
  (fset 'lisp-mode (symbol-function 'common-lisp-mode))
  (setq fi:common-lisp-image-name "/project/cl/deepthought/lacl/clim")
  (setq fi:common-lisp-image-file "/project/cl/deepthought/lacl/clim.dxl")
  (setq fi:common-lisp-buffer-name "*common-lisp*")
  (setq fi:common-lisp-image-arguments (list "-locale" "japan.EUC"))

 
  (setq fi:lisp-evals-always-compile nil)
  (setq
    fi:lisp-mode-hook
    (function (lambda ()
                (modify-syntax-entry ?\[ "(]  " fi:lisp-mode-syntax-table)
                (modify-syntax-entry ?\] ")[  " fi:lisp-mode-syntax-table)
                (modify-syntax-entry ?\{ "(}  " fi:lisp-mode-syntax-table)
                (modify-syntax-entry ?\} "){  " fi:lisp-mode-syntax-table))))
 
  (unless (member "/project/cl/deepthought/lkb/src" load-path)
    (setq load-path (cons "/project/cl/deepthought/lkb/src" load-path)))
  (load "tdl-mode" nil t)
  (load "lkb" nil t)
 
  (defun lisp (&optional prefix)
    (interactive "P")
    (let ((process-connection-type nil))
      (fi:common-lisp)))
  (lisp)
  (setq default-buffer-file-coding-system 'euc-japan)
  (japanify "*common-lisp*"))


(setq auto-save-interval 2000)
(setq auto-save-timeout nil)

(defconst dot-emacs t)