Mercurial > emacs
comparison lisp/language/japan-util.el @ 91935:0e222c52ad00
(setup-japanese-environment-internal):
Call use-cjk-char-width-table.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Mon, 18 Feb 2008 11:53:59 +0000 |
parents | b5d3fc1c4afe |
children | 1e3a407766b9 |
comparison
equal
deleted
inserted
replaced
91934:6299bdf88132 | 91935:0e222c52ad00 |
---|---|
34 (defun setup-japanese-environment-internal () | 34 (defun setup-japanese-environment-internal () |
35 ;; By default, we use 'japanese-iso-8bit for file names. But, the | 35 ;; By default, we use 'japanese-iso-8bit for file names. But, the |
36 ;; following prefer-coding-system will override it. | 36 ;; following prefer-coding-system will override it. |
37 (if (memq system-type '(windows-nt ms-dos cygwin)) | 37 (if (memq system-type '(windows-nt ms-dos cygwin)) |
38 (prefer-coding-system 'japanese-shift-jis) | 38 (prefer-coding-system 'japanese-shift-jis) |
39 (prefer-coding-system 'japanese-iso-8bit))) | 39 (prefer-coding-system 'japanese-iso-8bit)) |
40 (use-cjk-char-width-table)) | |
40 | 41 |
41 (defconst japanese-kana-table | 42 (defconst japanese-kana-table |
42 '((?$B$"(B ?$B%"(B ?(I1(B) (?$B$$(B ?$B%$(B ?(I2(B) (?$B$&(B ?$B%&(B ?(I3(B) (?$B$((B ?$B%((B ?(I4(B) (?$B$*(B ?$B%*(B ?(I5(B) | 43 '((?$B$"(B ?$B%"(B ?(I1(B) (?$B$$(B ?$B%$(B ?(I2(B) (?$B$&(B ?$B%&(B ?(I3(B) (?$B$((B ?$B%((B ?(I4(B) (?$B$*(B ?$B%*(B ?(I5(B) |
43 (?$B$+(B ?$B%+(B ?(I6(B) (?$B$-(B ?$B%-(B ?(I7(B) (?$B$/(B ?$B%/(B ?(I8(B) (?$B$1(B ?$B%1(B ?(I9(B) (?$B$3(B ?$B%3(B ?(I:(B) | 44 (?$B$+(B ?$B%+(B ?(I6(B) (?$B$-(B ?$B%-(B ?(I7(B) (?$B$/(B ?$B%/(B ?(I8(B) (?$B$1(B ?$B%1(B ?(I9(B) (?$B$3(B ?$B%3(B ?(I:(B) |
44 (?$B$5(B ?$B%5(B ?(I;(B) (?$B$7(B ?$B%7(B ?(I<(B) (?$B$9(B ?$B%9(B ?(I=(B) (?$B$;(B ?$B%;(B ?(I>(B) (?$B$=(B ?$B%=(B ?(I?(B) | 45 (?$B$5(B ?$B%5(B ?(I;(B) (?$B$7(B ?$B%7(B ?(I<(B) (?$B$9(B ?$B%9(B ?(I=(B) (?$B$;(B ?$B%;(B ?(I>(B) (?$B$=(B ?$B%=(B ?(I?(B) |