menu-tree-init.el.emacs22 1.0 KB

12345678910111213141516171819202122232425262728293031323334353637383940
  1. ;;
  2. ;; menu-tree-init.el
  3. ;; set default coding system and load menu-tree
  4. ;;
  5. (set-language-environment 'Japanese)
  6. (if (equal (getenv "LANG") "ja_JP.eucJP")
  7. (progn
  8. (prefer-coding-system 'euc-jp-unix)
  9. ;; (set-default-coding-systems 'euc-jp)
  10. ;; (set-buffer-file-coding-system 'euc-jp-unix)
  11. ;; (set-terminal-coding-system 'euc-jp)
  12. ;; (set-keyboard-coding-system 'euc-jp)
  13. ;; (setq menu-tree-coding-system 'euc-jp)
  14. )
  15. (progn
  16. (cond ((<= emacs-major-version 21)
  17. (require 'un-define)))
  18. (prefer-coding-system 'utf-8-unix)
  19. ;; (set-default-coding-systems 'utf-8)
  20. ;; (set-buffer-file-coding-system 'utf-8-unix)
  21. ;; (set-terminal-coding-system 'utf-8)
  22. ;; (set-keyboard-coding-system 'utf-8)
  23. ;; (setq menu-tree-coding-system 'utf-8)
  24. (if window-system
  25. (setq menu-tree-coding-system 'utf-8))
  26. )
  27. )
  28. (if (and (>= emacs-major-version 21)
  29. (equal (substring (concat (getenv "LANG") "__") 0 2) "ja"))
  30. (progn
  31. (require 'menu-tree)
  32. )
  33. )
  34. ;; Local Variables:
  35. ;; mode: emacs-lisp
  36. ;; End: