Mercurial > emacs
comparison lisp/international/characters.el @ 102617:fdad8647e9ec
(cjk-char-width-table): Add cp932-2-byte.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Tue, 17 Mar 2009 07:14:45 +0000 |
| parents | f22ae19dd025 |
| children | e9716d0e04ea |
comparison
equal
deleted
inserted
replaced
| 102616:25d094256b42 | 102617:fdad8647e9ec |
|---|---|
| 1029 'arabic-2-column) | 1029 'arabic-2-column) |
| 1030 | 1030 |
| 1031 (defvar cjk-char-width-table | 1031 (defvar cjk-char-width-table |
| 1032 (let ((table (make-char-table nil))) | 1032 (let ((table (make-char-table nil))) |
| 1033 (dolist (charset '(big5 chinese-gb2312 chinese-cns11643-1 | 1033 (dolist (charset '(big5 chinese-gb2312 chinese-cns11643-1 |
| 1034 japanese-jisx0208 korean-ksc5601)) | 1034 japanese-jisx0208 cp932-2-byte korean-ksc5601)) |
| 1035 (map-charset-chars #'(lambda (range arg) | 1035 (map-charset-chars #'(lambda (range arg) |
| 1036 (set-char-table-range table range 2)) | 1036 (set-char-table-range table range 2)) |
| 1037 charset)) | 1037 charset)) |
| 1038 (optimize-char-table table) | 1038 (optimize-char-table table) |
| 1039 (set-char-table-parent table char-width-table) | 1039 (set-char-table-parent table char-width-table) |