Mercurial > emacs
comparison lisp/international/characters.el @ 90535:5b86e23f4fdb
Modify category-table and
script-table for new Ethiopic character range.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Thu, 20 Jul 2006 13:01:24 +0000 |
| parents | 4094c5298ae1 |
| children | 72f86bb92d9e |
comparison
equal
deleted
inserted
replaced
| 90534:2811bff46a36 | 90535:5b86e23f4fdb |
|---|---|
| 263 | 263 |
| 264 (modify-syntax-entry ?№ ".") | 264 (modify-syntax-entry ?№ ".") |
| 265 | 265 |
| 266 ;; Ethiopic character set | 266 ;; Ethiopic character set |
| 267 | 267 |
| 268 (modify-category-entry '(#x1200 . #x137c) ?e) | 268 (modify-category-entry '(#x1200 . #x1399) ?e) |
| 269 (modify-category-entry '(#x2d80 . #x2dde) ?e) | |
| 269 (let ((chars '(?፡ ?። ?፣ ?፤ ?፥ ?፦ ?፧ ?፨ ? ? ? ? ? ?))) | 270 (let ((chars '(?፡ ?። ?፣ ?፤ ?፥ ?፦ ?፧ ?፨ ? ? ? ? ? ?))) |
| 270 (while chars | 271 (while chars |
| 271 (modify-syntax-entry (car chars) ".") | 272 (modify-syntax-entry (car chars) ".") |
| 272 (setq chars (cdr chars)))) | 273 (setq chars (cdr chars)))) |
| 273 (map-charset-chars #'modify-category-entry 'ethiopic ?e) | 274 (map-charset-chars #'modify-category-entry 'ethiopic ?e) |
| 972 (#x0E80 #x0EDF lao) | 973 (#x0E80 #x0EDF lao) |
| 973 (#x0F00 #x0FFF tibetan) | 974 (#x0F00 #x0FFF tibetan) |
| 974 (#x1000 #x105F myanmar) | 975 (#x1000 #x105F myanmar) |
| 975 (#x10A0 #x10FF georgian) | 976 (#x10A0 #x10FF georgian) |
| 976 (#x1100 #x11FF hangul) | 977 (#x1100 #x11FF hangul) |
| 977 (#x1200 #x137F ethiopic) | 978 (#x1200 #x139F ethiopic) |
| 978 (#x13A0 #x13FF cherokee) | 979 (#x13A0 #x13FF cherokee) |
| 979 (#x1400 #x167F canadian-aboriginal) | 980 (#x1400 #x167F canadian-aboriginal) |
| 980 (#x1680 #x169F ogham) | 981 (#x1680 #x169F ogham) |
| 981 (#x16A0 #x16FF runic) | 982 (#x16A0 #x16FF runic) |
| 982 (#x1780 #x17FF khmer) | 983 (#x1780 #x17FF khmer) |
| 983 (#x1800 #x18AF mongolian) | 984 (#x1800 #x18AF mongolian) |
| 984 (#x1E00 #x1EFF latin) | 985 (#x1E00 #x1EFF latin) |
| 985 (#x1F00 #x1FFF greek) | 986 (#x1F00 #x1FFF greek) |
| 986 (#x2000 #x27FF symbol) | 987 (#x2000 #x27FF symbol) |
| 987 (#x2800 #x28FF braille) | 988 (#x2800 #x28FF braille) |
| 989 (#x2D80 #x2DDF ethiopic) | |
| 988 (#x2E80 #x2FDF han) | 990 (#x2E80 #x2FDF han) |
| 989 (#x2FF0 #x2FFF ideographic-description) | 991 (#x2FF0 #x2FFF ideographic-description) |
| 990 (#x3000 #x303F cjk-misc) | 992 (#x3000 #x303F cjk-misc) |
| 991 (#x3040 #x30FF kana) | 993 (#x3040 #x30FF kana) |
| 992 (#x3100 #x312F bopomofo) | 994 (#x3100 #x312F bopomofo) |