menu-tree-init.el.emacs23 999 B

1234567891011121314151617181920212223242526272829303132333435363738
  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. )
  25. )
  26. (if (and (>= emacs-major-version 21)
  27. (equal (substring (concat (getenv "LANG") "__") 0 2) "ja"))
  28. (progn
  29. (require 'menu-tree)
  30. )
  31. )
  32. ;; Local Variables:
  33. ;; mode: emacs-lisp
  34. ;; End: