diff options
| author | Kenichi Handa | 2008-02-18 11:53:59 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2008-02-18 11:53:59 +0000 |
| commit | faf9aa0aa0428b5822202b4195eb72c7cf1e5e69 (patch) | |
| tree | d22dae6f7e2e9cf6906e707a5cbbbe9af8d05375 | |
| parent | 64813b93609f5e82ecd4fdfac27b083d33259516 (diff) | |
| download | emacs-faf9aa0aa0428b5822202b4195eb72c7cf1e5e69.tar.gz emacs-faf9aa0aa0428b5822202b4195eb72c7cf1e5e69.zip | |
(setup-japanese-environment-internal):
Call use-cjk-char-width-table.
| -rw-r--r-- | lisp/language/japan-util.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/language/japan-util.el b/lisp/language/japan-util.el index 2edacbc6d06..005fc266283 100644 --- a/lisp/language/japan-util.el +++ b/lisp/language/japan-util.el | |||
| @@ -36,7 +36,8 @@ | |||
| 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) |