1234567891011121314151617181920212223242526272829303132333435363738 |
- ;;
- ;; 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 (and (>= emacs-major-version 21)
- (equal (substring (concat (getenv "LANG") "__") 0 2) "ja"))
- (progn
- (require 'menu-tree)
- )
- )
- ;; Local Variables:
- ;; mode: emacs-lisp
- ;; End:
|