source: projects/specs/branches/6/e/emacs22/menu-tree-init.el.emacs22 @ 2293

;;
;; menu-tree-init.el
;;  set default coding system and load menu-tree
;;

(set-language-environment 'Japanese)

(if (equal (getenv "LANG") "ja_JP.eucJP")
  (progn
    (prefer-coding-system  'euc-jp-unix)
    ;; (set-default-coding-systems 'euc-jp)
    ;; (set-buffer-file-coding-system 'euc-jp-unix)
    ;; (set-terminal-coding-system 'euc-jp)
    ;; (set-keyboard-coding-system 'euc-jp)
    ;; (setq menu-tree-coding-system 'euc-jp)
    )
  (progn
    (cond ((<= emacs-major-version 21)
      (require 'un-define)))
    (prefer-coding-system  'utf-8-unix)
    ;; (set-default-coding-systems 'utf-8)
    ;; (set-buffer-file-coding-system 'utf-8-unix)
    ;; (set-terminal-coding-system 'utf-8)
    ;; (set-keyboard-coding-system 'utf-8)
    ;; (setq menu-tree-coding-system 'utf-8)
    (if window-system
        (setq menu-tree-coding-system 'utf-8))
    )
)

(if (and (>= emacs-major-version 21)
         (equal (substring (concat (getenv "LANG") "__") 0 2) "ja"))
    (progn
      (require 'menu-tree)
      )
  )

;; Local Variables:
;; mode: emacs-lisp
;; End: