source: projects/specs/trunk/e/emacs24/menu-tree-init.el.emacs24 @ 2293

Revision 2293, 999 bytes checked in by munepi, 13 years ago (diff)

update: emacs22-22.3, emacs-23.2; NEW: emacs24-24.0.50: applied new vine-default system

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