annotate lisp/international/characters.el @ 95398:f7271aace10a

(define-coding-system): Accept :bom for utf-8.
author Kenichi Handa <handa@m17n.org>
date Thu, 29 May 2008 22:58:58 +0000
parents 889bc336b89b
children 8dfd5f6c48e4
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1 ;;; characters.el --- set syntax and category for multibyte characters
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2
79709
b6fdfff4ae81 Add 2008 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 78310
diff changeset
3 ;; Copyright (C) 1997, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
62274
c36561fe0657 Fix copyrights.
Kenichi Handa <handa@m17n.org>
parents: 61191
diff changeset
4 ;; Free Software Foundation, Inc.
74605
6ee41fdd69ff Update AIST copyright years.
Kenichi Handa <handa@m17n.org>
parents: 74544
diff changeset
5 ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
79709
b6fdfff4ae81 Add 2008 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 78310
diff changeset
6 ;; 2005, 2006, 2007, 2008
62274
c36561fe0657 Fix copyrights.
Kenichi Handa <handa@m17n.org>
parents: 61191
diff changeset
7 ;; National Institute of Advanced Industrial Science and Technology (AIST)
c36561fe0657 Fix copyrights.
Kenichi Handa <handa@m17n.org>
parents: 61191
diff changeset
8 ;; Registration Number H14PRO021
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89314
diff changeset
9 ;; Copyright (C) 2003
88403
3c6459e2914f Adjusted for the deletion of generic characters.
Kenichi Handa <handa@m17n.org>
parents: 41992
diff changeset
10 ;; National Institute of Advanced Industrial Science and Technology (AIST)
3c6459e2914f Adjusted for the deletion of generic characters.
Kenichi Handa <handa@m17n.org>
parents: 41992
diff changeset
11 ;; Registration Number H13PRO009
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
12
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
13 ;; Keywords: multibyte character, character set, syntax, category
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
14
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
15 ;; This file is part of GNU Emacs.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
16
94664
889bc336b89b Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94129
diff changeset
17 ;; GNU Emacs is free software: you can redistribute it and/or modify
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
18 ;; it under the terms of the GNU General Public License as published by
94664
889bc336b89b Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94129
diff changeset
19 ;; the Free Software Foundation, either version 3 of the License, or
889bc336b89b Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94129
diff changeset
20 ;; (at your option) any later version.
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
21
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
22 ;; GNU Emacs is distributed in the hope that it will be useful,
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
23 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
24 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
25 ;; GNU General Public License for more details.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
26
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
27 ;; You should have received a copy of the GNU General Public License
94664
889bc336b89b Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94129
diff changeset
28 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
29
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
30 ;;; Commentary:
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
31
38414
67b464da13ec Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 36688
diff changeset
32 ;;; Code:
67b464da13ec Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 36688
diff changeset
33
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
34 ;;; Predefined categories.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
35
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
36 ;; For each character set.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
37
75827
3f03a7929d8a Fix documentation of category `a'.
Kenichi Handa <handa@m17n.org>
parents: 75347
diff changeset
38 (define-category ?a "ASCII graphic characters 32-126 (ISO646 IRV:1983[4/0])")
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
39 (define-category ?l "Latin")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
40 (define-category ?t "Thai")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
41 (define-category ?g "Greek")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
42 (define-category ?b "Arabic")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
43 (define-category ?w "Hebrew")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
44 (define-category ?y "Cyrillic")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
45 (define-category ?k "Japanese katakana")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
46 (define-category ?r "Japanese roman")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
47 (define-category ?c "Chinese")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
48 (define-category ?j "Japanese")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
49 (define-category ?h "Korean")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
50 (define-category ?e "Ethiopic (Ge'ez)")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
51 (define-category ?v "Vietnamese")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
52 (define-category ?i "Indian")
17078
874b471d6635 Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
53 (define-category ?o "Lao")
17753
de6be7f3b904 Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents: 17296
diff changeset
54 (define-category ?q "Tibetan")
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
55
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
56 ;; For each group (row) of 2-byte character sets.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
57
22529
d9eac134a41b Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20843
diff changeset
58 (define-category ?A "Alpha-numeric characters of 2-byte character sets")
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
59 (define-category ?C "Chinese (Han) characters of 2-byte character sets")
22529
d9eac134a41b Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20843
diff changeset
60 (define-category ?G "Greek characters of 2-byte character sets")
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
61 (define-category ?H "Japanese Hiragana characters of 2-byte character sets")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
62 (define-category ?K "Japanese Katakana characters of 2-byte character sets")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
63 (define-category ?N "Korean Hangul characters of 2-byte character sets")
22529
d9eac134a41b Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20843
diff changeset
64 (define-category ?Y "Cyrillic characters of 2-byte character sets")
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
65 (define-category ?I "Indian Glyphs")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
66
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
67 ;; For phonetic classifications.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
68
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
69 (define-category ?0 "consonant")
18561
f3c28fd5118e Modify docstring of char category
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
70 (define-category ?1 "base (independent) vowel")
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
71 (define-category ?2 "upper diacritical mark (including upper vowel)")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
72 (define-category ?3 "lower diacritical mark (including lower vowel)")
90945
3046ffe96f58 Setup syntax/category table for Tai Viet.
Kenichi Handa <handa@m17n.org>
parents: 90792
diff changeset
73 (define-category ?4 "combining tone mark")
18561
f3c28fd5118e Modify docstring of char category
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
74 (define-category ?5 "symbol")
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
75 (define-category ?6 "digit")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
76 (define-category ?7 "vowel-modifying diacritical mark")
17078
874b471d6635 Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
77 (define-category ?8 "vowel-signs")
874b471d6635 Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
78 (define-category ?9 "semivowel lower")
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
79
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
80 ;; For filling.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
81 (define-category ?| "While filling, we can break a line at this character.")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
82
20247
7cb27e61a1d5 New category ` '.
Karl Heuer <kwzh@gnu.org>
parents: 19958
diff changeset
83 ;; For indentation calculation.
49769
5ed59fd23bc4 Use new ?\s syntax instead of "? " followed by a comment.
Juanma Barranquero <lekktu@gmail.com>
parents: 49601
diff changeset
84 (define-category ?\s
20734
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
85 "This character counts as a space for indentation purposes.")
20247
7cb27e61a1d5 New category ` '.
Karl Heuer <kwzh@gnu.org>
parents: 19958
diff changeset
86
22529
d9eac134a41b Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20843
diff changeset
87 ;; Keep the following for `kinsoku' processing. See comments in
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
88 ;; kinsoku.el.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
89 (define-category ?> "A character which can't be placed at beginning of line.")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
90 (define-category ?< "A character which can't be placed at end of line.")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
91
41874
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
92 ;; Combining
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
93 (define-category ?^ "Combining diacritic or mark")
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
94
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
95 ;;; Setting syntax and category.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
96
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
97 ;; ASCII
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
98
88425
d7bd9df1799d Optimize calls of modify-category-entry.
Kenichi Handa <handa@m17n.org>
parents: 88403
diff changeset
99 ;; All ASCII characters have the category `a' (ASCII) and `l' (Latin).
d7bd9df1799d Optimize calls of modify-category-entry.
Kenichi Handa <handa@m17n.org>
parents: 88403
diff changeset
100 (modify-category-entry '(32 . 127) ?a)
d7bd9df1799d Optimize calls of modify-category-entry.
Kenichi Handa <handa@m17n.org>
parents: 88403
diff changeset
101 (modify-category-entry '(32 . 127) ?l)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
102
89314
f040012c16bb Move parts around so that syntax
Dave Love <fx@gnu.org>
parents: 89291
diff changeset
103 ;; Deal with the CJK charsets first. Since the syntax of blocks is
f040012c16bb Move parts around so that syntax
Dave Love <fx@gnu.org>
parents: 89291
diff changeset
104 ;; defined per charset, and the charsets may contain e.g. Latin
f040012c16bb Move parts around so that syntax
Dave Love <fx@gnu.org>
parents: 89291
diff changeset
105 ;; characters, we end up with the wrong syntax definitions if we're
f040012c16bb Move parts around so that syntax
Dave Love <fx@gnu.org>
parents: 89291
diff changeset
106 ;; not careful.
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
107
88752
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
108 ;; Chinese characters (Unicode)
89923
be0153d5e3f8 Give more CJK characters the category `|'.
Kenichi Handa <handa@m17n.org>
parents: 89914
diff changeset
109 (modify-category-entry '(#x2E80 . #x312F) ?|)
be0153d5e3f8 Give more CJK characters the category `|'.
Kenichi Handa <handa@m17n.org>
parents: 89914
diff changeset
110 (modify-category-entry '(#x3190 . #x33FF) ?|)
88752
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
111 (modify-category-entry '(#x3400 . #x9FAF) ?C)
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
112 (modify-category-entry '(#x3400 . #x9FAF) ?c)
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
113 (modify-category-entry '(#x3400 . #x9FAF) ?|)
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
114 (modify-category-entry '(#xF900 . #xFAFF) ?C)
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
115 (modify-category-entry '(#xF900 . #xFAFF) ?c)
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
116 (modify-category-entry '(#xF900 . #xFAFF) ?|)
89680
9f9a2db0bc5a Fix setting of category `|'.
Kenichi Handa <handa@m17n.org>
parents: 89635
diff changeset
117 (modify-category-entry '(#x20000 . #x2AFFF) ?|)
9f9a2db0bc5a Fix setting of category `|'.
Kenichi Handa <handa@m17n.org>
parents: 89635
diff changeset
118 (modify-category-entry '(#x2F800 . #x2FFFF) ?|)
9f9a2db0bc5a Fix setting of category `|'.
Kenichi Handa <handa@m17n.org>
parents: 89635
diff changeset
119
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
120
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
121 ;; Chinese character set (GB2312)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
122
88752
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
123 (map-charset-chars #'modify-syntax-entry 'chinese-gb2312 "_" #x2121 #x217E)
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
124 (map-charset-chars #'modify-syntax-entry 'chinese-gb2312 "_" #x2221 #x227E)
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
125 (map-charset-chars #'modify-syntax-entry 'chinese-gb2312 "_" #x2921 #x297E)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
126
88723
a5f3605a5bb8 Reinstate various CJK syntax and
Dave Love <fx@gnu.org>
parents: 88715
diff changeset
127 (map-charset-chars #'modify-category-entry 'chinese-gb2312 ?c)
89014
bd5768cb7537 Fix categories ?A and ?C.
Kenichi Handa <handa@m17n.org>
parents: 89008
diff changeset
128 (map-charset-chars #'modify-category-entry 'chinese-gb2312 ?A #x2330 #x2339)
bd5768cb7537 Fix categories ?A and ?C.
Kenichi Handa <handa@m17n.org>
parents: 89008
diff changeset
129 (map-charset-chars #'modify-category-entry 'chinese-gb2312 ?A #x2341 #x235A)
bd5768cb7537 Fix categories ?A and ?C.
Kenichi Handa <handa@m17n.org>
parents: 89008
diff changeset
130 (map-charset-chars #'modify-category-entry 'chinese-gb2312 ?A #x2361 #x237A)
88752
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
131 (map-charset-chars #'modify-category-entry 'chinese-gb2312 ?H #x2421 #x247E)
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
132 (map-charset-chars #'modify-category-entry 'chinese-gb2312 ?K #x2521 #x257E)
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
133 (map-charset-chars #'modify-category-entry 'chinese-gb2312 ?G #x2621 #x267E)
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
134 (map-charset-chars #'modify-category-entry 'chinese-gb2312 ?Y #x2721 #x277E)
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
135 (map-charset-chars #'modify-category-entry 'chinese-gb2312 ?C #x3021 #x7E7E)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
136
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
137 ;; Chinese character set (BIG5)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
138
88971
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
139 (map-charset-chars #'modify-category-entry 'big5 ?c)
89014
bd5768cb7537 Fix categories ?A and ?C.
Kenichi Handa <handa@m17n.org>
parents: 89008
diff changeset
140 (map-charset-chars #'modify-category-entry 'big5 ?C #xA259 #xA25F)
bd5768cb7537 Fix categories ?A and ?C.
Kenichi Handa <handa@m17n.org>
parents: 89008
diff changeset
141 (map-charset-chars #'modify-category-entry 'big5 ?C #xA440 #xC67E)
bd5768cb7537 Fix categories ?A and ?C.
Kenichi Handa <handa@m17n.org>
parents: 89008
diff changeset
142 (map-charset-chars #'modify-category-entry 'big5 ?C #xC940 #xF9DF)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
143
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
144 ;; Chinese character set (CNS11643)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
145
88723
a5f3605a5bb8 Reinstate various CJK syntax and
Dave Love <fx@gnu.org>
parents: 88715
diff changeset
146 (dolist (c '(chinese-cns11643-1 chinese-cns11643-2 chinese-cns11643-3
a5f3605a5bb8 Reinstate various CJK syntax and
Dave Love <fx@gnu.org>
parents: 88715
diff changeset
147 chinese-cns11643-4 chinese-cns11643-5 chinese-cns11643-6
a5f3605a5bb8 Reinstate various CJK syntax and
Dave Love <fx@gnu.org>
parents: 88715
diff changeset
148 chinese-cns11643-7))
a5f3605a5bb8 Reinstate various CJK syntax and
Dave Love <fx@gnu.org>
parents: 88715
diff changeset
149 (map-charset-chars #'modify-category-entry c ?c)
89014
bd5768cb7537 Fix categories ?A and ?C.
Kenichi Handa <handa@m17n.org>
parents: 89008
diff changeset
150 (if (eq c 'chinese-cns11643-1)
bd5768cb7537 Fix categories ?A and ?C.
Kenichi Handa <handa@m17n.org>
parents: 89008
diff changeset
151 (map-charset-chars #'modify-category-entry c ?C #x4421 #x7E7E)
89680
9f9a2db0bc5a Fix setting of category `|'.
Kenichi Handa <handa@m17n.org>
parents: 89635
diff changeset
152 (map-charset-chars #'modify-category-entry c ?C)))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
153
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89314
diff changeset
154 ;; Japanese character set (JISX0201, JISX0208, JISX0212, JISX0213)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
155
88752
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
156 (map-charset-chars #'modify-category-entry 'katakana-jisx0201 ?k)
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
157
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
158 (map-charset-chars #'modify-category-entry 'latin-jisx0201 ?r)
88403
3c6459e2914f Adjusted for the deletion of generic characters.
Kenichi Handa <handa@m17n.org>
parents: 41992
diff changeset
159
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89314
diff changeset
160 (dolist (l '(katakana-jisx0201 japanese-jisx0208 japanese-jisx0212
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89314
diff changeset
161 japanese-jisx0213-1 japanese-jisx0213-2))
89680
9f9a2db0bc5a Fix setting of category `|'.
Kenichi Handa <handa@m17n.org>
parents: 89635
diff changeset
162 (map-charset-chars #'modify-category-entry l ?j))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
163
41874
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
164 ;; Unicode equivalents of JISX0201-kana
88752
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
165 (let ((range '(#xff61 . #xff9f)))
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
166 (modify-category-entry range ?k)
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
167 (modify-category-entry range ?j)
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
168 (modify-category-entry range ?\|))
41874
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
169
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
170 ;; Katakana block
88752
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
171 (let ((range '(#x30a0 . #x30ff)))
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
172 ;; ?K is double width, ?k isn't specified
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
173 (modify-category-entry range ?K)
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
174 (modify-category-entry range ?\|))
41874
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
175
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
176 ;; Hiragana block
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89314
diff changeset
177 (let ((range '(#x3040 . #x309d)))
88752
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
178 ;; ?H is actually defined to be double width
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
179 ;;(modify-category-entry range ?H)
89680
9f9a2db0bc5a Fix setting of category `|'.
Kenichi Handa <handa@m17n.org>
parents: 89635
diff changeset
180 (modify-category-entry range ?\|)
88752
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
181 )
41874
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
182
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
183 ;; JISX0208
88752
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
184 (map-charset-chars #'modify-syntax-entry 'japanese-jisx0208 "_" #x2121 #x227E)
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
185 (map-charset-chars #'modify-syntax-entry 'japanese-jisx0208 "_" #x2821 #x287E)
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
186 (let ((chars '(?ー ?゛ ?゜ ?ヽ ?ヾ ?ゝ ?ゞ ?〃 ?仝 ?々 ?〆 ?〇)))
88519
98ec5d812ccc Set syntax/category for japanese-jisx0208.
Kenichi Handa <handa@m17n.org>
parents: 88492
diff changeset
187 (dolist (elt chars)
88612
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
188 (modify-syntax-entry (car chars) "w")))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
189
88752
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
190 (map-charset-chars #'modify-category-entry 'japanese-jisx0208 ?A #x2321 #x237E)
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
191 (map-charset-chars #'modify-category-entry 'japanese-jisx0208 ?H #x2421 #x247E)
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
192 (map-charset-chars #'modify-category-entry 'japanese-jisx0208 ?K #x2521 #x257E)
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
193 (map-charset-chars #'modify-category-entry 'japanese-jisx0208 ?G #x2621 #x267E)
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
194 (map-charset-chars #'modify-category-entry 'japanese-jisx0208 ?Y #x2721 #x277E)
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
195 (map-charset-chars #'modify-category-entry 'japanese-jisx0208 ?C #x3021 #x7E7E)
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
196 (modify-category-entry ?ー ?K)
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
197 (let ((chars '(?゛ ?゜)))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
198 (while chars
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
199 (modify-category-entry (car chars) ?K)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
200 (modify-category-entry (car chars) ?H)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
201 (setq chars (cdr chars))))
88752
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
202 (let ((chars '(?ヽ ?ヾ ?ゝ ?ゞ ?〃 ?仝 ?々 ?〆 ?〇)))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
203 (while chars
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
204 (modify-category-entry (car chars) ?C)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
205 (setq chars (cdr chars))))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
206
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
207 ;; JISX0212
88723
a5f3605a5bb8 Reinstate various CJK syntax and
Dave Love <fx@gnu.org>
parents: 88715
diff changeset
208
88752
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
209 (map-charset-chars #'modify-syntax-entry 'japanese-jisx0212 "_" #x2121 #x237E)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
210
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
211 ;; JISX0201-Kana
88723
a5f3605a5bb8 Reinstate various CJK syntax and
Dave Love <fx@gnu.org>
parents: 88715
diff changeset
212
88612
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
213 (let ((chars '(?。 ?、 ?・)))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
214 (while chars
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
215 (modify-syntax-entry (car chars) ".")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
216 (setq chars (cdr chars))))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
217
88469
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
218 (modify-syntax-entry ?\「 "(」")
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
219 (modify-syntax-entry ?\」 "(「")
36688
45b172fa5c17 Add category `j' for katakana-jisx0201. Fix syntaxes of
Kenichi Handa <handa@m17n.org>
parents: 34507
diff changeset
220
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
221 ;; Korean character set (KSC5601)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
222
88723
a5f3605a5bb8 Reinstate various CJK syntax and
Dave Love <fx@gnu.org>
parents: 88715
diff changeset
223 (map-charset-chars #'modify-category-entry 'korean-ksc5601 ?h)
88752
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
224
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
225 (map-charset-chars #'modify-syntax-entry 'korean-ksc5601 "_" #x2121 #x227E)
89117
39a217f682b4 Don't set char width of CJK
Dave Love <fx@gnu.org>
parents: 89084
diff changeset
226 (map-charset-chars #'modify-syntax-entry 'korean-ksc5601 "_" #x2621 #x277E)
39a217f682b4 Don't set char width of CJK
Dave Love <fx@gnu.org>
parents: 89084
diff changeset
227 (map-charset-chars #'modify-syntax-entry 'korean-ksc5601 "_" #x2830 #x287E)
39a217f682b4 Don't set char width of CJK
Dave Love <fx@gnu.org>
parents: 89084
diff changeset
228 (map-charset-chars #'modify-syntax-entry 'korean-ksc5601 "_" #x2930 #x297E)
89014
bd5768cb7537 Fix categories ?A and ?C.
Kenichi Handa <handa@m17n.org>
parents: 89008
diff changeset
229 (map-charset-chars #'modify-category-entry 'korean-ksc5601 ?A #x2330 #x2339)
bd5768cb7537 Fix categories ?A and ?C.
Kenichi Handa <handa@m17n.org>
parents: 89008
diff changeset
230 (map-charset-chars #'modify-category-entry 'korean-ksc5601 ?A #x2341 #x235A)
bd5768cb7537 Fix categories ?A and ?C.
Kenichi Handa <handa@m17n.org>
parents: 89008
diff changeset
231 (map-charset-chars #'modify-category-entry 'korean-ksc5601 ?A #x2361 #x237A)
88752
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
232 (map-charset-chars #'modify-category-entry 'korean-ksc5601 ?G #x2521 #x257E)
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
233 (map-charset-chars #'modify-category-entry 'korean-ksc5601 ?H #x2A21 #x2A7E)
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
234 (map-charset-chars #'modify-category-entry 'korean-ksc5601 ?K #x2B21 #x2B7E)
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
235 (map-charset-chars #'modify-category-entry 'korean-ksc5601 ?Y #x2C21 #x2C7E)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
236
89314
f040012c16bb Move parts around so that syntax
Dave Love <fx@gnu.org>
parents: 89291
diff changeset
237 ;; These are in more than one charset.
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89314
diff changeset
238 (let ((parens (concat "〈〉《》「」『』【】〔〕〖〗〘〙〚〛"
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89314
diff changeset
239 "︵︶︷︸︹︺︻︼︽︾︿﹀﹁﹂﹃﹄"
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89314
diff changeset
240 "()[]{}"))
55675
506ecef6bbf8 Fix syntax (open/close) of CJK characters.
Kenichi Handa <handa@m17n.org>
parents: 54657
diff changeset
241 open close)
506ecef6bbf8 Fix syntax (open/close) of CJK characters.
Kenichi Handa <handa@m17n.org>
parents: 54657
diff changeset
242 (dotimes (i (/ (length parens) 2))
506ecef6bbf8 Fix syntax (open/close) of CJK characters.
Kenichi Handa <handa@m17n.org>
parents: 54657
diff changeset
243 (setq open (aref parens (* i 2))
506ecef6bbf8 Fix syntax (open/close) of CJK characters.
Kenichi Handa <handa@m17n.org>
parents: 54657
diff changeset
244 close (aref parens (1+ (* i 2))))
506ecef6bbf8 Fix syntax (open/close) of CJK characters.
Kenichi Handa <handa@m17n.org>
parents: 54657
diff changeset
245 (modify-syntax-entry open (format "(%c" close))
506ecef6bbf8 Fix syntax (open/close) of CJK characters.
Kenichi Handa <handa@m17n.org>
parents: 54657
diff changeset
246 (modify-syntax-entry close (format ")%c" open))))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
247
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
248 ;; Arabic character set
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
249
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
250 (let ((charsets '(arabic-iso8859-6
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
251 arabic-digit
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
252 arabic-1-column
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
253 arabic-2-column)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
254 (while charsets
89314
f040012c16bb Move parts around so that syntax
Dave Love <fx@gnu.org>
parents: 89291
diff changeset
255 (map-charset-chars #'modify-category-entry (car charsets) ?b)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
256 (setq charsets (cdr charsets))))
89314
f040012c16bb Move parts around so that syntax
Dave Love <fx@gnu.org>
parents: 89291
diff changeset
257 (modify-category-entry '(#x600 . #x6ff) ?b)
f040012c16bb Move parts around so that syntax
Dave Love <fx@gnu.org>
parents: 89291
diff changeset
258 (modify-category-entry '(#xfb50 . #xfdff) ?b)
f040012c16bb Move parts around so that syntax
Dave Love <fx@gnu.org>
parents: 89291
diff changeset
259 (modify-category-entry '(#xfe70 . #xfefe) ?b)
55675
506ecef6bbf8 Fix syntax (open/close) of CJK characters.
Kenichi Handa <handa@m17n.org>
parents: 54657
diff changeset
260
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
261 ;; Cyrillic character set (ISO-8859-5)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
262
89314
f040012c16bb Move parts around so that syntax
Dave Love <fx@gnu.org>
parents: 89291
diff changeset
263 (modify-syntax-entry ?№ ".")
17753
de6be7f3b904 Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents: 17296
diff changeset
264
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
265 ;; Ethiopic character set
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
266
90535
5b86e23f4fdb Modify category-table and
Kenichi Handa <handa@m17n.org>
parents: 90488
diff changeset
267 (modify-category-entry '(#x1200 . #x1399) ?e)
5b86e23f4fdb Modify category-table and
Kenichi Handa <handa@m17n.org>
parents: 90488
diff changeset
268 (modify-category-entry '(#x2d80 . #x2dde) ?e)
91933
1a3f22533482 Delete occurances of non-Unicode
Kenichi Handa <handa@m17n.org>
parents: 91357
diff changeset
269 (let ((chars '(?፡ ?። ?፣ ?፤ ?፥ ?፦ ?፧ ?፨)))
18304
58b39b4108d5 Set syntaxes of Ethiopic characters.
Kenichi Handa <handa@m17n.org>
parents: 18205
diff changeset
270 (while chars
58b39b4108d5 Set syntaxes of Ethiopic characters.
Kenichi Handa <handa@m17n.org>
parents: 18205
diff changeset
271 (modify-syntax-entry (car chars) ".")
58b39b4108d5 Set syntaxes of Ethiopic characters.
Kenichi Handa <handa@m17n.org>
parents: 18205
diff changeset
272 (setq chars (cdr chars))))
89314
f040012c16bb Move parts around so that syntax
Dave Love <fx@gnu.org>
parents: 89291
diff changeset
273 (map-charset-chars #'modify-category-entry 'ethiopic ?e)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
274
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
275 ;; Hebrew character set (ISO-8859-8)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
276
89314
f040012c16bb Move parts around so that syntax
Dave Love <fx@gnu.org>
parents: 89291
diff changeset
277 (modify-syntax-entry #x5be ".") ; MAQAF
f040012c16bb Move parts around so that syntax
Dave Love <fx@gnu.org>
parents: 89291
diff changeset
278 (modify-syntax-entry #x5c0 ".") ; PASEQ
f040012c16bb Move parts around so that syntax
Dave Love <fx@gnu.org>
parents: 89291
diff changeset
279 (modify-syntax-entry #x5c3 ".") ; SOF PASUQ
f040012c16bb Move parts around so that syntax
Dave Love <fx@gnu.org>
parents: 89291
diff changeset
280 (modify-syntax-entry #x5f3 ".") ; GERESH
f040012c16bb Move parts around so that syntax
Dave Love <fx@gnu.org>
parents: 89291
diff changeset
281 (modify-syntax-entry #x5f4 ".") ; GERSHAYIM
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
282
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
283 ;; Indian character set (IS 13194 and other Emacs original Indian charsets)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
284
89314
f040012c16bb Move parts around so that syntax
Dave Love <fx@gnu.org>
parents: 89291
diff changeset
285 (modify-category-entry '(#x901 . #x970) ?i)
f040012c16bb Move parts around so that syntax
Dave Love <fx@gnu.org>
parents: 89291
diff changeset
286 (map-charset-chars #'modify-category-entry 'indian-is13194 ?i)
f040012c16bb Move parts around so that syntax
Dave Love <fx@gnu.org>
parents: 89291
diff changeset
287 (map-charset-chars #'modify-category-entry 'indian-2-column ?i)
33902
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
288
17078
874b471d6635 Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
289 ;; Lao character set
874b471d6635 Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
290
88612
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
291 (modify-category-entry '(#xe80 . #xeff) ?o)
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
292 (map-charset-chars #'modify-category-entry 'lao ?o)
17078
874b471d6635 Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
293
88612
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
294 (let ((deflist '(("ກ-ຮ" "w" ?0) ; consonant
88469
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
295 ("ະາຳຽເ-ໄ" "w" ?1) ; vowel base
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
296 ("ັິ-ືົໍ" "w" ?2) ; vowel upper
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
297 ("ຸູ" "w" ?3) ; vowel lower
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89314
diff changeset
298 ("່-໋" "w" ?4) ; tone mark
88469
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
299 ("ຼຽ" "w" ?9) ; semivowel lower
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
300 ("໐-໙" "w" ?6) ; digit
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
301 ("ຯໆ" "_" ?5) ; symbol
17078
874b471d6635 Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
302 ))
874b471d6635 Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
303 elm chars len syntax category to ch i)
874b471d6635 Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
304 (while deflist
874b471d6635 Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
305 (setq elm (car deflist))
874b471d6635 Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
306 (setq chars (car elm)
874b471d6635 Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
307 len (length chars)
874b471d6635 Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
308 syntax (nth 1 elm)
874b471d6635 Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
309 category (nth 2 elm)
874b471d6635 Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
310 i 0)
874b471d6635 Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
311 (while (< i len)
874b471d6635 Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
312 (if (= (aref chars i) ?-)
874b471d6635 Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
313 (setq i (1+ i)
20843
b60871b4710f Use aref instead of sref.
Kenichi Handa <handa@m17n.org>
parents: 20734
diff changeset
314 to (aref chars i))
b60871b4710f Use aref instead of sref.
Kenichi Handa <handa@m17n.org>
parents: 20734
diff changeset
315 (setq ch (aref chars i)
17078
874b471d6635 Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
316 to ch))
874b471d6635 Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
317 (while (<= ch to)
41874
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
318 (unless (string-equal syntax "w")
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
319 (modify-syntax-entry ch syntax))
17078
874b471d6635 Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
320 (modify-category-entry ch category)
874b471d6635 Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
321 (setq ch (1+ ch)))
20843
b60871b4710f Use aref instead of sref.
Kenichi Handa <handa@m17n.org>
parents: 20734
diff changeset
322 (setq i (1+ i)))
17078
874b471d6635 Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
323 (setq deflist (cdr deflist))))
874b471d6635 Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
324
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
325 ;; Thai character set (TIS620)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
326
88612
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
327 (modify-category-entry '(#xe00 . #xe7f) ?t)
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
328 (map-charset-chars #'modify-category-entry 'thai-tis620 ?t)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
329
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
330 (let ((deflist '(;; chars syntax category
88469
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
331 ("ก-รลว-ฮ" "w" ?0) ; consonant
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
332 ("ฤฦะาำเ-ๅ" "w" ?1) ; vowel base
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
333 ("ัิ-ื็๎" "w" ?2) ; vowel upper
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
334 ("ุ-ฺ" "w" ?3) ; vowel lower
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89314
diff changeset
335 ("่-ํ" "w" ?4) ; tone mark
88469
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
336 ("๐-๙" "w" ?6) ; digit
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
337 ("ฯๆ฿๏๚๛" "_" ?5) ; symbol
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
338 ))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
339 elm chars len syntax category to ch i)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
340 (while deflist
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
341 (setq elm (car deflist))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
342 (setq chars (car elm)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
343 len (length chars)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
344 syntax (nth 1 elm)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
345 category (nth 2 elm)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
346 i 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
347 (while (< i len)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
348 (if (= (aref chars i) ?-)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
349 (setq i (1+ i)
20843
b60871b4710f Use aref instead of sref.
Kenichi Handa <handa@m17n.org>
parents: 20734
diff changeset
350 to (aref chars i))
b60871b4710f Use aref instead of sref.
Kenichi Handa <handa@m17n.org>
parents: 20734
diff changeset
351 (setq ch (aref chars i)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
352 to ch))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
353 (while (<= ch to)
41874
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
354 (unless (string-equal syntax "w")
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
355 (modify-syntax-entry ch syntax))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
356 (modify-category-entry ch category)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
357 (setq ch (1+ ch)))
20843
b60871b4710f Use aref instead of sref.
Kenichi Handa <handa@m17n.org>
parents: 20734
diff changeset
358 (setq i (1+ i)))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
359 (setq deflist (cdr deflist))))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
360
17753
de6be7f3b904 Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents: 17296
diff changeset
361 ;; Tibetan character set
de6be7f3b904 Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents: 17296
diff changeset
362
88612
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
363 (modify-category-entry '(#xf00 . #xfff) ?q)
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
364 (map-charset-chars #'modify-category-entry 'tibetan ?q)
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
365 (map-charset-chars #'modify-category-entry 'tibetan-1-column ?q)
17753
de6be7f3b904 Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents: 17296
diff changeset
366
de6be7f3b904 Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents: 17296
diff changeset
367 (let ((deflist '(;; chars syntax category
88711
f3dce8f75e38 Add Vietnamese category to
Dave Love <fx@gnu.org>
parents: 88642
diff changeset
368 ("ཀ-ཀྵཪ" "w" ?0) ; consonant
91933
1a3f22533482 Delete occurances of non-Unicode
Kenichi Handa <handa@m17n.org>
parents: 91357
diff changeset
369 ("ྐ-ྐྵྺྻྼ" "w" ?0) ;
88711
f3dce8f75e38 Add Vietnamese category to
Dave Love <fx@gnu.org>
parents: 88642
diff changeset
370 ("ིེཻོཽྀ" "w" ?2) ; upper vowel
f3dce8f75e38 Add Vietnamese category to
Dave Love <fx@gnu.org>
parents: 88642
diff changeset
371 ("ཾྂྃ྆྇ྈྉྊྋ" "w" ?2) ; upper modifier
91933
1a3f22533482 Delete occurances of non-Unicode
Kenichi Handa <handa@m17n.org>
parents: 91357
diff changeset
372 ("྄ཱུ༙༵༷" "w" ?3) ; lowel vowel/modifier
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89314
diff changeset
373 ("཰" "w" ?3) ; invisible vowel a
88711
f3dce8f75e38 Add Vietnamese category to
Dave Love <fx@gnu.org>
parents: 88642
diff changeset
374 ("༠-༩༪-༳" "w" ?6) ; digit
f3dce8f75e38 Add Vietnamese category to
Dave Love <fx@gnu.org>
parents: 88642
diff changeset
375 ("་།-༒༔ཿ" "." ?|) ; line-break char
f3dce8f75e38 Add Vietnamese category to
Dave Love <fx@gnu.org>
parents: 88642
diff changeset
376 ("་།༏༐༑༔ཿ" "." ?|) ;
f3dce8f75e38 Add Vietnamese category to
Dave Love <fx@gnu.org>
parents: 88642
diff changeset
377 ("༈་།-༒༔ཿ༽༴" "." ?>) ; prohibition
f3dce8f75e38 Add Vietnamese category to
Dave Love <fx@gnu.org>
parents: 88642
diff changeset
378 ("་།༏༐༑༔ཿ" "." ?>) ;
f3dce8f75e38 Add Vietnamese category to
Dave Love <fx@gnu.org>
parents: 88642
diff changeset
379 ("ༀ-༊༼࿁࿂྅" "." ?<) ; prohibition
f3dce8f75e38 Add Vietnamese category to
Dave Love <fx@gnu.org>
parents: 88642
diff changeset
380 ("༓༕-༘༚-༟༶༸-༻༾༿྾྿-࿏" "." ?q) ; others
17753
de6be7f3b904 Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents: 17296
diff changeset
381 ))
de6be7f3b904 Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents: 17296
diff changeset
382 elm chars len syntax category to ch i)
de6be7f3b904 Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents: 17296
diff changeset
383 (while deflist
de6be7f3b904 Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents: 17296
diff changeset
384 (setq elm (car deflist))
de6be7f3b904 Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents: 17296
diff changeset
385 (setq chars (car elm)
de6be7f3b904 Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents: 17296
diff changeset
386 len (length chars)
de6be7f3b904 Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents: 17296
diff changeset
387 syntax (nth 1 elm)
de6be7f3b904 Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents: 17296
diff changeset
388 category (nth 2 elm)
de6be7f3b904 Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents: 17296
diff changeset
389 i 0)
de6be7f3b904 Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents: 17296
diff changeset
390 (while (< i len)
de6be7f3b904 Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents: 17296
diff changeset
391 (if (= (aref chars i) ?-)
de6be7f3b904 Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents: 17296
diff changeset
392 (setq i (1+ i)
20843
b60871b4710f Use aref instead of sref.
Kenichi Handa <handa@m17n.org>
parents: 20734
diff changeset
393 to (aref chars i))
b60871b4710f Use aref instead of sref.
Kenichi Handa <handa@m17n.org>
parents: 20734
diff changeset
394 (setq ch (aref chars i)
17753
de6be7f3b904 Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents: 17296
diff changeset
395 to ch))
de6be7f3b904 Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents: 17296
diff changeset
396 (while (<= ch to)
41874
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
397 (unless (string-equal syntax "w")
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
398 (modify-syntax-entry ch syntax))
17753
de6be7f3b904 Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents: 17296
diff changeset
399 (modify-category-entry ch category)
de6be7f3b904 Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents: 17296
diff changeset
400 (setq ch (1+ ch)))
20843
b60871b4710f Use aref instead of sref.
Kenichi Handa <handa@m17n.org>
parents: 20734
diff changeset
401 (setq i (1+ i)))
17753
de6be7f3b904 Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents: 17296
diff changeset
402 (setq deflist (cdr deflist))))
de6be7f3b904 Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents: 17296
diff changeset
403
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
404 ;; Vietnamese character set
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
405
88612
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
406 ;; To make a word with Latin characters
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
407 (map-charset-chars #'modify-category-entry 'vietnamese-viscii-lower ?l)
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
408 (map-charset-chars #'modify-category-entry 'vietnamese-viscii-lower ?v)
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
409
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
410 (map-charset-chars #'modify-category-entry 'vietnamese-viscii-upper ?l)
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
411 (map-charset-chars #'modify-category-entry 'vietnamese-viscii-upper ?v)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
412
27691
5ed8dd27c116 Setup case table for Vietnamese.
Kenichi Handa <handa@m17n.org>
parents: 26885
diff changeset
413 (let ((tbl (standard-case-table))
5ed8dd27c116 Setup case table for Vietnamese.
Kenichi Handa <handa@m17n.org>
parents: 26885
diff changeset
414 (i 32))
5ed8dd27c116 Setup case table for Vietnamese.
Kenichi Handa <handa@m17n.org>
parents: 26885
diff changeset
415 (while (< i 128)
88711
f3dce8f75e38 Add Vietnamese category to
Dave Love <fx@gnu.org>
parents: 88642
diff changeset
416 (let* ((char (decode-char 'vietnamese-viscii-upper i))
f3dce8f75e38 Add Vietnamese category to
Dave Love <fx@gnu.org>
parents: 88642
diff changeset
417 (charl (decode-char 'vietnamese-viscii-lower i))
f3dce8f75e38 Add Vietnamese category to
Dave Love <fx@gnu.org>
parents: 88642
diff changeset
418 (uc (encode-char char 'ucs))
f3dce8f75e38 Add Vietnamese category to
Dave Love <fx@gnu.org>
parents: 88642
diff changeset
419 (lc (encode-char charl 'ucs)))
f3dce8f75e38 Add Vietnamese category to
Dave Love <fx@gnu.org>
parents: 88642
diff changeset
420 (set-case-syntax-pair char (decode-char 'vietnamese-viscii-lower i)
f3dce8f75e38 Add Vietnamese category to
Dave Love <fx@gnu.org>
parents: 88642
diff changeset
421 tbl)
f3dce8f75e38 Add Vietnamese category to
Dave Love <fx@gnu.org>
parents: 88642
diff changeset
422 (if uc (modify-category-entry uc ?v))
f3dce8f75e38 Add Vietnamese category to
Dave Love <fx@gnu.org>
parents: 88642
diff changeset
423 (if lc (modify-category-entry lc ?v)))
27691
5ed8dd27c116 Setup case table for Vietnamese.
Kenichi Handa <handa@m17n.org>
parents: 26885
diff changeset
424 (setq i (1+ i))))
5ed8dd27c116 Setup case table for Vietnamese.
Kenichi Handa <handa@m17n.org>
parents: 26885
diff changeset
425
90945
3046ffe96f58 Setup syntax/category table for Tai Viet.
Kenichi Handa <handa@m17n.org>
parents: 90792
diff changeset
426 ;; Tai Viet
3046ffe96f58 Setup syntax/category table for Tai Viet.
Kenichi Handa <handa@m17n.org>
parents: 90792
diff changeset
427 (let ((deflist '(;; chars syntax category
3046ffe96f58 Setup syntax/category table for Tai Viet.
Kenichi Handa <handa@m17n.org>
parents: 90792
diff changeset
428 ((?ꪀ. ?ꪯ) "w" ?0) ; cosonant
3046ffe96f58 Setup syntax/category table for Tai Viet.
Kenichi Handa <handa@m17n.org>
parents: 90792
diff changeset
429 ("ꪱꪵꪶ" "w" ?1) ; vowel base
3046ffe96f58 Setup syntax/category table for Tai Viet.
Kenichi Handa <handa@m17n.org>
parents: 90792
diff changeset
430 ((?ꪹ . ?ꪽ) "w" ?1) ; vowel base
3046ffe96f58 Setup syntax/category table for Tai Viet.
Kenichi Handa <handa@m17n.org>
parents: 90792
diff changeset
431 ("ꪰꪲꪳꪷꪸꪾ" "w" ?2) ; vowel upper
3046ffe96f58 Setup syntax/category table for Tai Viet.
Kenichi Handa <handa@m17n.org>
parents: 90792
diff changeset
432 ("ꪴ" "w" ?3) ; vowel lower
3046ffe96f58 Setup syntax/category table for Tai Viet.
Kenichi Handa <handa@m17n.org>
parents: 90792
diff changeset
433 ("ꫀꫂ" "w" ?1) ; non-combining tone-mark
3046ffe96f58 Setup syntax/category table for Tai Viet.
Kenichi Handa <handa@m17n.org>
parents: 90792
diff changeset
434 ("꪿꫁" "w" ?4) ; combining tone-mark
3046ffe96f58 Setup syntax/category table for Tai Viet.
Kenichi Handa <handa@m17n.org>
parents: 90792
diff changeset
435 ((?ꫛ . ?꫟) "_" ?5) ; symbol
3046ffe96f58 Setup syntax/category table for Tai Viet.
Kenichi Handa <handa@m17n.org>
parents: 90792
diff changeset
436 )))
3046ffe96f58 Setup syntax/category table for Tai Viet.
Kenichi Handa <handa@m17n.org>
parents: 90792
diff changeset
437 (dolist (elm deflist)
3046ffe96f58 Setup syntax/category table for Tai Viet.
Kenichi Handa <handa@m17n.org>
parents: 90792
diff changeset
438 (let ((chars (car elm))
3046ffe96f58 Setup syntax/category table for Tai Viet.
Kenichi Handa <handa@m17n.org>
parents: 90792
diff changeset
439 (syntax (nth 1 elm))
3046ffe96f58 Setup syntax/category table for Tai Viet.
Kenichi Handa <handa@m17n.org>
parents: 90792
diff changeset
440 (category (nth 2 elm)))
3046ffe96f58 Setup syntax/category table for Tai Viet.
Kenichi Handa <handa@m17n.org>
parents: 90792
diff changeset
441 (if (consp chars)
3046ffe96f58 Setup syntax/category table for Tai Viet.
Kenichi Handa <handa@m17n.org>
parents: 90792
diff changeset
442 (progn
3046ffe96f58 Setup syntax/category table for Tai Viet.
Kenichi Handa <handa@m17n.org>
parents: 90792
diff changeset
443 (modify-syntax-entry chars syntax)
3046ffe96f58 Setup syntax/category table for Tai Viet.
Kenichi Handa <handa@m17n.org>
parents: 90792
diff changeset
444 (modify-category-entry chars category))
3046ffe96f58 Setup syntax/category table for Tai Viet.
Kenichi Handa <handa@m17n.org>
parents: 90792
diff changeset
445 (mapc #'(lambda (x)
3046ffe96f58 Setup syntax/category table for Tai Viet.
Kenichi Handa <handa@m17n.org>
parents: 90792
diff changeset
446 (modify-syntax-entry x syntax)
3046ffe96f58 Setup syntax/category table for Tai Viet.
Kenichi Handa <handa@m17n.org>
parents: 90792
diff changeset
447 (modify-category-entry x category))
3046ffe96f58 Setup syntax/category table for Tai Viet.
Kenichi Handa <handa@m17n.org>
parents: 90792
diff changeset
448 chars)))))
89314
f040012c16bb Move parts around so that syntax
Dave Love <fx@gnu.org>
parents: 89291
diff changeset
449
f040012c16bb Move parts around so that syntax
Dave Love <fx@gnu.org>
parents: 89291
diff changeset
450 ;; Latin
f040012c16bb Move parts around so that syntax
Dave Love <fx@gnu.org>
parents: 89291
diff changeset
451
f040012c16bb Move parts around so that syntax
Dave Love <fx@gnu.org>
parents: 89291
diff changeset
452 (modify-category-entry '(#x80 . #x024F) ?l)
33902
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
453
34507
ed8ea5cf198b Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 33902
diff changeset
454 (let ((tbl (standard-case-table)) c)
ed8ea5cf198b Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 33902
diff changeset
455
89146
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
456 ;; Latin-1
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
457
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
458 ;; Fixme: Some of the non-word syntaxes here perhaps should be
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
459 ;; reviewed. (Note that the following all implicitly have word
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
460 ;; syntax: ¢£¤¥¨ª¯²³´¶¸¹º.) There should be a well-defined way of
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
461 ;; relating Unicode categories to Emacs syntax codes.
90146
a4445dd2a017 Set syntax of NBSP to punctuation.
Kenichi Handa <handa@m17n.org>
parents: 89923
diff changeset
462
a4445dd2a017 Set syntax of NBSP to punctuation.
Kenichi Handa <handa@m17n.org>
parents: 89923
diff changeset
463 ;; NBSP isn't semantically interchangeable with other whitespace chars,
a4445dd2a017 Set syntax of NBSP to punctuation.
Kenichi Handa <handa@m17n.org>
parents: 89923
diff changeset
464 ;; so it's more like punctation.
a4445dd2a017 Set syntax of NBSP to punctuation.
Kenichi Handa <handa@m17n.org>
parents: 89923
diff changeset
465 (set-case-syntax ?  "." tbl)
89146
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
466 (set-case-syntax ?¡ "." tbl)
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
467 (set-case-syntax ?¦ "_" tbl)
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
468 (set-case-syntax ?§ "." tbl)
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
469 (set-case-syntax ?© "_" tbl)
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
470 (set-case-syntax-delims 171 187 tbl) ; « »
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
471 (set-case-syntax ?¬ "_" tbl)
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
472 (set-case-syntax ?­ "_" tbl)
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
473 (set-case-syntax ?® "_" tbl)
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
474 (set-case-syntax ?° "_" tbl)
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
475 (set-case-syntax ?± "_" tbl)
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
476 (set-case-syntax ?µ "_" tbl)
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
477 (set-case-syntax ?· "_" tbl)
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
478 (set-case-syntax ?¼ "_" tbl)
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
479 (set-case-syntax ?½ "_" tbl)
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
480 (set-case-syntax ?¾ "_" tbl)
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
481 (set-case-syntax ?¿ "." tbl)
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
482 (let ((c 192))
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
483 (while (<= c 222)
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
484 (set-case-syntax-pair c (+ c 32) tbl)
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
485 (setq c (1+ c))))
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
486 (set-case-syntax ?× "_" tbl)
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
487 (set-case-syntax ?ß "w" tbl)
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
488 (set-case-syntax ?÷ "_" tbl)
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
489 ;; See below for ÿ.
34507
ed8ea5cf198b Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 33902
diff changeset
490
ed8ea5cf198b Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 33902
diff changeset
491 ;; Latin Extended-A, Latin Extended-B
ed8ea5cf198b Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 33902
diff changeset
492 (setq c #x0100)
90792
e8573c9233d0 Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents: 90751
diff changeset
493 (while (<= c #x02B8)
e8573c9233d0 Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents: 90751
diff changeset
494 (modify-category-entry c ?l)
76328
ba37b237dffb Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 76327
diff changeset
495 (setq c (1+ c)))
76320
7bc5977e9593 Set category `l' (latin) for more
Kenichi Handa <handa@m17n.org>
parents: 75827
diff changeset
496
90792
e8573c9233d0 Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents: 90751
diff changeset
497 (let ((pair-ranges '((#x0100 . #x012F)
e8573c9233d0 Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents: 90751
diff changeset
498 (#x0132 . #x0137)
e8573c9233d0 Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents: 90751
diff changeset
499 (#x0139 . #x0148)
e8573c9233d0 Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents: 90751
diff changeset
500 (#x014a . #x0177)
e8573c9233d0 Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents: 90751
diff changeset
501 (#x0179 . #x017E)
e8573c9233d0 Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents: 90751
diff changeset
502 (#x0182 . #x0185)
e8573c9233d0 Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents: 90751
diff changeset
503 (#x0187 . #x018C)
e8573c9233d0 Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents: 90751
diff changeset
504 (#x0191 . #x0192)
e8573c9233d0 Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents: 90751
diff changeset
505 (#x0198 . #x0199)
e8573c9233d0 Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents: 90751
diff changeset
506 (#x01A0 . #x01A5)
e8573c9233d0 Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents: 90751
diff changeset
507 (#x01A7 . #x01A8)
e8573c9233d0 Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents: 90751
diff changeset
508 (#x01AC . #x01AD)
e8573c9233d0 Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents: 90751
diff changeset
509 (#x01AF . #x01B0)
e8573c9233d0 Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents: 90751
diff changeset
510 (#x01B3 . #x01B6)
e8573c9233d0 Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents: 90751
diff changeset
511 (#x01BC . #x01BD)
e8573c9233d0 Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents: 90751
diff changeset
512 (#x01CD . #x01DC)
e8573c9233d0 Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents: 90751
diff changeset
513 (#x01DE . #x01EF)
e8573c9233d0 Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents: 90751
diff changeset
514 (#x01F4 . #x01F5)
e8573c9233d0 Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents: 90751
diff changeset
515 (#x01F8 . #x021F)
e8573c9233d0 Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents: 90751
diff changeset
516 (#x0222 . #x0233)
e8573c9233d0 Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents: 90751
diff changeset
517 (#x023B . #x023C)
e8573c9233d0 Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents: 90751
diff changeset
518 (#x0241 . #x0242)
e8573c9233d0 Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents: 90751
diff changeset
519 (#x0246 . #x024F))))
e8573c9233d0 Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents: 90751
diff changeset
520 (dolist (elt pair-ranges)
e8573c9233d0 Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents: 90751
diff changeset
521 (let ((from (car elt)) (to (cdr elt)))
e8573c9233d0 Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents: 90751
diff changeset
522 (while (< from to)
e8573c9233d0 Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents: 90751
diff changeset
523 (set-case-syntax-pair from (1+ from) tbl)
e8573c9233d0 Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents: 90751
diff changeset
524 (setq from (+ from 2))))))
73944
dba240f0d108 (case table): Do nothing special for i and I.
Richard M. Stallman <rms@gnu.org>
parents: 71399
diff changeset
525
dba240f0d108 (case table): Do nothing special for i and I.
Richard M. Stallman <rms@gnu.org>
parents: 71399
diff changeset
526 ;; In some languages, such as Turkish, U+0049 LATIN CAPITAL LETTER I
dba240f0d108 (case table): Do nothing special for i and I.
Richard M. Stallman <rms@gnu.org>
parents: 71399
diff changeset
527 ;; and U+0131 LATIN SMALL LETTER DOTLESS I make a case pair, and so
dba240f0d108 (case table): Do nothing special for i and I.
Richard M. Stallman <rms@gnu.org>
parents: 71399
diff changeset
528 ;; do U+0130 LATIN CAPITAL LETTER I WITH DOT ABOVE and U+0069 LATIN
dba240f0d108 (case table): Do nothing special for i and I.
Richard M. Stallman <rms@gnu.org>
parents: 71399
diff changeset
529 ;; SMALL LETTER I.
dba240f0d108 (case table): Do nothing special for i and I.
Richard M. Stallman <rms@gnu.org>
parents: 71399
diff changeset
530
dba240f0d108 (case table): Do nothing special for i and I.
Richard M. Stallman <rms@gnu.org>
parents: 71399
diff changeset
531 ;; We used to set up half of those correspondence unconditionally,
dba240f0d108 (case table): Do nothing special for i and I.
Richard M. Stallman <rms@gnu.org>
parents: 71399
diff changeset
532 ;; but that makes searches slow. So now we don't set up either half
dba240f0d108 (case table): Do nothing special for i and I.
Richard M. Stallman <rms@gnu.org>
parents: 71399
diff changeset
533 ;; of these correspondences by default.
dba240f0d108 (case table): Do nothing special for i and I.
Richard M. Stallman <rms@gnu.org>
parents: 71399
diff changeset
534
90669
664b50fcda5b Sync with HEAD.
Kenichi Handa <handa@m17n.org>
parents: 90654
diff changeset
535 ;; (set-downcase-syntax ?İ ?i tbl)
664b50fcda5b Sync with HEAD.
Kenichi Handa <handa@m17n.org>
parents: 90654
diff changeset
536 ;; (set-upcase-syntax ?I ?ı tbl)
33902
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
537
88469
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
538 (set-case-syntax-pair ?DŽ ?dž tbl)
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
539 (set-case-syntax-pair ?Dž ?dž tbl)
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
540 (set-case-syntax-pair ?LJ ?lj tbl)
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
541 (set-case-syntax-pair ?Lj ?lj tbl)
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
542 (set-case-syntax-pair ?NJ ?nj tbl)
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
543 (set-case-syntax-pair ?Nj ?nj tbl)
90792
e8573c9233d0 Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents: 90751
diff changeset
544
41874
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
545 ;; 01F0; F; 006A 030C; # LATIN SMALL LETTER J WITH CARON
88469
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
546 (set-case-syntax-pair ?DZ ?dz tbl)
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
547 (set-case-syntax-pair ?Dz ?dz tbl)
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
548 (set-case-syntax-pair ?Ƕ ?ƕ tbl)
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
549 (set-case-syntax-pair ?Ƿ ?ƿ tbl)
41874
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
550
34507
ed8ea5cf198b Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 33902
diff changeset
551 ;; Latin Extended Additional
88612
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
552 (modify-category-entry '(#x1e00 . #x1ef9) ?l)
34507
ed8ea5cf198b Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 33902
diff changeset
553 (setq c #x1e00)
33902
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
554 (while (<= c #x1ef9)
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
555 (and (zerop (% c 2))
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
556 (or (<= c #x1e94) (>= c #x1ea0))
88612
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
557 (set-case-syntax-pair c (1+ c) tbl))
33902
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
558 (setq c (1+ c)))
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
559
34507
ed8ea5cf198b Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 33902
diff changeset
560 ;; Greek
88612
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
561 (modify-category-entry '(#x0370 . #x03ff) ?g)
34507
ed8ea5cf198b Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 33902
diff changeset
562 (setq c #x0370)
33902
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
563 (while (<= c #x03ff)
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
564 (if (or (and (>= c #x0391) (<= c #x03a1))
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
565 (and (>= c #x03a3) (<= c #x03ab)))
88612
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
566 (set-case-syntax-pair c (+ c 32) tbl))
33902
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
567 (and (>= c #x03da)
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
568 (<= c #x03ee)
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
569 (zerop (% c 2))
88612
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
570 (set-case-syntax-pair c (1+ c) tbl))
33902
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
571 (setq c (1+ c)))
88469
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
572 (set-case-syntax-pair ?Ά ?ά tbl)
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
573 (set-case-syntax-pair ?Έ ?έ tbl)
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
574 (set-case-syntax-pair ?Ή ?ή tbl)
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
575 (set-case-syntax-pair ?Ί ?ί tbl)
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
576 (set-case-syntax-pair ?Ό ?ό tbl)
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
577 (set-case-syntax-pair ?Ύ ?ύ tbl)
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
578 (set-case-syntax-pair ?Ώ ?ώ tbl)
33902
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
579
41874
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
580 ;; Armenian
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
581 (setq c #x531)
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
582 (while (<= c #x556)
88612
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
583 (set-case-syntax-pair c (+ c #x30) tbl)
41874
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
584 (setq c (1+ c)))
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
585
34507
ed8ea5cf198b Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 33902
diff changeset
586 ;; Greek Extended
88612
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
587 (modify-category-entry '(#x1f00 . #x1fff) ?g)
34507
ed8ea5cf198b Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 33902
diff changeset
588 (setq c #x1f00)
33902
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
589 (while (<= c #x1fff)
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
590 (and (<= (logand c #x000f) 7)
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
591 (<= c #x1fa7)
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
592 (not (memq c '(#x1f50 #x1f52 #x1f54 #x1f56)))
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
593 (/= (logand c #x00f0) 7)
88612
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
594 (set-case-syntax-pair (+ c 8) c tbl))
33902
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
595 (setq c (1+ c)))
88469
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
596 (set-case-syntax-pair ?Ᾰ ?ᾰ tbl)
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
597 (set-case-syntax-pair ?Ᾱ ?ᾱ tbl)
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
598 (set-case-syntax-pair ?Ὰ ?ὰ tbl)
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
599 (set-case-syntax-pair ?Ά ?ά tbl)
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
600 (set-case-syntax-pair ?ᾼ ?ᾳ tbl)
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
601 (set-case-syntax-pair ?Ὲ ?ὲ tbl)
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
602 (set-case-syntax-pair ?Έ ?έ tbl)
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
603 (set-case-syntax-pair ?Ὴ ?ὴ tbl)
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
604 (set-case-syntax-pair ?Ή ?ή tbl)
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
605 (set-case-syntax-pair ?ῌ ?ῃ tbl)
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
606 (set-case-syntax-pair ?Ῐ ?ῐ tbl)
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
607 (set-case-syntax-pair ?Ῑ ?ῑ tbl)
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
608 (set-case-syntax-pair ?Ὶ ?ὶ tbl)
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
609 (set-case-syntax-pair ?Ί ?ί tbl)
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
610 (set-case-syntax-pair ?Ῠ ?ῠ tbl)
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
611 (set-case-syntax-pair ?Ῡ ?ῡ tbl)
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
612 (set-case-syntax-pair ?Ὺ ?ὺ tbl)
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
613 (set-case-syntax-pair ?Ύ ?ύ tbl)
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
614 (set-case-syntax-pair ?Ῥ ?ῥ tbl)
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
615 (set-case-syntax-pair ?Ὸ ?ὸ tbl)
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
616 (set-case-syntax-pair ?Ό ?ό tbl)
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
617 (set-case-syntax-pair ?Ὼ ?ὼ tbl)
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
618 (set-case-syntax-pair ?Ώ ?ώ tbl)
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
619 (set-case-syntax-pair ?ῼ ?ῳ tbl)
33902
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
620
34507
ed8ea5cf198b Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 33902
diff changeset
621 ;; cyrillic
88612
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
622 (modify-category-entry '(#x0400 . #x04FF) ?y)
34507
ed8ea5cf198b Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 33902
diff changeset
623 (setq c #x0400)
33902
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
624 (while (<= c #x04ff)
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
625 (and (>= c #x0400)
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
626 (<= c #x040f)
88612
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
627 (set-case-syntax-pair c (+ c 80) tbl))
33902
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
628 (and (>= c #x0410)
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
629 (<= c #x042f)
88612
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
630 (set-case-syntax-pair c (+ c 32) tbl))
33902
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
631 (and (zerop (% c 2))
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
632 (or (and (>= c #x0460) (<= c #x0480))
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
633 (and (>= c #x048c) (<= c #x04be))
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
634 (and (>= c #x04d0) (<= c #x04f4)))
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89314
diff changeset
635 (set-case-syntax-pair c (1+ c) tbl))
33902
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
636 (setq c (1+ c)))
88469
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
637 (set-case-syntax-pair ?Ӂ ?ӂ tbl)
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
638 (set-case-syntax-pair ?Ӄ ?ӄ tbl)
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
639 (set-case-syntax-pair ?Ӈ ?ӈ tbl)
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
640 (set-case-syntax-pair ?Ӌ ?ӌ tbl)
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
641 (set-case-syntax-pair ?Ӹ ?ӹ tbl)
33902
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
642
34507
ed8ea5cf198b Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 33902
diff changeset
643 ;; general punctuation
ed8ea5cf198b Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 33902
diff changeset
644 (setq c #x2000)
33902
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
645 (while (<= c #x200b)
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
646 (set-case-syntax c " " tbl)
52950
5e8fca3de28c Fix some Unicode ranges.
Dave Love <fx@gnu.org>
parents: 52401
diff changeset
647 (setq c (1+ c)))
89119
fa0f7b37ba32 Add some non-word syntax cases.
Dave Love <fx@gnu.org>
parents: 89117
diff changeset
648 (while (<= c #x200F)
fa0f7b37ba32 Add some non-word syntax cases.
Dave Love <fx@gnu.org>
parents: 89117
diff changeset
649 (set-case-syntax c "." tbl)
fa0f7b37ba32 Add some non-word syntax cases.
Dave Love <fx@gnu.org>
parents: 89117
diff changeset
650 (setq c (1+ c)))
fa0f7b37ba32 Add some non-word syntax cases.
Dave Love <fx@gnu.org>
parents: 89117
diff changeset
651 ;; Fixme: These aren't all right:
33902
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
652 (setq c #x2010)
52950
5e8fca3de28c Fix some Unicode ranges.
Dave Love <fx@gnu.org>
parents: 52401
diff changeset
653 (while (<= c #x2016)
89909
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89896
diff changeset
654 (set-case-syntax c "_" tbl)
52950
5e8fca3de28c Fix some Unicode ranges.
Dave Love <fx@gnu.org>
parents: 52401
diff changeset
655 (setq c (1+ c)))
5e8fca3de28c Fix some Unicode ranges.
Dave Love <fx@gnu.org>
parents: 52401
diff changeset
656 ;; Punctuation syntax for quotation marks (like `)
5e8fca3de28c Fix some Unicode ranges.
Dave Love <fx@gnu.org>
parents: 52401
diff changeset
657 (while (<= c #x201f)
89909
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89896
diff changeset
658 (set-case-syntax c "." tbl)
52950
5e8fca3de28c Fix some Unicode ranges.
Dave Love <fx@gnu.org>
parents: 52401
diff changeset
659 (setq c (1+ c)))
89909
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89896
diff changeset
660 ;; Fixme: These aren't all right:
33902
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
661 (while (<= c #x2027)
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
662 (set-case-syntax c "_" tbl)
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
663 (setq c (1+ c)))
89119
fa0f7b37ba32 Add some non-word syntax cases.
Dave Love <fx@gnu.org>
parents: 89117
diff changeset
664 (while (<= c #x206F)
fa0f7b37ba32 Add some non-word syntax cases.
Dave Love <fx@gnu.org>
parents: 89117
diff changeset
665 (set-case-syntax c "." tbl)
52950
5e8fca3de28c Fix some Unicode ranges.
Dave Love <fx@gnu.org>
parents: 52401
diff changeset
666 (setq c (1+ c)))
41874
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
667
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
668 ;; Roman numerals
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
669 (setq c #x2160)
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
670 (while (<= c #x216f)
88612
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
671 (set-case-syntax-pair c (+ c #x10) tbl)
41874
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
672 (setq c (1+ c)))
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
673
89146
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
674 ;; Fixme: The following blocks might be better as symbol rather than
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
675 ;; punctuation.
89119
fa0f7b37ba32 Add some non-word syntax cases.
Dave Love <fx@gnu.org>
parents: 89117
diff changeset
676 ;; Arrows
fa0f7b37ba32 Add some non-word syntax cases.
Dave Love <fx@gnu.org>
parents: 89117
diff changeset
677 (setq c #x2190)
89121
d7638593beca Fix last change.
Dave Love <fx@gnu.org>
parents: 89119
diff changeset
678 (while (<= c #x21FF)
d7638593beca Fix last change.
Dave Love <fx@gnu.org>
parents: 89119
diff changeset
679 (set-case-syntax c "." tbl)
89119
fa0f7b37ba32 Add some non-word syntax cases.
Dave Love <fx@gnu.org>
parents: 89117
diff changeset
680 (setq c (1+ c)))
fa0f7b37ba32 Add some non-word syntax cases.
Dave Love <fx@gnu.org>
parents: 89117
diff changeset
681 ;; Mathematical Operators
fa0f7b37ba32 Add some non-word syntax cases.
Dave Love <fx@gnu.org>
parents: 89117
diff changeset
682 (while (<= c #x22FF)
89121
d7638593beca Fix last change.
Dave Love <fx@gnu.org>
parents: 89119
diff changeset
683 (set-case-syntax c "." tbl)
89119
fa0f7b37ba32 Add some non-word syntax cases.
Dave Love <fx@gnu.org>
parents: 89117
diff changeset
684 (setq c (1+ c)))
fa0f7b37ba32 Add some non-word syntax cases.
Dave Love <fx@gnu.org>
parents: 89117
diff changeset
685 ;; Miscellaneous Technical
fa0f7b37ba32 Add some non-word syntax cases.
Dave Love <fx@gnu.org>
parents: 89117
diff changeset
686 (while (<= c #x23FF)
89121
d7638593beca Fix last change.
Dave Love <fx@gnu.org>
parents: 89119
diff changeset
687 (set-case-syntax c "." tbl)
89119
fa0f7b37ba32 Add some non-word syntax cases.
Dave Love <fx@gnu.org>
parents: 89117
diff changeset
688 (setq c (1+ c)))
fa0f7b37ba32 Add some non-word syntax cases.
Dave Love <fx@gnu.org>
parents: 89117
diff changeset
689 ;; Control Pictures
fa0f7b37ba32 Add some non-word syntax cases.
Dave Love <fx@gnu.org>
parents: 89117
diff changeset
690 (while (<= c #x243F)
89121
d7638593beca Fix last change.
Dave Love <fx@gnu.org>
parents: 89119
diff changeset
691 (set-case-syntax c "_" tbl)
41874
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
692 (setq c (1+ c)))
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
693
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
694 ;; Circled Latin
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
695 (setq c #x24b6)
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
696 (while (<= c #x24cf)
88612
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
697 (set-case-syntax-pair c (+ c 26) tbl)
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
698 (modify-category-entry c ?l)
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
699 (modify-category-entry (+ c 26) ?l)
41874
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
700 (setq c (1+ c)))
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
701
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
702 ;; Fullwidth Latin
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
703 (setq c #xff21)
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
704 (while (<= c #xff3a)
88612
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
705 (set-case-syntax-pair c (+ c #x20) tbl)
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
706 (modify-category-entry c ?l)
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
707 (modify-category-entry (+ c #x20) ?l)
41874
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
708 (setq c (1+ c)))
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
709
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
710 ;; Combining diacritics
88612
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
711 (modify-category-entry '(#x300 . #x362) ?^)
41874
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
712 ;; Combining marks
88612
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
713 (modify-category-entry '(#x20d0 . #x20e3) ?^)
41874
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
714
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
715 ;; Fixme: syntax for symbols &c
33902
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
716 )
54510
99f05a0b48dd Setup syntaxes for more parentheses Unicode characters.
Kenichi Handa <handa@m17n.org>
parents: 52950
diff changeset
717
99f05a0b48dd Setup syntaxes for more parentheses Unicode characters.
Kenichi Handa <handa@m17n.org>
parents: 52950
diff changeset
718 (let ((pairs
89914
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
719 '("⁅⁆" ; U+2045 U+2046
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
720 "⁽⁾" ; U+207D U+207E
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
721 "₍₎" ; U+208D U+208E
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
722 "〈〉" ; U+2329 U+232A
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
723 "⎴⎵" ; U+23B4 U+23B5
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
724 "❨❩" ; U+2768 U+2769
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
725 "❪❫" ; U+276A U+276B
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
726 "❬❭" ; U+276C U+276D
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
727 "❰❱" ; U+2770 U+2771
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
728 "❲❳" ; U+2772 U+2773
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
729 "❴❵" ; U+2774 U+2775
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
730 "⟦⟧" ; U+27E6 U+27E7
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
731 "⟨⟩" ; U+27E8 U+27E9
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
732 "⟪⟫" ; U+27EA U+27EB
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
733 "⦃⦄" ; U+2983 U+2984
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
734 "⦅⦆" ; U+2985 U+2986
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
735 "⦇⦈" ; U+2987 U+2988
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
736 "⦉⦊" ; U+2989 U+298A
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
737 "⦋⦌" ; U+298B U+298C
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
738 "⦍⦎" ; U+298D U+298E
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
739 "⦏⦐" ; U+298F U+2990
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
740 "⦑⦒" ; U+2991 U+2992
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
741 "⦓⦔" ; U+2993 U+2994
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
742 "⦕⦖" ; U+2995 U+2996
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
743 "⦗⦘" ; U+2997 U+2998
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
744 "⧼⧽" ; U+29FC U+29FD
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
745 "〈〉" ; U+3008 U+3009
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
746 "《》" ; U+300A U+300B
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
747 "「」" ; U+300C U+300D
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
748 "『』" ; U+300E U+300F
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
749 "【】" ; U+3010 U+3011
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
750 "〔〕" ; U+3014 U+3015
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
751 "〖〗" ; U+3016 U+3017
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
752 "〘〙" ; U+3018 U+3019
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
753 "〚〛" ; U+301A U+301B
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
754 "﴾﴿" ; U+FD3E U+FD3F
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
755 "︵︶" ; U+FE35 U+FE36
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
756 "︷︸" ; U+FE37 U+FE38
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
757 "︹︺" ; U+FE39 U+FE3A
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
758 "︻︼" ; U+FE3B U+FE3C
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
759 "︽︾" ; U+FE3D U+FE3E
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
760 "︿﹀" ; U+FE3F U+FE40
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
761 "﹁﹂" ; U+FE41 U+FE42
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
762 "﹃﹄" ; U+FE43 U+FE44
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
763 "﹙﹚" ; U+FE59 U+FE5A
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
764 "﹛﹜" ; U+FE5B U+FE5C
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
765 "﹝﹞" ; U+FE5D U+FE5E
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
766 "()" ; U+FF08 U+FF09
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
767 "[]" ; U+FF3B U+FF3D
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
768 "{}" ; U+FF5B U+FF5D
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
769 "⦅⦆" ; U+FF5F U+FF60
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
770 "「」" ; U+FF62 U+FF63
54510
99f05a0b48dd Setup syntaxes for more parentheses Unicode characters.
Kenichi Handa <handa@m17n.org>
parents: 52950
diff changeset
771 )))
99f05a0b48dd Setup syntaxes for more parentheses Unicode characters.
Kenichi Handa <handa@m17n.org>
parents: 52950
diff changeset
772 (dolist (elt pairs)
99f05a0b48dd Setup syntaxes for more parentheses Unicode characters.
Kenichi Handa <handa@m17n.org>
parents: 52950
diff changeset
773 (modify-syntax-entry (aref elt 0) (string ?\( (aref elt 1)))
99f05a0b48dd Setup syntaxes for more parentheses Unicode characters.
Kenichi Handa <handa@m17n.org>
parents: 52950
diff changeset
774 (modify-syntax-entry (aref elt 1) (string ?\) (aref elt 0)))))
99f05a0b48dd Setup syntaxes for more parentheses Unicode characters.
Kenichi Handa <handa@m17n.org>
parents: 52950
diff changeset
775
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
776
20734
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
777 ;; For each character set, put the information of the most proper
24782
8f65cd6729b5 Typo fixed; prefered->preferred.
Kenichi Handa <handa@m17n.org>
parents: 24256
diff changeset
778 ;; coding system to encode it by `preferred-coding-system' property.
20734
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
779
88612
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
780 ;; Fixme: should this be junked?
20734
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
781 (let ((l '((latin-iso8859-1 . iso-latin-1)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
782 (latin-iso8859-2 . iso-latin-2)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
783 (latin-iso8859-3 . iso-latin-3)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
784 (latin-iso8859-4 . iso-latin-4)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
785 (thai-tis620 . thai-tis620)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
786 (greek-iso8859-7 . greek-iso-8bit)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
787 (arabic-iso8859-6 . iso-2022-7bit)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
788 (hebrew-iso8859-8 . hebrew-iso-8bit)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
789 (katakana-jisx0201 . japanese-shift-jis)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
790 (latin-jisx0201 . japanese-shift-jis)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
791 (cyrillic-iso8859-5 . cyrillic-iso-8bit)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
792 (latin-iso8859-9 . iso-latin-5)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
793 (japanese-jisx0208-1978 . iso-2022-jp)
90685
b3c13217d55b Put property
Kenichi Handa <handa@m17n.org>
parents: 90669
diff changeset
794 (chinese-gb2312 . chinese-iso-8bit)
b3c13217d55b Put property
Kenichi Handa <handa@m17n.org>
parents: 90669
diff changeset
795 (chinese-gbk . chinese-gbk)
b3c13217d55b Put property
Kenichi Handa <handa@m17n.org>
parents: 90669
diff changeset
796 (gb18030-2-byte . chinese-gb18030)
b3c13217d55b Put property
Kenichi Handa <handa@m17n.org>
parents: 90669
diff changeset
797 (gb18030-4-byte-bmp . chinese-gb18030)
b3c13217d55b Put property
Kenichi Handa <handa@m17n.org>
parents: 90669
diff changeset
798 (gb18030-4-byte-smp . chinese-gb18030)
b3c13217d55b Put property
Kenichi Handa <handa@m17n.org>
parents: 90669
diff changeset
799 (gb18030-4-byte-ext-1 . chinese-gb18030)
b3c13217d55b Put property
Kenichi Handa <handa@m17n.org>
parents: 90669
diff changeset
800 (gb18030-4-byte-ext-2 . chinese-gb18030)
20734
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
801 (japanese-jisx0208 . iso-2022-jp)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
802 (korean-ksc5601 . iso-2022-kr)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
803 (japanese-jisx0212 . iso-2022-jp)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
804 (chinese-big5-1 . chinese-big5)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
805 (chinese-big5-2 . chinese-big5)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
806 (chinese-sisheng . iso-2022-7bit)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
807 (ipa . iso-2022-7bit)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
808 (vietnamese-viscii-lower . vietnamese-viscii)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
809 (vietnamese-viscii-upper . vietnamese-viscii)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
810 (arabic-digit . iso-2022-7bit)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
811 (arabic-1-column . iso-2022-7bit)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
812 (lao . lao)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
813 (arabic-2-column . iso-2022-7bit)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
814 (indian-is13194 . devanagari)
41466
b364f798b789 Adjusted for the change of indian-1-column -> indian-glyph.
Richard M. Stallman <rms@gnu.org>
parents: 38414
diff changeset
815 (indian-glyph . devanagari)
20734
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
816 (tibetan-1-column . tibetan)
24256
47e6aa168a66 Let ethiopic use iso-2022-7bit.
Kenichi Handa <handa@m17n.org>
parents: 24208
diff changeset
817 (ethiopic . iso-2022-7bit)
90685
b3c13217d55b Put property
Kenichi Handa <handa@m17n.org>
parents: 90669
diff changeset
818 (chinese-cns11643-1 . iso-2022-cn)
b3c13217d55b Put property
Kenichi Handa <handa@m17n.org>
parents: 90669
diff changeset
819 (chinese-cns11643-2 . iso-2022-cn)
20734
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
820 (chinese-cns11643-3 . iso-2022-cn)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
821 (chinese-cns11643-4 . iso-2022-cn)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
822 (chinese-cns11643-5 . iso-2022-cn)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
823 (chinese-cns11643-6 . iso-2022-cn)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
824 (chinese-cns11643-7 . iso-2022-cn)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
825 (indian-2-column . devanagari)
26013
987e55950346 Add latin-iso8859-1[45].
Dave Love <fx@gnu.org>
parents: 25499
diff changeset
826 (tibetan . tibetan)
987e55950346 Add latin-iso8859-1[45].
Dave Love <fx@gnu.org>
parents: 25499
diff changeset
827 (latin-iso8859-14 . iso-latin-8)
987e55950346 Add latin-iso8859-1[45].
Dave Love <fx@gnu.org>
parents: 25499
diff changeset
828 (latin-iso8859-15 . iso-latin-9))))
20734
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
829 (while l
24782
8f65cd6729b5 Typo fixed; prefered->preferred.
Kenichi Handa <handa@m17n.org>
parents: 24256
diff changeset
830 (put-charset-property (car (car l)) 'preferred-coding-system (cdr (car l)))
20734
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
831 (setq l (cdr l))))
23493
d82b305ac37b Setup auto-fill-chars.
Kenichi Handa <handa@m17n.org>
parents: 22529
diff changeset
832
d82b305ac37b Setup auto-fill-chars.
Kenichi Handa <handa@m17n.org>
parents: 22529
diff changeset
833
23527
06e8c3b9deec Setup charset property nospace-between-words.
Kenichi Handa <handa@m17n.org>
parents: 23493
diff changeset
834 ;; Setup auto-fill-chars for charsets that should invoke auto-filling.
90634
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
835 ;; SPACE and NEWLINE are already set.
90258
c277fa406d7b Register characters in
Kenichi Handa <handa@m17n.org>
parents: 90200
diff changeset
836
c277fa406d7b Register characters in
Kenichi Handa <handa@m17n.org>
parents: 90200
diff changeset
837 (set-char-table-range auto-fill-chars '(#x3041 . #x30FF) t)
c277fa406d7b Register characters in
Kenichi Handa <handa@m17n.org>
parents: 90200
diff changeset
838 (set-char-table-range auto-fill-chars '(#x3400 . #x4DB5) t)
c277fa406d7b Register characters in
Kenichi Handa <handa@m17n.org>
parents: 90200
diff changeset
839 (set-char-table-range auto-fill-chars '(#x4e00 . #x9fbb) t)
c277fa406d7b Register characters in
Kenichi Handa <handa@m17n.org>
parents: 90200
diff changeset
840 (set-char-table-range auto-fill-chars '(#xF900 . #xFAFF) t)
c277fa406d7b Register characters in
Kenichi Handa <handa@m17n.org>
parents: 90200
diff changeset
841 (set-char-table-range auto-fill-chars '(#xFF00 . #xFF9F) t)
c277fa406d7b Register characters in
Kenichi Handa <handa@m17n.org>
parents: 90200
diff changeset
842 (set-char-table-range auto-fill-chars '(#x20000 . #x2FFFF) t)
c277fa406d7b Register characters in
Kenichi Handa <handa@m17n.org>
parents: 90200
diff changeset
843
90634
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
844
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
845 ;;; Setting char-width-table. The default is 1.
20734
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
846
90634
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
847 ;; 0: non-spacing, enclosing combining, formatting, Hangul Jamo medial
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
848 ;; and final characters.
94129
f8353eba8b8d Don't make the width of U+00AD to 0.
Kenichi Handa <handa@m17n.org>
parents: 93517
diff changeset
849 (let ((l '((#x0300 . #x036F)
90634
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
850 (#x0483 . #x0489)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
851 (#x0591 . #x05BD)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
852 (#x05BF . #x05BF)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
853 (#x05C1 . #x05C2)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
854 (#x05C4 . #x05C5)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
855 (#x05C7 . #x05C7)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
856 (#x0600 . #x0603)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
857 (#x0610 . #x0615)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
858 (#x064B . #x065E)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
859 (#x0670 . #x0670)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
860 (#x06D6 . #x06E4)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
861 (#x06E7 . #x06E8)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
862 (#x06EA . #x06ED)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
863 (#x070F . #x070F)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
864 (#x0711 . #x0711)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
865 (#x0730 . #x074A)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
866 (#x07A6 . #x07B0)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
867 (#x07EB . #x07F3)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
868 (#x0901 . #x0902)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
869 (#x093C . #x093C)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
870 (#x0941 . #x0948)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
871 (#x094D . #x094D)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
872 (#x0951 . #x0954)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
873 (#x0962 . #x0963)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
874 (#x0981 . #x0981)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
875 (#x09BC . #x09BC)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
876 (#x09C1 . #x09C4)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
877 (#x09CD . #x09CD)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
878 (#x09E2 . #x09E3)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
879 (#x0A01 . #x0A02)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
880 (#x0A3C . #x0A3C)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
881 (#x0A41 . #x0A4D)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
882 (#x0A70 . #x0A71)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
883 (#x0A81 . #x0A82)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
884 (#x0ABC . #x0ABC)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
885 (#x0AC1 . #x0AC8)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
886 (#x0ACD . #x0ACD)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
887 (#x0AE2 . #x0AE3)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
888 (#x0B01 . #x0B01)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
889 (#x0B3C . #x0B3C)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
890 (#x0B3F . #x0B3F)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
891 (#x0B41 . #x0B43)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
892 (#x0B4D . #x0B56)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
893 (#x0B82 . #x0B82)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
894 (#x0BC0 . #x0BC0)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
895 (#x0BCD . #x0BCD)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
896 (#x0C3E . #x0C40)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
897 (#x0C46 . #x0C56)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
898 (#x0CBC . #x0CBC)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
899 (#x0CBF . #x0CBF)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
900 (#x0CC6 . #x0CC6)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
901 (#x0CCC . #x0CCD)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
902 (#x0CE2 . #x0CE3)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
903 (#x0D41 . #x0D43)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
904 (#x0D4D . #x0D4D)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
905 (#x0DCA . #x0DCA)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
906 (#x0DD2 . #x0DD6)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
907 (#x0E31 . #x0E31)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
908 (#x0E34 . #x0E3A)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
909 (#x0E47 . #x0E4E)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
910 (#x0EB1 . #x0EB1)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
911 (#x0EB4 . #x0EBC)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
912 (#x0EC8 . #x0ECD)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
913 (#x0F18 . #x0F19)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
914 (#x0F35 . #x0F35)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
915 (#x0F37 . #x0F37)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
916 (#x0F39 . #x0F39)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
917 (#x0F71 . #x0F7E)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
918 (#x0F80 . #x0F84)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
919 (#x0F86 . #x0F87)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
920 (#x0F90 . #x0FBC)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
921 (#x0FC6 . #x0FC6)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
922 (#x102D . #x1030)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
923 (#x1032 . #x1037)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
924 (#x1039 . #x1039)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
925 (#x1058 . #x1059)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
926 (#x1160 . #x11FF)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
927 (#x135F . #x135F)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
928 (#x1712 . #x1714)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
929 (#x1732 . #x1734)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
930 (#x1752 . #x1753)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
931 (#x1772 . #x1773)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
932 (#x17B4 . #x17B5)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
933 (#x17B7 . #x17BD)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
934 (#x17C6 . #x17C6)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
935 (#x17C9 . #x17D3)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
936 (#x17DD . #x17DD)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
937 (#x180B . #x180D)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
938 (#x18A9 . #x18A9)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
939 (#x1920 . #x1922)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
940 (#x1927 . #x1928)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
941 (#x1932 . #x1932)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
942 (#x1939 . #x193B)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
943 (#x1A17 . #x1A18)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
944 (#x1B00 . #x1B03)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
945 (#x1B34 . #x1B34)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
946 (#x1B36 . #x1B3A)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
947 (#x1B3C . #x1B3C)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
948 (#x1B42 . #x1B42)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
949 (#x1B6B . #x1B73)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
950 (#x1DC0 . #x1DFF)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
951 (#x200B . #x200F)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
952 (#x202A . #x202E)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
953 (#x2060 . #x206F)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
954 (#x20D0 . #x20EF)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
955 (#x302A . #x302F)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
956 (#x3099 . #x309A)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
957 (#xA806 . #xA806)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
958 (#xA80B . #xA80B)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
959 (#xA825 . #xA826)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
960 (#xFB1E . #xFB1E)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
961 (#xFE00 . #xFE0F)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
962 (#xFE20 . #xFE23)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
963 (#xFEFF . #xFEFF)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
964 (#xFFF9 . #xFFFB)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
965 (#x10A01 . #x10A0F)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
966 (#x10A38 . #x10A3F)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
967 (#x1D167 . #x1D169)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
968 (#x1D173 . #x1D182)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
969 (#x1D185 . #x1D18B)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
970 (#x1D1AA . #x1D1AD)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
971 (#x1D242 . #x1D244)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
972 (#xE0001 . #xE01EF))))
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
973 (dolist (elt l)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
974 (set-char-table-range char-width-table elt 0)))
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
975
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
976 ;; 2: East Asian Wide and Full-width characters.
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
977 (let ((l '((#x1100 . #x115F)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
978 (#x2329 . #x232A)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
979 (#x2E80 . #x303E)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
980 (#x3040 . #xA4CF)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
981 (#xAC00 . #xD7A3)
88492
2ce720ffa865 Setup char-width-table for CJK characters.
Kenichi Handa <handa@m17n.org>
parents: 88469
diff changeset
982 (#xF900 . #xFAFF)
90634
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
983 (#xFE30 . #xFE6F)
90654
4da56e58ab19 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 90634
diff changeset
984 (#xFF01 . #xFF60)
90634
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
985 (#xFFE0 . #xFFE6)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
986 (#x20000 . #x2FFFF)
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
987 (#x30000 . #x3FFFF))))
88492
2ce720ffa865 Setup char-width-table for CJK characters.
Kenichi Handa <handa@m17n.org>
parents: 88469
diff changeset
988 (dolist (elt l)
90634
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
989 (set-char-table-range char-width-table elt 2)))
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
990
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
991 ;; Other double width
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
992 ;;(map-charset-chars
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
993 ;; (lambda (range ignore) (set-char-table-range char-width-table range 2))
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
994 ;; 'ethiopic)
89117
39a217f682b4 Don't set char width of CJK
Dave Love <fx@gnu.org>
parents: 89084
diff changeset
995 ;; (map-charset-chars
39a217f682b4 Don't set char width of CJK
Dave Love <fx@gnu.org>
parents: 89084
diff changeset
996 ;; (lambda (range ignore) (set-char-table-range char-width-table range 2))
90634
d3f676f3e5cd Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents: 90591
diff changeset
997 ;; 'tibetan)
88642
3a7ca837e9b9 Additional double width specifications.
Dave Love <fx@gnu.org>
parents: 88612
diff changeset
998 (map-charset-chars
3a7ca837e9b9 Additional double width specifications.
Dave Love <fx@gnu.org>
parents: 88612
diff changeset
999 (lambda (range ignore) (set-char-table-range char-width-table range 2))
3a7ca837e9b9 Additional double width specifications.
Dave Love <fx@gnu.org>
parents: 88612
diff changeset
1000 'indian-2-column)
3a7ca837e9b9 Additional double width specifications.
Dave Love <fx@gnu.org>
parents: 88612
diff changeset
1001 (map-charset-chars
3a7ca837e9b9 Additional double width specifications.
Dave Love <fx@gnu.org>
parents: 88612
diff changeset
1002 (lambda (range ignore) (set-char-table-range char-width-table range 2))
3a7ca837e9b9 Additional double width specifications.
Dave Love <fx@gnu.org>
parents: 88612
diff changeset
1003 'arabic-2-column)
20734
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
1004
91933
1a3f22533482 Delete occurances of non-Unicode
Kenichi Handa <handa@m17n.org>
parents: 91357
diff changeset
1005 (defvar cjk-char-width-table
1a3f22533482 Delete occurances of non-Unicode
Kenichi Handa <handa@m17n.org>
parents: 91357
diff changeset
1006 (let ((table (make-char-table nil)))
1a3f22533482 Delete occurances of non-Unicode
Kenichi Handa <handa@m17n.org>
parents: 91357
diff changeset
1007 (dolist (charset '(big5 chinese-gb2312 chinese-cns11643-1
1a3f22533482 Delete occurances of non-Unicode
Kenichi Handa <handa@m17n.org>
parents: 91357
diff changeset
1008 japanese-jisx0208 korean-ksc5601))
1a3f22533482 Delete occurances of non-Unicode
Kenichi Handa <handa@m17n.org>
parents: 91357
diff changeset
1009 (map-charset-chars #'(lambda (range arg)
1a3f22533482 Delete occurances of non-Unicode
Kenichi Handa <handa@m17n.org>
parents: 91357
diff changeset
1010 (set-char-table-range table range 2))
1a3f22533482 Delete occurances of non-Unicode
Kenichi Handa <handa@m17n.org>
parents: 91357
diff changeset
1011 charset))
1a3f22533482 Delete occurances of non-Unicode
Kenichi Handa <handa@m17n.org>
parents: 91357
diff changeset
1012 (optimize-char-table table)
1a3f22533482 Delete occurances of non-Unicode
Kenichi Handa <handa@m17n.org>
parents: 91357
diff changeset
1013 (set-char-table-parent table char-width-table)
1a3f22533482 Delete occurances of non-Unicode
Kenichi Handa <handa@m17n.org>
parents: 91357
diff changeset
1014 table)
1a3f22533482 Delete occurances of non-Unicode
Kenichi Handa <handa@m17n.org>
parents: 91357
diff changeset
1015 "Character width table used in CJK language environment.")
1a3f22533482 Delete occurances of non-Unicode
Kenichi Handa <handa@m17n.org>
parents: 91357
diff changeset
1016
1a3f22533482 Delete occurances of non-Unicode
Kenichi Handa <handa@m17n.org>
parents: 91357
diff changeset
1017 (defun use-cjk-char-width-table ()
1a3f22533482 Delete occurances of non-Unicode
Kenichi Handa <handa@m17n.org>
parents: 91357
diff changeset
1018 "Internal use only.
91936
cbc008b3464f Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 91933
diff changeset
1019 Setup char-width-table appropriate for CJK language environment."
cbc008b3464f Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 91933
diff changeset
1020 (setq char-width-table cjk-char-width-table))
91933
1a3f22533482 Delete occurances of non-Unicode
Kenichi Handa <handa@m17n.org>
parents: 91357
diff changeset
1021
1a3f22533482 Delete occurances of non-Unicode
Kenichi Handa <handa@m17n.org>
parents: 91357
diff changeset
1022 (defun use-default-char-width-table ()
1a3f22533482 Delete occurances of non-Unicode
Kenichi Handa <handa@m17n.org>
parents: 91357
diff changeset
1023 "Internal use only.
91936
cbc008b3464f Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 91933
diff changeset
1024 Setup char-width-table appropriate for non-CJK language environment."
cbc008b3464f Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 91933
diff changeset
1025 (setq char-width-table (char-table-parent cjk-char-width-table)))
91933
1a3f22533482 Delete occurances of non-Unicode
Kenichi Handa <handa@m17n.org>
parents: 91357
diff changeset
1026
88723
a5f3605a5bb8 Reinstate various CJK syntax and
Dave Love <fx@gnu.org>
parents: 88715
diff changeset
1027 (optimize-char-table (standard-case-table))
a5f3605a5bb8 Reinstate various CJK syntax and
Dave Love <fx@gnu.org>
parents: 88715
diff changeset
1028 (optimize-char-table (standard-category-table))
a5f3605a5bb8 Reinstate various CJK syntax and
Dave Love <fx@gnu.org>
parents: 88715
diff changeset
1029 (optimize-char-table (standard-syntax-table))
a5f3605a5bb8 Reinstate various CJK syntax and
Dave Love <fx@gnu.org>
parents: 88715
diff changeset
1030
91933
1a3f22533482 Delete occurances of non-Unicode
Kenichi Handa <handa@m17n.org>
parents: 91357
diff changeset
1031
1a3f22533482 Delete occurances of non-Unicode
Kenichi Handa <handa@m17n.org>
parents: 91357
diff changeset
1032 ;; Setting char-script-table.
1a3f22533482 Delete occurances of non-Unicode
Kenichi Handa <handa@m17n.org>
parents: 91357
diff changeset
1033
89119
fa0f7b37ba32 Add some non-word syntax cases.
Dave Love <fx@gnu.org>
parents: 89117
diff changeset
1034 ;; The Unicode blocks actually extend past some of these ranges with
fa0f7b37ba32 Add some non-word syntax cases.
Dave Love <fx@gnu.org>
parents: 89117
diff changeset
1035 ;; undefined codepoints.
88892
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1036 (let ((script-list nil))
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1037 (dolist
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1038 (elt
89008
3e08629c1469 (script-list): Treat ascii characters as `latin' script.
Kenichi Handa <handa@m17n.org>
parents: 88976
diff changeset
1039 '((#x0000 #x007F latin)
93517
3d721e1337dd (script-list): Add phonetic script, covering IPA (previously Latin),
Jason Rumney <jasonr@gnu.org>
parents: 91936
diff changeset
1040 (#x00A0 #x024F latin)
3d721e1337dd (script-list): Add phonetic script, covering IPA (previously Latin),
Jason Rumney <jasonr@gnu.org>
parents: 91936
diff changeset
1041 (#x0250 #x02AF phonetic)
3d721e1337dd (script-list): Add phonetic script, covering IPA (previously Latin),
Jason Rumney <jasonr@gnu.org>
parents: 91936
diff changeset
1042 (#x02B0 #x036F latin)
88892
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1043 (#x0370 #x03E1 greek)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1044 (#x03E2 #x03EF coptic)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1045 (#x03F0 #x03F3 greek)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1046 (#x0400 #x04FF cyrillic)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1047 (#x0530 #x058F armenian)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1048 (#x0590 #x05FF hebrew)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1049 (#x0600 #x06FF arabic)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1050 (#x0700 #x074F syriac)
90591
72f86bb92d9e (script-list): Add nko,
Kenichi Handa <handa@m17n.org>
parents: 90535
diff changeset
1051 (#x07C0 #x07FA nko)
88892
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1052 (#x0780 #x07BF thaana)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1053 (#x0900 #x097F devanagari)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1054 (#x0980 #x09FF bengali)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1055 (#x0A00 #x0A7F gurmukhi)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1056 (#x0A80 #x0AFF gujarati)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1057 (#x0B00 #x0B7F oriya)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1058 (#x0B80 #x0BFF tamil)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1059 (#x0C00 #x0C7F telugu)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1060 (#x0C80 #x0CFF kannada)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1061 (#x0D00 #x0D7F malayalam)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1062 (#x0D80 #x0DFF sinhala)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1063 (#x0E00 #x0E5F thai)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1064 (#x0E80 #x0EDF lao)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1065 (#x0F00 #x0FFF tibetan)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1066 (#x1000 #x105F myanmar)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1067 (#x10A0 #x10FF georgian)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1068 (#x1100 #x11FF hangul)
90535
5b86e23f4fdb Modify category-table and
Kenichi Handa <handa@m17n.org>
parents: 90488
diff changeset
1069 (#x1200 #x139F ethiopic)
88892
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1070 (#x13A0 #x13FF cherokee)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1071 (#x1400 #x167F canadian-aboriginal)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1072 (#x1680 #x169F ogham)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1073 (#x16A0 #x16FF runic)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1074 (#x1780 #x17FF khmer)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1075 (#x1800 #x18AF mongolian)
93517
3d721e1337dd (script-list): Add phonetic script, covering IPA (previously Latin),
Jason Rumney <jasonr@gnu.org>
parents: 91936
diff changeset
1076 (#x1D00 #x1DFF phonetic)
88892
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1077 (#x1E00 #x1EFF latin)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1078 (#x1F00 #x1FFF greek)
89635
3d2f4775a302 (script-list): Include `currency' in `symbol'.
Kenichi Handa <handa@m17n.org>
parents: 89600
diff changeset
1079 (#x2000 #x27FF symbol)
88892
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1080 (#x2800 #x28FF braille)
90535
5b86e23f4fdb Modify category-table and
Kenichi Handa <handa@m17n.org>
parents: 90488
diff changeset
1081 (#x2D80 #x2DDF ethiopic)
88892
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1082 (#x2E80 #x2FDF han)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1083 (#x2FF0 #x2FFF ideographic-description)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1084 (#x3000 #x303F cjk-misc)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1085 (#x3040 #x30FF kana)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1086 (#x3100 #x312F bopomofo)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1087 (#x3130 #x318F hangul)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1088 (#x3190 #x319F kanbun)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1089 (#x31A0 #x31BF bopomofo)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1090 (#x3400 #x9FAF han)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1091 (#xA000 #xA4CF yi)
91357
c8cd29958bb5 (script-list): Add cham.
Kenichi Handa <handa@m17n.org>
parents: 91327
diff changeset
1092 (#xAA00 #xAA5F cham)
90945
3046ffe96f58 Setup syntax/category table for Tai Viet.
Kenichi Handa <handa@m17n.org>
parents: 90792
diff changeset
1093 (#xAA80 #xAADF tai-viet)
88892
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1094 (#xAC00 #xD7AF hangul)
89798
186081a2790b Fix `han' script range.
Kenichi Handa <handa@m17n.org>
parents: 89680
diff changeset
1095 (#xF900 #xFAFF han)
88892
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1096 (#xFB1D #xFB4F hebrew)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1097 (#xFB50 #xFDFF arabic)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1098 (#xFE70 #xFEFC arabic)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1099 (#xFF00 #xFF5F cjk-misc)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1100 (#xFF61 #xFF9F kana)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1101 (#xFFE0 #xFFE6 cjk-misc)
90591
72f86bb92d9e (script-list): Add nko,
Kenichi Handa <handa@m17n.org>
parents: 90535
diff changeset
1102 (#x1D000 #x1D0FF byzantine-musical-symbol)
72f86bb92d9e (script-list): Add nko,
Kenichi Handa <handa@m17n.org>
parents: 90535
diff changeset
1103 (#x1D100 #x1D1FF musical-symbol)
72f86bb92d9e (script-list): Add nko,
Kenichi Handa <handa@m17n.org>
parents: 90535
diff changeset
1104 (#x1D400 #x1D7FF mathematical)
88971
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1105 (#x20000 #x2AFFF han)
88892
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1106 (#x2F800 #x2FFFF han)))
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1107 (set-char-table-range char-script-table
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1108 (cons (car elt) (nth 1 elt)) (nth 2 elt))
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1109 (or (memq (nth 2 elt) script-list)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1110 (setq script-list (cons (nth 2 elt) script-list))))
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1111 (set-char-table-extra-slot char-script-table 0 (nreverse script-list)))
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1112
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89314
diff changeset
1113 (map-charset-chars
89291
b73d29dcc8c0 Make all chararacters in the charset tibetan to tibetan script.
Kenichi Handa <handa@m17n.org>
parents: 89188
diff changeset
1114 #'(lambda (range ignore)
b73d29dcc8c0 Make all chararacters in the charset tibetan to tibetan script.
Kenichi Handa <handa@m17n.org>
parents: 89188
diff changeset
1115 (set-char-table-range char-script-table range 'tibetan))
b73d29dcc8c0 Make all chararacters in the charset tibetan to tibetan script.
Kenichi Handa <handa@m17n.org>
parents: 89188
diff changeset
1116 'tibetan)
b73d29dcc8c0 Make all chararacters in the charset tibetan to tibetan script.
Kenichi Handa <handa@m17n.org>
parents: 89188
diff changeset
1117
88971
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1118
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1119 ;;; Setting word boundary.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1120
88971
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1121 (defun next-word-boundary-han (pos limit)
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1122 (if (<= pos limit)
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1123 (save-excursion
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1124 (goto-char pos)
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1125 (looking-at "\\cC+")
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1126 (goto-char (match-end 0))
88976
fc96b539a43c (next-word-boundary-han): Don't
Kenichi Handa <handa@m17n.org>
parents: 88971
diff changeset
1127 (if (looking-at "\\cH+")
88971
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1128 (goto-char (match-end 0)))
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1129 (point))
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1130 (while (and (> pos limit)
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1131 (eq (aref char-script-table (char-after (1- pos))) 'han))
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1132 (setq pos (1- pos)))
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1133 pos))
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1134
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1135 (defun next-word-boundary-kana (pos limit)
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1136 (if (<= pos limit)
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1137 (save-excursion
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1138 (goto-char pos)
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1139 (if (looking-at "\\cK+")
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1140 (goto-char (match-end 0)))
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1141 (if (looking-at "\\cH+")
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1142 (goto-char (match-end 0)))
89896
5fad4082726a (next-word-boundary-kana): Handle half-width kana.
Kenichi Handa <handa@m17n.org>
parents: 89798
diff changeset
1143 (if (looking-at "\\ck+")
5fad4082726a (next-word-boundary-kana): Handle half-width kana.
Kenichi Handa <handa@m17n.org>
parents: 89798
diff changeset
1144 (goto-char (match-end 0)))
88971
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1145 (point))
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1146 (let ((category-set (char-category-set (char-after pos)))
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1147 category)
89896
5fad4082726a (next-word-boundary-kana): Handle half-width kana.
Kenichi Handa <handa@m17n.org>
parents: 89798
diff changeset
1148 (if (or (aref category-set ?K) (aref category-set ?k))
88971
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1149 (while (and (> pos limit)
89896
5fad4082726a (next-word-boundary-kana): Handle half-width kana.
Kenichi Handa <handa@m17n.org>
parents: 89798
diff changeset
1150 (setq category-set
5fad4082726a (next-word-boundary-kana): Handle half-width kana.
Kenichi Handa <handa@m17n.org>
parents: 89798
diff changeset
1151 (char-category-set (char-after (1- pos))))
5fad4082726a (next-word-boundary-kana): Handle half-width kana.
Kenichi Handa <handa@m17n.org>
parents: 89798
diff changeset
1152 (or (aref category-set ?K) (aref category-set ?k)))
88971
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1153 (setq pos (1- pos)))
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1154 (while (and (> pos limit)
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89314
diff changeset
1155 (aref (setq category-set
88971
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1156 (char-category-set (char-after (1- pos)))) ?H))
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1157 (setq pos (1- pos)))
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1158 (setq category (cond ((aref category-set ?C) ?C)
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1159 ((aref category-set ?K) ?K)
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1160 ((aref category-set ?A) ?A)))
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1161 (when category
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1162 (setq pos (1- pos))
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1163 (while (and (> pos limit)
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1164 (aref (char-category-set (char-after (1- pos)))
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1165 category))
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1166 (setq pos (1- pos)))))
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1167 pos)))
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1168
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1169 (map-char-table
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1170 #'(lambda (char script)
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1171 (cond ((eq script 'han)
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89314
diff changeset
1172 (set-char-table-range find-word-boundary-function-table
88971
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1173 char #'next-word-boundary-han))
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1174 ((eq script 'kana)
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89314
diff changeset
1175 (set-char-table-range find-word-boundary-function-table
88971
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1176 char #'next-word-boundary-kana))))
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1177 char-script-table)
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1178
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1179 (setq word-combining-categories
71399
00a410533438 (word-combining-categories): Add entries for 2-byte Han characters.
Kenichi Handa <handa@m17n.org>
parents: 69803
diff changeset
1180 '((?l . ?l)
00a410533438 (word-combining-categories): Add entries for 2-byte Han characters.
Kenichi Handa <handa@m17n.org>
parents: 69803
diff changeset
1181 (?C . ?C)
00a410533438 (word-combining-categories): Add entries for 2-byte Han characters.
Kenichi Handa <handa@m17n.org>
parents: 69803
diff changeset
1182 (?C . ?H)
00a410533438 (word-combining-categories): Add entries for 2-byte Han characters.
Kenichi Handa <handa@m17n.org>
parents: 69803
diff changeset
1183 (?C . ?K)))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1184
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1185 (setq word-separating-categories ; (2-byte character sets)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1186 '((?A . ?K) ; Alpha numeric - Katakana
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1187 (?A . ?C) ; Alpha numeric - Chinese
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1188 (?H . ?A) ; Hiragana - Alpha numeric
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1189 (?H . ?K) ; Hiragana - Katakana
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1190 (?H . ?C) ; Hiragana - Chinese
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1191 (?K . ?A) ; Katakana - Alpha numeric
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1192 (?K . ?C) ; Katakana - Chinese
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1193 (?C . ?A) ; Chinese - Alpha numeric
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1194 (?C . ?K) ; Chinese - Katakana
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1195 ))
20734
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
1196
84658
d1ea5efb14f2 Fix up comment style.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78310
diff changeset
1197 ;; Local Variables:
91046
35069180a991 Fix up multi-tty merge
Miles Bader <miles@gnu.org>
parents: 91041
diff changeset
1198 ;; coding: utf-8
84658
d1ea5efb14f2 Fix up comment style.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78310
diff changeset
1199 ;; End:
20734
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
1200
84658
d1ea5efb14f2 Fix up comment style.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78310
diff changeset
1201 ;; arch-tag: 85889c35-9f4d-4912-9bf5-82de31b0d42d
38414
67b464da13ec Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 36688
diff changeset
1202 ;;; characters.el ends here