Mercurial > emacs

comparison lisp/language/japan-util.el @ 91935:0e222c52ad00

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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)