Mercurial > emacs
annotate lisp/international/characters.el @ 41882:f3bc5e440020
Resurrect the Hebrew category
settings for all Hebrew characters removed by the last change.
Add code for setting the Hebrew category of the Unicode Hebrew
characters. Set syntax entries for Hebrew punctuation characters.
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Fri, 07 Dec 2001 17:52:20 +0000 |
parents | 1b93abfcbd87 |
children | 2bb15a844859 |
rev | line source |
---|---|
17052 | 1 ;;; characters.el --- set syntax and category for multibyte characters |
2 | |
19958
f7ab34ae92bb
Set case-table for Cyrillic characters.
Richard M. Stallman <rms@gnu.org>
parents:
18561
diff
changeset
|
3 ;; Copyright (C) 1995, 1997 Electrotechnical Laboratory, JAPAN. |
18377
8b4a66c66dd6
Change copyright notice.
Richard M. Stallman <rms@gnu.org>
parents:
18304
diff
changeset
|
4 ;; Licensed to the Free Software Foundation. |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
5 ;; Copyright (C) 2001 Free Software Foundation, Inc. |
17052 | 6 |
7 ;; Keywords: multibyte character, character set, syntax, category | |
8 | |
9 ;; This file is part of GNU Emacs. | |
10 | |
11 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
12 ;; it under the terms of the GNU General Public License as published by | |
13 ;; the Free Software Foundation; either version 2, or (at your option) | |
14 ;; any later version. | |
15 | |
16 ;; GNU Emacs is distributed in the hope that it will be useful, | |
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
19 ;; GNU General Public License for more details. | |
20 | |
21 ;; You should have received a copy of the GNU General Public License | |
17071 | 22 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
24 ;; Boston, MA 02111-1307, USA. | |
17052 | 25 |
26 ;;; Commentary: | |
27 | |
28 ;; This file contains multibyte characters. Save this file always in | |
18197
90235db802c7
Comment changed (iso-2022-7 -> iso-2022-7bit).
Kenichi Handa <handa@m17n.org>
parents:
17753
diff
changeset
|
29 ;; the coding system `iso-2022-7bit'. |
17052 | 30 |
18205
40dc3b2e9e27
Delete syntax stuff for Latin-1 and Latin-2.
Richard M. Stallman <rms@gnu.org>
parents:
18197
diff
changeset
|
31 ;; This file does not define the syntax for Latin-N character sets; |
40dc3b2e9e27
Delete syntax stuff for Latin-1 and Latin-2.
Richard M. Stallman <rms@gnu.org>
parents:
18197
diff
changeset
|
32 ;; those are defined by the files latin-N.el. |
40dc3b2e9e27
Delete syntax stuff for Latin-1 and Latin-2.
Richard M. Stallman <rms@gnu.org>
parents:
18197
diff
changeset
|
33 |
38414
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
36688
diff
changeset
|
34 ;;; Code: |
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
36688
diff
changeset
|
35 |
17052 | 36 ;;; Predefined categories. |
37 | |
38 ;; For each character set. | |
39 | |
40 (define-category ?a "ASCII") | |
41 (define-category ?l "Latin") | |
42 (define-category ?t "Thai") | |
43 (define-category ?g "Greek") | |
44 (define-category ?b "Arabic") | |
45 (define-category ?w "Hebrew") | |
46 (define-category ?y "Cyrillic") | |
47 (define-category ?k "Japanese katakana") | |
48 (define-category ?r "Japanese roman") | |
49 (define-category ?c "Chinese") | |
50 (define-category ?j "Japanese") | |
51 (define-category ?h "Korean") | |
52 (define-category ?e "Ethiopic (Ge'ez)") | |
53 (define-category ?v "Vietnamese") | |
54 (define-category ?i "Indian") | |
17078
874b471d6635
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
55 (define-category ?o "Lao") |
17753
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
56 (define-category ?q "Tibetan") |
17052 | 57 |
58 ;; For each group (row) of 2-byte character sets. | |
59 | |
22529 | 60 (define-category ?A "Alpha-numeric characters of 2-byte character sets") |
17052 | 61 (define-category ?C "Chinese (Han) characters of 2-byte character sets") |
22529 | 62 (define-category ?G "Greek characters of 2-byte character sets") |
17052 | 63 (define-category ?H "Japanese Hiragana characters of 2-byte character sets") |
64 (define-category ?K "Japanese Katakana characters of 2-byte character sets") | |
65 (define-category ?N "Korean Hangul characters of 2-byte character sets") | |
22529 | 66 (define-category ?Y "Cyrillic characters of 2-byte character sets") |
17052 | 67 (define-category ?I "Indian Glyphs") |
68 | |
69 ;; For phonetic classifications. | |
70 | |
71 (define-category ?0 "consonant") | |
18561
f3c28fd5118e
Modify docstring of char category
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
72 (define-category ?1 "base (independent) vowel") |
17052 | 73 (define-category ?2 "upper diacritical mark (including upper vowel)") |
74 (define-category ?3 "lower diacritical mark (including lower vowel)") | |
75 (define-category ?4 "tone mark") | |
18561
f3c28fd5118e
Modify docstring of char category
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
76 (define-category ?5 "symbol") |
17052 | 77 (define-category ?6 "digit") |
78 (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
|
79 (define-category ?8 "vowel-signs") |
874b471d6635
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
80 (define-category ?9 "semivowel lower") |
17052 | 81 |
82 ;; For filling. | |
83 (define-category ?| "While filling, we can break a line at this character.") | |
84 | |
20247 | 85 ;; For indentation calculation. |
20734
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
86 (define-category ? |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
87 "This character counts as a space for indentation purposes.") |
20247 | 88 |
22529 | 89 ;; Keep the following for `kinsoku' processing. See comments in |
17052 | 90 ;; kinsoku.el. |
91 (define-category ?> "A character which can't be placed at beginning of line.") | |
92 (define-category ?< "A character which can't be placed at end of line.") | |
93 | |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
94 ;; Combining |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
95 (define-category ?^ "Combining diacritic or mark") |
17052 | 96 |
97 ;;; Setting syntax and category. | |
98 | |
99 ;; ASCII | |
100 | |
101 (let ((ch 32)) | |
102 (while (< ch 127) ; All ASCII characters have | |
103 (modify-category-entry ch ?a) ; the category `a' (ASCII) | |
104 (modify-category-entry ch ?l) ; and `l' (Latin). | |
105 (setq ch (1+ ch)))) | |
106 | |
107 ;; Arabic character set | |
108 | |
109 (let ((charsets '(arabic-iso8859-6 | |
110 arabic-digit | |
111 arabic-1-column | |
112 arabic-2-column))) | |
113 (while charsets | |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
114 ;; (modify-syntax-entry (make-char (car charsets)) "w") |
17052 | 115 (modify-category-entry (make-char (car charsets)) ?b) |
116 (setq charsets (cdr charsets)))) | |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
117 (let ((ch #x600)) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
118 (while (<= ch #x6ff) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
119 (modify-category-entry (decode-char 'ucs ch) ?b) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
120 (setq ch (1+ ch))) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
121 (setq ch #xfb50) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
122 (while (<= ch #xfdff) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
123 (modify-category-entry (decode-char 'ucs ch) ?b) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
124 (setq ch (1+ ch))) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
125 (setq ch #xfe70) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
126 (while (<= ch #xfefe) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
127 (modify-category-entry (decode-char 'ucs ch) ?b) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
128 (setq ch (1+ ch)))) |
17052 | 129 |
130 ;; Chinese character set (GB2312) | |
131 | |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
132 ;; (modify-syntax-entry (make-char 'chinese-gb2312) "w") |
17052 | 133 (modify-syntax-entry (make-char 'chinese-gb2312 33) "_") |
134 (modify-syntax-entry (make-char 'chinese-gb2312 34) "_") | |
135 (modify-syntax-entry (make-char 'chinese-gb2312 41) "_") | |
136 (modify-syntax-entry ?\$A!2(B "($A!3(B") | |
137 (modify-syntax-entry ?\$A!4(B "($A!5(B") | |
138 (modify-syntax-entry ?\$A!6(B "($A!7(B") | |
139 (modify-syntax-entry ?\$A!8(B "($A!9(B") | |
140 (modify-syntax-entry ?\$A!:(B "($A!;(B") | |
141 (modify-syntax-entry ?\$A!<(B "($A!=(B") | |
142 (modify-syntax-entry ?\$A!>(B "($A!?(B") | |
143 (modify-syntax-entry ?\$A!3(B ")$A!2(B") | |
144 (modify-syntax-entry ?\$A!5(B ")$A!4(B") | |
145 (modify-syntax-entry ?\$A!7(B ")$A!6(B") | |
146 (modify-syntax-entry ?\$A!9(B ")$A!8(B") | |
147 (modify-syntax-entry ?\$A!;(B ")$A!:(B") | |
148 (modify-syntax-entry ?\$A!=(B ")$A!<(B") | |
149 (modify-syntax-entry ?\$A!?(B ")$A!>(B") | |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
150 ;; Unicode equivalents of above |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
151 (modify-syntax-entry ?\$,2=T(B "($,2=U(B") |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
152 (modify-syntax-entry ?\$,2=H(B "($,2=I(B") |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
153 (modify-syntax-entry ?\$,2=J(B "($,2=K(B") |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
154 (modify-syntax-entry ?\$,2=L(B "($,2=M(B") |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
155 (modify-syntax-entry ?\$,2=N(B "($,2=O(B") |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
156 (modify-syntax-entry ?\$,2=V(B "($,2=W(B") |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
157 (modify-syntax-entry ?\$,2=P(B "($,2=Q(B") |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
158 (modify-syntax-entry ?\$,2=U(B ")$,2=T(B") |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
159 (modify-syntax-entry ?\$,2=I(B ")$,2=H(B") |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
160 (modify-syntax-entry ?\$,2=K(B ")$,2=J(B") |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
161 (modify-syntax-entry ?\$,2=M(B ")$,2=L(B") |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
162 (modify-syntax-entry ?\$,2=O(B ")$,2=N(B") |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
163 (modify-syntax-entry ?\$,2=W(B ")$,2=V(B") |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
164 (modify-syntax-entry ?\$,2=Q(B ")$,2=P(B") |
17052 | 165 |
166 (modify-category-entry (make-char 'chinese-gb2312) ?c) | |
167 (modify-category-entry (make-char 'chinese-gb2312) ?\|) | |
168 (modify-category-entry (make-char 'chinese-gb2312 35) ?A) | |
169 (modify-category-entry (make-char 'chinese-gb2312 36) ?H) | |
170 (modify-category-entry (make-char 'chinese-gb2312 37) ?K) | |
171 (modify-category-entry (make-char 'chinese-gb2312 38) ?G) | |
172 (modify-category-entry (make-char 'chinese-gb2312 39) ?Y) | |
173 (let ((row 48)) | |
174 (while (< row 127) | |
175 (modify-category-entry (make-char 'chinese-gb2312 row) ?C) | |
176 (setq row (1+ row)))) | |
177 | |
178 ;; Chinese character set (BIG5) | |
179 | |
180 (let ((generic-big5-1-char (make-char 'chinese-big5-1)) | |
181 (generic-big5-2-char (make-char 'chinese-big5-2))) | |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
182 ;; (modify-syntax-entry generic-big5-1-char "w") |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
183 ;; (modify-syntax-entry generic-big5-2-char "w") |
17052 | 184 |
185 (modify-category-entry generic-big5-1-char ?c) | |
186 (modify-category-entry generic-big5-2-char ?c) | |
187 | |
188 (modify-category-entry generic-big5-1-char ?C) | |
189 (modify-category-entry generic-big5-2-char ?C) | |
190 | |
191 (modify-category-entry generic-big5-1-char ?\|) | |
192 (modify-category-entry generic-big5-2-char ?\|)) | |
193 | |
194 | |
195 ;; Chinese character set (CNS11643) | |
196 | |
197 (let ((cns-list '(chinese-cns11643-1 | |
198 chinese-cns11643-2 | |
199 chinese-cns11643-3 | |
200 chinese-cns11643-4 | |
201 chinese-cns11643-5 | |
202 chinese-cns11643-6 | |
203 chinese-cns11643-7)) | |
204 generic-char) | |
205 (while cns-list | |
206 (setq generic-char (make-char (car cns-list))) | |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
207 ;; (modify-syntax-entry generic-char "w") |
17052 | 208 (modify-category-entry generic-char ?c) |
209 (modify-category-entry generic-char ?C) | |
210 (modify-category-entry generic-char ?|) | |
211 (setq cns-list (cdr cns-list)))) | |
212 | |
213 ;; Cyrillic character set (ISO-8859-5) | |
214 | |
215 (modify-category-entry (make-char 'cyrillic-iso8859-5) ?y) | |
216 | |
19958
f7ab34ae92bb
Set case-table for Cyrillic characters.
Richard M. Stallman <rms@gnu.org>
parents:
18561
diff
changeset
|
217 (modify-syntax-entry (make-char 'cyrillic-iso8859-5 160) " ") |
17052 | 218 (modify-syntax-entry ?,L-(B ".") |
219 (modify-syntax-entry ?,Lp(B ".") | |
220 (modify-syntax-entry ?,L}(B ".") | |
19958
f7ab34ae92bb
Set case-table for Cyrillic characters.
Richard M. Stallman <rms@gnu.org>
parents:
18561
diff
changeset
|
221 (let ((tbl (standard-case-table))) |
f7ab34ae92bb
Set case-table for Cyrillic characters.
Richard M. Stallman <rms@gnu.org>
parents:
18561
diff
changeset
|
222 (set-case-syntax-pair ?,L!(B ?,Lq(B tbl) |
f7ab34ae92bb
Set case-table for Cyrillic characters.
Richard M. Stallman <rms@gnu.org>
parents:
18561
diff
changeset
|
223 (set-case-syntax-pair ?,L"(B ?,Lr(B tbl) |
f7ab34ae92bb
Set case-table for Cyrillic characters.
Richard M. Stallman <rms@gnu.org>
parents:
18561
diff
changeset
|
224 (set-case-syntax-pair ?,L#(B ?,Ls(B tbl) |
f7ab34ae92bb
Set case-table for Cyrillic characters.
Richard M. Stallman <rms@gnu.org>
parents:
18561
diff
changeset
|
225 (set-case-syntax-pair ?,L$(B ?,Lt(B tbl) |
f7ab34ae92bb
Set case-table for Cyrillic characters.
Richard M. Stallman <rms@gnu.org>
parents:
18561
diff
changeset
|
226 (set-case-syntax-pair ?,L%(B ?,Lu(B tbl) |
f7ab34ae92bb
Set case-table for Cyrillic characters.
Richard M. Stallman <rms@gnu.org>
parents:
18561
diff
changeset
|
227 (set-case-syntax-pair ?,L&(B ?,Lv(B tbl) |
f7ab34ae92bb
Set case-table for Cyrillic characters.
Richard M. Stallman <rms@gnu.org>
parents:
18561
diff
changeset
|
228 (set-case-syntax-pair ?,L'(B ?,Lw(B tbl) |
f7ab34ae92bb
Set case-table for Cyrillic characters.
Richard M. Stallman <rms@gnu.org>
parents:
18561
diff
changeset
|
229 (set-case-syntax-pair ?,L((B ?,Lx(B tbl) |
f7ab34ae92bb
Set case-table for Cyrillic characters.
Richard M. Stallman <rms@gnu.org>
parents:
18561
diff
changeset
|
230 (set-case-syntax-pair ?,L)(B ?,Ly(B tbl) |
f7ab34ae92bb
Set case-table for Cyrillic characters.
Richard M. Stallman <rms@gnu.org>
parents:
18561
diff
changeset
|
231 (set-case-syntax-pair ?,L*(B ?,Lz(B tbl) |
f7ab34ae92bb
Set case-table for Cyrillic characters.
Richard M. Stallman <rms@gnu.org>
parents:
18561
diff
changeset
|
232 (set-case-syntax-pair ?,L+(B ?,L{(B tbl) |
f7ab34ae92bb
Set case-table for Cyrillic characters.
Richard M. Stallman <rms@gnu.org>
parents:
18561
diff
changeset
|
233 (set-case-syntax-pair ?,L,(B ?,L|(B tbl) |
f7ab34ae92bb
Set case-table for Cyrillic characters.
Richard M. Stallman <rms@gnu.org>
parents:
18561
diff
changeset
|
234 (set-case-syntax-pair ?,L.(B ?,L~(B tbl) |
f7ab34ae92bb
Set case-table for Cyrillic characters.
Richard M. Stallman <rms@gnu.org>
parents:
18561
diff
changeset
|
235 (set-case-syntax-pair ?,L/(B ?,L(B tbl) |
f7ab34ae92bb
Set case-table for Cyrillic characters.
Richard M. Stallman <rms@gnu.org>
parents:
18561
diff
changeset
|
236 (set-case-syntax-pair ?,L0(B ?,LP(B tbl) |
f7ab34ae92bb
Set case-table for Cyrillic characters.
Richard M. Stallman <rms@gnu.org>
parents:
18561
diff
changeset
|
237 (set-case-syntax-pair ?,L1(B ?,LQ(B tbl) |
f7ab34ae92bb
Set case-table for Cyrillic characters.
Richard M. Stallman <rms@gnu.org>
parents:
18561
diff
changeset
|
238 (set-case-syntax-pair ?,L2(B ?,LR(B tbl) |
f7ab34ae92bb
Set case-table for Cyrillic characters.
Richard M. Stallman <rms@gnu.org>
parents:
18561
diff
changeset
|
239 (set-case-syntax-pair ?,L3(B ?,LS(B tbl) |
f7ab34ae92bb
Set case-table for Cyrillic characters.
Richard M. Stallman <rms@gnu.org>
parents:
18561
diff
changeset
|
240 (set-case-syntax-pair ?,L4(B ?,LT(B tbl) |
f7ab34ae92bb
Set case-table for Cyrillic characters.
Richard M. Stallman <rms@gnu.org>
parents:
18561
diff
changeset
|
241 (set-case-syntax-pair ?,L5(B ?,LU(B tbl) |
f7ab34ae92bb
Set case-table for Cyrillic characters.
Richard M. Stallman <rms@gnu.org>
parents:
18561
diff
changeset
|
242 (set-case-syntax-pair ?,L6(B ?,LV(B tbl) |
f7ab34ae92bb
Set case-table for Cyrillic characters.
Richard M. Stallman <rms@gnu.org>
parents:
18561
diff
changeset
|
243 (set-case-syntax-pair ?,L7(B ?,LW(B tbl) |
f7ab34ae92bb
Set case-table for Cyrillic characters.
Richard M. Stallman <rms@gnu.org>
parents:
18561
diff
changeset
|
244 (set-case-syntax-pair ?,L8(B ?,LX(B tbl) |
f7ab34ae92bb
Set case-table for Cyrillic characters.
Richard M. Stallman <rms@gnu.org>
parents:
18561
diff
changeset
|
245 (set-case-syntax-pair ?,L9(B ?,LY(B tbl) |
f7ab34ae92bb
Set case-table for Cyrillic characters.
Richard M. Stallman <rms@gnu.org>
parents:
18561
diff
changeset
|
246 (set-case-syntax-pair ?,L:(B ?,LZ(B tbl) |
f7ab34ae92bb
Set case-table for Cyrillic characters.
Richard M. Stallman <rms@gnu.org>
parents:
18561
diff
changeset
|
247 (set-case-syntax-pair ?,L;(B ?,L[(B tbl) |
f7ab34ae92bb
Set case-table for Cyrillic characters.
Richard M. Stallman <rms@gnu.org>
parents:
18561
diff
changeset
|
248 (set-case-syntax-pair ?,L<(B ?,L\(B tbl) |
f7ab34ae92bb
Set case-table for Cyrillic characters.
Richard M. Stallman <rms@gnu.org>
parents:
18561
diff
changeset
|
249 (set-case-syntax-pair ?,L=(B ?,L](B tbl) |
f7ab34ae92bb
Set case-table for Cyrillic characters.
Richard M. Stallman <rms@gnu.org>
parents:
18561
diff
changeset
|
250 (set-case-syntax-pair ?,L>(B ?,L^(B tbl) |
f7ab34ae92bb
Set case-table for Cyrillic characters.
Richard M. Stallman <rms@gnu.org>
parents:
18561
diff
changeset
|
251 (set-case-syntax-pair ?,L?(B ?,L_(B tbl) |
f7ab34ae92bb
Set case-table for Cyrillic characters.
Richard M. Stallman <rms@gnu.org>
parents:
18561
diff
changeset
|
252 (set-case-syntax-pair ?,L@(B ?,L`(B tbl) |
f7ab34ae92bb
Set case-table for Cyrillic characters.
Richard M. Stallman <rms@gnu.org>
parents:
18561
diff
changeset
|
253 (set-case-syntax-pair ?,LA(B ?,La(B tbl) |
f7ab34ae92bb
Set case-table for Cyrillic characters.
Richard M. Stallman <rms@gnu.org>
parents:
18561
diff
changeset
|
254 (set-case-syntax-pair ?,LB(B ?,Lb(B tbl) |
f7ab34ae92bb
Set case-table for Cyrillic characters.
Richard M. Stallman <rms@gnu.org>
parents:
18561
diff
changeset
|
255 (set-case-syntax-pair ?,LC(B ?,Lc(B tbl) |
f7ab34ae92bb
Set case-table for Cyrillic characters.
Richard M. Stallman <rms@gnu.org>
parents:
18561
diff
changeset
|
256 (set-case-syntax-pair ?,LD(B ?,Ld(B tbl) |
f7ab34ae92bb
Set case-table for Cyrillic characters.
Richard M. Stallman <rms@gnu.org>
parents:
18561
diff
changeset
|
257 (set-case-syntax-pair ?,LE(B ?,Le(B tbl) |
f7ab34ae92bb
Set case-table for Cyrillic characters.
Richard M. Stallman <rms@gnu.org>
parents:
18561
diff
changeset
|
258 (set-case-syntax-pair ?,LF(B ?,Lf(B tbl) |
f7ab34ae92bb
Set case-table for Cyrillic characters.
Richard M. Stallman <rms@gnu.org>
parents:
18561
diff
changeset
|
259 (set-case-syntax-pair ?,LG(B ?,Lg(B tbl) |
f7ab34ae92bb
Set case-table for Cyrillic characters.
Richard M. Stallman <rms@gnu.org>
parents:
18561
diff
changeset
|
260 (set-case-syntax-pair ?,LH(B ?,Lh(B tbl) |
f7ab34ae92bb
Set case-table for Cyrillic characters.
Richard M. Stallman <rms@gnu.org>
parents:
18561
diff
changeset
|
261 (set-case-syntax-pair ?,LI(B ?,Li(B tbl) |
f7ab34ae92bb
Set case-table for Cyrillic characters.
Richard M. Stallman <rms@gnu.org>
parents:
18561
diff
changeset
|
262 (set-case-syntax-pair ?,LJ(B ?,Lj(B tbl) |
f7ab34ae92bb
Set case-table for Cyrillic characters.
Richard M. Stallman <rms@gnu.org>
parents:
18561
diff
changeset
|
263 (set-case-syntax-pair ?,LK(B ?,Lk(B tbl) |
f7ab34ae92bb
Set case-table for Cyrillic characters.
Richard M. Stallman <rms@gnu.org>
parents:
18561
diff
changeset
|
264 (set-case-syntax-pair ?,LL(B ?,Ll(B tbl) |
f7ab34ae92bb
Set case-table for Cyrillic characters.
Richard M. Stallman <rms@gnu.org>
parents:
18561
diff
changeset
|
265 (set-case-syntax-pair ?,LM(B ?,Lm(B tbl) |
f7ab34ae92bb
Set case-table for Cyrillic characters.
Richard M. Stallman <rms@gnu.org>
parents:
18561
diff
changeset
|
266 (set-case-syntax-pair ?,LN(B ?,Ln(B tbl) |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
267 (set-case-syntax-pair ?,LO(B ?,Lo(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
268 (set-case-syntax-pair ?$,1(!(B ?$,1(q(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
269 (set-case-syntax-pair ?$,1("(B ?$,1(r(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
270 (set-case-syntax-pair ?$,1(#(B ?$,1(s(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
271 (set-case-syntax-pair ?$,1($(B ?$,1(t(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
272 (set-case-syntax-pair ?$,1(%(B ?$,1(u(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
273 (set-case-syntax-pair ?$,1(&(B ?$,1(v(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
274 (set-case-syntax-pair ?$,1('(B ?$,1(w(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
275 (set-case-syntax-pair ?$,1(((B ?$,1(x(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
276 (set-case-syntax-pair ?$,1()(B ?$,1(y(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
277 (set-case-syntax-pair ?$,1(*(B ?$,1(z(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
278 (set-case-syntax-pair ?$,1(+(B ?$,1({(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
279 (set-case-syntax-pair ?$,1(,(B ?$,1(|(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
280 (set-case-syntax-pair ?$,1(.(B ?$,1(~(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
281 (set-case-syntax-pair ?$,1(/(B ?$,1((B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
282 (set-case-syntax-pair ?$,1(0(B ?$,1(P(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
283 (set-case-syntax-pair ?$,1(1(B ?$,1(Q(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
284 (set-case-syntax-pair ?$,1(2(B ?$,1(R(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
285 (set-case-syntax-pair ?$,1(3(B ?$,1(S(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
286 (set-case-syntax-pair ?$,1(4(B ?$,1(T(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
287 (set-case-syntax-pair ?$,1(5(B ?$,1(U(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
288 (set-case-syntax-pair ?$,1(6(B ?$,1(V(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
289 (set-case-syntax-pair ?$,1(7(B ?$,1(W(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
290 (set-case-syntax-pair ?$,1(8(B ?$,1(X(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
291 (set-case-syntax-pair ?$,1(9(B ?$,1(Y(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
292 (set-case-syntax-pair ?$,1(:(B ?$,1(Z(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
293 (set-case-syntax-pair ?$,1(;(B ?$,1([(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
294 (set-case-syntax-pair ?$,1(<(B ?$,1(\(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
295 (set-case-syntax-pair ?$,1(=(B ?$,1(](B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
296 (set-case-syntax-pair ?$,1(>(B ?$,1(^(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
297 (set-case-syntax-pair ?$,1(?(B ?$,1(_(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
298 (set-case-syntax-pair ?$,1(@(B ?$,1(`(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
299 (set-case-syntax-pair ?$,1(A(B ?$,1(a(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
300 (set-case-syntax-pair ?$,1(B(B ?$,1(b(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
301 (set-case-syntax-pair ?$,1(C(B ?$,1(c(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
302 (set-case-syntax-pair ?$,1(D(B ?$,1(d(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
303 (set-case-syntax-pair ?$,1(E(B ?$,1(e(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
304 (set-case-syntax-pair ?$,1(F(B ?$,1(f(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
305 (set-case-syntax-pair ?$,1(G(B ?$,1(g(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
306 (set-case-syntax-pair ?$,1(H(B ?$,1(h(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
307 (set-case-syntax-pair ?$,1(I(B ?$,1(i(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
308 (set-case-syntax-pair ?$,1(J(B ?$,1(j(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
309 (set-case-syntax-pair ?$,1(K(B ?$,1(k(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
310 (set-case-syntax-pair ?$,1(L(B ?$,1(l(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
311 (set-case-syntax-pair ?$,1(M(B ?$,1(m(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
312 (set-case-syntax-pair ?$,1(N(B ?$,1(n(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
313 (set-case-syntax-pair ?$,1(O(B ?$,1(o(B tbl)) |
17052 | 314 |
17753
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
315 ;; Devanagari character set |
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
316 |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
317 ;;; Commented out since the categories appear not to be used anywhere |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
318 ;;; and word syntax is the default. |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
319 ;; (let ((deflist '(;; chars syntax category |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
320 ;; ("$(5!!!"!#(B" "w" ?7) ; vowel-modifying diacritical mark |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
321 ;; ; chandrabindu, anuswar, visarga |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
322 ;; ("$(5!$(B-$(5!2(B" "w" ?1) ; independent vowel |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
323 ;; ("$(5!3(B-$(5!X(B" "w" ?0) ; consonant |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
324 ;; ("$(5!Z(B-$(5!g(B" "w" ?8) ; matra |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
325 ;; ("$(5!q(B-$(5!z(B" "w" ?6) ; digit |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
326 ;; ;; Unicode equivalents |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
327 ;; ("$,15A5B5C(B" "w" ?7) ; vowel-modifying diacritical mark |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
328 ;; ; chandrabindu, anuswar, visarga |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
329 ;; ("$,15E(B-$,15M(B" "w" ?1) ; independent vowel |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
330 ;; ("$,15U(B-$,15y(B" "w" ?0) ; consonant |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
331 ;; ("$,15~(B-$,16)(B" "w" ?8) ; matra |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
332 ;; ("$,16F(B-$,16O(B" "w" ?6) ; digit |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
333 ;; )) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
334 ;; elm chars len syntax category to ch i) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
335 ;; (while deflist |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
336 ;; (setq elm (car deflist)) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
337 ;; (setq chars (car elm) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
338 ;; len (length chars) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
339 ;; syntax (nth 1 elm) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
340 ;; category (nth 2 elm) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
341 ;; i 0) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
342 ;; (while (< i len) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
343 ;; (if (= (aref chars i) ?-) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
344 ;; (setq i (1+ i) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
345 ;; to (aref chars i)) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
346 ;; (setq ch (aref chars i) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
347 ;; to ch)) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
348 ;; (while (<= ch to) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
349 ;; (modify-syntax-entry ch syntax) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
350 ;; (modify-category-entry ch category) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
351 ;; (setq ch (1+ ch))) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
352 ;; (setq i (1+ i))) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
353 ;; (setq deflist (cdr deflist)))) |
17753
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
354 |
17052 | 355 ;; Ethiopic character set |
356 | |
357 (modify-category-entry (make-char 'ethiopic) ?e) | |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
358 ;; (modify-syntax-entry (make-char 'ethiopic) "w") |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
359 (dotimes (i (1+ (- #x137c #x1200))) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
360 (modify-category-entry (decode-char 'ucs (+ #x1200 i)) ?e)) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
361 (let ((chars '(?$(3$h(B ?$(3$i(B ?$(3$j(B ?$(3$k(B ?$(3$l(B ?$(3$m(B ?$(3$n(B ?$(3$o(B ?$(3%i(B ?$(3%t(B ?$(3%u(B ?$(3%v(B ?$(3%w(B ?$(3%x(B |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
362 ;; Unicode equivalents of the above: |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
363 ?$,1Q!(B ?$,1Q"(B ?$,1Q#(B ?$,1Q$(B ?$,1Q%(B ?$,1Q&(B ?$,1Q'(B ?$,1Q((B ?$,3op(B ?$,3o{(B ?$,3o|(B ?$,3o}(B ?$,3o~(B ?$,3o(B))) |
18304
58b39b4108d5
Set syntaxes of Ethiopic characters.
Kenichi Handa <handa@m17n.org>
parents:
18205
diff
changeset
|
364 (while chars |
58b39b4108d5
Set syntaxes of Ethiopic characters.
Kenichi Handa <handa@m17n.org>
parents:
18205
diff
changeset
|
365 (modify-syntax-entry (car chars) ".") |
58b39b4108d5
Set syntaxes of Ethiopic characters.
Kenichi Handa <handa@m17n.org>
parents:
18205
diff
changeset
|
366 (setq chars (cdr chars)))) |
17052 | 367 |
368 ;; Greek character set (ISO-8859-7) | |
369 | |
370 (modify-category-entry (make-char 'greek-iso8859-7) ?g) | |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
371 (let ((c #x370)) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
372 (while (<= c #x3ff) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
373 (modify-category-entry (decode-char 'ucs c) ?g) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
374 (setq c (1+ c)))) |
17052 | 375 |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
376 ;; (let ((c 182)) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
377 ;; (while (< c 255) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
378 ;; (modify-syntax-entry (make-char 'greek-iso8859-7 c) "w") |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
379 ;; (setq c (1+ c)))) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
380 ;; (modify-syntax-entry (make-char 'greek-iso8859-7 160) "w") ; NBSP |
17052 | 381 (modify-syntax-entry ?,F7(B ".") |
382 (modify-syntax-entry ?,F;(B ".") | |
383 (modify-syntax-entry ?,F=(B ".") | |
31664
b41bc1b0a044
(standard-case-table): Add entries
Dave Love <fx@gnu.org>
parents:
29362
diff
changeset
|
384 (let ((tbl (standard-case-table))) |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
385 ;; Fixme: non-letter syntax copied from latin-1, but that's dubious |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
386 ;; in several cases. |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
387 (set-case-syntax ?,F!(B "." tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
388 (set-case-syntax ?,F"(B "." tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
389 (set-case-syntax ?,F&(B "." tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
390 (set-case-syntax ?,F&(B "_" tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
391 (set-case-syntax ?,F'(B "." tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
392 (set-case-syntax ?,F)(B "_" tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
393 (set-case-syntax ?,F+(B "." tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
394 (set-case-syntax ?,F,(B "_" tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
395 (set-case-syntax ?,F-(B "_" tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
396 (set-case-syntax ?,F/(B "." tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
397 (set-case-syntax ?,F0(B "_" tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
398 (set-case-syntax ?,F1(B "_" tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
399 ;; (set-case-syntax ?,F7(B "_" tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
400 ;; (set-case-syntax ?,F=(B "_" tbl) |
31664
b41bc1b0a044
(standard-case-table): Add entries
Dave Love <fx@gnu.org>
parents:
29362
diff
changeset
|
401 (set-case-syntax-pair ?,FA(B ?,Fa(B tbl) |
b41bc1b0a044
(standard-case-table): Add entries
Dave Love <fx@gnu.org>
parents:
29362
diff
changeset
|
402 (set-case-syntax-pair ?,FB(B ?,Fb(B tbl) |
b41bc1b0a044
(standard-case-table): Add entries
Dave Love <fx@gnu.org>
parents:
29362
diff
changeset
|
403 (set-case-syntax-pair ?,FC(B ?,Fc(B tbl) |
b41bc1b0a044
(standard-case-table): Add entries
Dave Love <fx@gnu.org>
parents:
29362
diff
changeset
|
404 (set-case-syntax-pair ?,FD(B ?,Fd(B tbl) |
b41bc1b0a044
(standard-case-table): Add entries
Dave Love <fx@gnu.org>
parents:
29362
diff
changeset
|
405 (set-case-syntax-pair ?,FE(B ?,Fe(B tbl) |
b41bc1b0a044
(standard-case-table): Add entries
Dave Love <fx@gnu.org>
parents:
29362
diff
changeset
|
406 (set-case-syntax-pair ?,FF(B ?,Ff(B tbl) |
b41bc1b0a044
(standard-case-table): Add entries
Dave Love <fx@gnu.org>
parents:
29362
diff
changeset
|
407 (set-case-syntax-pair ?,FG(B ?,Fg(B tbl) |
b41bc1b0a044
(standard-case-table): Add entries
Dave Love <fx@gnu.org>
parents:
29362
diff
changeset
|
408 (set-case-syntax-pair ?,FH(B ?,Fh(B tbl) |
b41bc1b0a044
(standard-case-table): Add entries
Dave Love <fx@gnu.org>
parents:
29362
diff
changeset
|
409 (set-case-syntax-pair ?,FI(B ?,Fi(B tbl) |
b41bc1b0a044
(standard-case-table): Add entries
Dave Love <fx@gnu.org>
parents:
29362
diff
changeset
|
410 (set-case-syntax-pair ?,FJ(B ?,Fj(B tbl) |
b41bc1b0a044
(standard-case-table): Add entries
Dave Love <fx@gnu.org>
parents:
29362
diff
changeset
|
411 (set-case-syntax-pair ?,FK(B ?,Fk(B tbl) |
b41bc1b0a044
(standard-case-table): Add entries
Dave Love <fx@gnu.org>
parents:
29362
diff
changeset
|
412 (set-case-syntax-pair ?,FL(B ?,Fl(B tbl) |
b41bc1b0a044
(standard-case-table): Add entries
Dave Love <fx@gnu.org>
parents:
29362
diff
changeset
|
413 (set-case-syntax-pair ?,FM(B ?,Fm(B tbl) |
b41bc1b0a044
(standard-case-table): Add entries
Dave Love <fx@gnu.org>
parents:
29362
diff
changeset
|
414 (set-case-syntax-pair ?,FN(B ?,Fn(B tbl) |
b41bc1b0a044
(standard-case-table): Add entries
Dave Love <fx@gnu.org>
parents:
29362
diff
changeset
|
415 (set-case-syntax-pair ?,FO(B ?,Fo(B tbl) |
b41bc1b0a044
(standard-case-table): Add entries
Dave Love <fx@gnu.org>
parents:
29362
diff
changeset
|
416 (set-case-syntax-pair ?,FP(B ?,Fp(B tbl) |
b41bc1b0a044
(standard-case-table): Add entries
Dave Love <fx@gnu.org>
parents:
29362
diff
changeset
|
417 (set-case-syntax-pair ?,FQ(B ?,Fq(B tbl) |
b41bc1b0a044
(standard-case-table): Add entries
Dave Love <fx@gnu.org>
parents:
29362
diff
changeset
|
418 (set-case-syntax-pair ?,FS(B ?,Fs(B tbl) |
b41bc1b0a044
(standard-case-table): Add entries
Dave Love <fx@gnu.org>
parents:
29362
diff
changeset
|
419 (set-case-syntax-pair ?,FT(B ?,Ft(B tbl) |
b41bc1b0a044
(standard-case-table): Add entries
Dave Love <fx@gnu.org>
parents:
29362
diff
changeset
|
420 (set-case-syntax-pair ?,FU(B ?,Fu(B tbl) |
b41bc1b0a044
(standard-case-table): Add entries
Dave Love <fx@gnu.org>
parents:
29362
diff
changeset
|
421 (set-case-syntax-pair ?,FV(B ?,Fv(B tbl) |
b41bc1b0a044
(standard-case-table): Add entries
Dave Love <fx@gnu.org>
parents:
29362
diff
changeset
|
422 (set-case-syntax-pair ?,FW(B ?,Fw(B tbl) |
b41bc1b0a044
(standard-case-table): Add entries
Dave Love <fx@gnu.org>
parents:
29362
diff
changeset
|
423 (set-case-syntax-pair ?,FX(B ?,Fx(B tbl) |
b41bc1b0a044
(standard-case-table): Add entries
Dave Love <fx@gnu.org>
parents:
29362
diff
changeset
|
424 (set-case-syntax-pair ?,FY(B ?,Fy(B tbl) |
b41bc1b0a044
(standard-case-table): Add entries
Dave Love <fx@gnu.org>
parents:
29362
diff
changeset
|
425 (set-case-syntax-pair ?,FZ(B ?,Fz(B tbl) |
b41bc1b0a044
(standard-case-table): Add entries
Dave Love <fx@gnu.org>
parents:
29362
diff
changeset
|
426 (set-case-syntax-pair ?,F[(B ?,F{(B tbl) |
b41bc1b0a044
(standard-case-table): Add entries
Dave Love <fx@gnu.org>
parents:
29362
diff
changeset
|
427 (set-case-syntax-pair ?,F?(B ?,F~(B tbl) |
b41bc1b0a044
(standard-case-table): Add entries
Dave Love <fx@gnu.org>
parents:
29362
diff
changeset
|
428 (set-case-syntax-pair ?,F>(B ?,F}(B tbl) |
b41bc1b0a044
(standard-case-table): Add entries
Dave Love <fx@gnu.org>
parents:
29362
diff
changeset
|
429 (set-case-syntax-pair ?,F<(B ?,F|(B tbl) |
b41bc1b0a044
(standard-case-table): Add entries
Dave Love <fx@gnu.org>
parents:
29362
diff
changeset
|
430 (set-case-syntax-pair ?,F6(B ?,F\(B tbl) |
b41bc1b0a044
(standard-case-table): Add entries
Dave Love <fx@gnu.org>
parents:
29362
diff
changeset
|
431 (set-case-syntax-pair ?,F8(B ?,F](B tbl) |
b41bc1b0a044
(standard-case-table): Add entries
Dave Love <fx@gnu.org>
parents:
29362
diff
changeset
|
432 (set-case-syntax-pair ?,F9(B ?,F^(B tbl) |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
433 (set-case-syntax-pair ?,F:(B ?,F_(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
434 ;; Unicode equivalents |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
435 (set-case-syntax-pair ?$,1&q(B ?$,1'1(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
436 (set-case-syntax-pair ?$,1&r(B ?$,1'2(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
437 (set-case-syntax-pair ?$,1&s(B ?$,1'3(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
438 (set-case-syntax-pair ?$,1&t(B ?$,1'4(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
439 (set-case-syntax-pair ?$,1&u(B ?$,1'5(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
440 (set-case-syntax-pair ?$,1&v(B ?$,1'6(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
441 (set-case-syntax-pair ?$,1&w(B ?$,1'7(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
442 (set-case-syntax-pair ?$,1&x(B ?$,1'8(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
443 (set-case-syntax-pair ?$,1&y(B ?$,1'9(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
444 (set-case-syntax-pair ?$,1&z(B ?$,1':(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
445 (set-case-syntax-pair ?$,1&{(B ?$,1';(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
446 (set-case-syntax-pair ?$,1&|(B ?$,1'<(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
447 (set-case-syntax-pair ?$,1&}(B ?$,1'=(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
448 (set-case-syntax-pair ?$,1&~(B ?$,1'>(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
449 (set-case-syntax-pair ?$,1&(B ?$,1'?(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
450 (set-case-syntax-pair ?$,1' (B ?$,1'@(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
451 (set-case-syntax-pair ?$,1'!(B ?$,1'A(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
452 (set-case-syntax-pair ?$,1'#(B ?$,1'C(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
453 (set-case-syntax-pair ?$,1'$(B ?$,1'D(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
454 (set-case-syntax-pair ?$,1'%(B ?$,1'E(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
455 (set-case-syntax-pair ?$,1'&(B ?$,1'F(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
456 (set-case-syntax-pair ?$,1''(B ?$,1'G(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
457 (set-case-syntax-pair ?$,1'((B ?$,1'H(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
458 (set-case-syntax-pair ?$,1')(B ?$,1'I(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
459 (set-case-syntax-pair ?$,1'*(B ?$,1'J(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
460 (set-case-syntax-pair ?$,1'+(B ?$,1'K(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
461 (set-case-syntax-pair ?$,1&o(B ?$,1'N(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
462 (set-case-syntax-pair ?$,1&n(B ?$,1'M(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
463 (set-case-syntax-pair ?$,1&l(B ?$,1'L(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
464 (set-case-syntax-pair ?$,1&f(B ?$,1',(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
465 (set-case-syntax-pair ?$,1&h(B ?$,1'-(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
466 (set-case-syntax-pair ?$,1&i(B ?$,1'.(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
467 (set-case-syntax-pair ?$,1&j(B ?$,1'/(B tbl)) |
17052 | 468 |
469 ;; Hebrew character set (ISO-8859-8) | |
470 | |
41882
f3bc5e440020
Resurrect the Hebrew category
Eli Zaretskii <eliz@gnu.org>
parents:
41874
diff
changeset
|
471 (modify-category-entry (make-char 'hebrew-iso8859-8) ?w) |
f3bc5e440020
Resurrect the Hebrew category
Eli Zaretskii <eliz@gnu.org>
parents:
41874
diff
changeset
|
472 (let ((c #x591)) |
f3bc5e440020
Resurrect the Hebrew category
Eli Zaretskii <eliz@gnu.org>
parents:
41874
diff
changeset
|
473 (while (<= c #x5f4) |
f3bc5e440020
Resurrect the Hebrew category
Eli Zaretskii <eliz@gnu.org>
parents:
41874
diff
changeset
|
474 (modify-category-entry (decode-char 'ucs c) ?w) |
f3bc5e440020
Resurrect the Hebrew category
Eli Zaretskii <eliz@gnu.org>
parents:
41874
diff
changeset
|
475 (setq c (1+ c)))) |
f3bc5e440020
Resurrect the Hebrew category
Eli Zaretskii <eliz@gnu.org>
parents:
41874
diff
changeset
|
476 |
f3bc5e440020
Resurrect the Hebrew category
Eli Zaretskii <eliz@gnu.org>
parents:
41874
diff
changeset
|
477 (modify-syntax-entry (make-char 'hebrew-iso8859-8 208) ".") ; PASEQ |
f3bc5e440020
Resurrect the Hebrew category
Eli Zaretskii <eliz@gnu.org>
parents:
41874
diff
changeset
|
478 (modify-syntax-entry (make-char 'hebrew-iso8859-8 211) ".") ; SOF PASUQ |
f3bc5e440020
Resurrect the Hebrew category
Eli Zaretskii <eliz@gnu.org>
parents:
41874
diff
changeset
|
479 (modify-syntax-entry (decode-char 'ucs #x5be) ".") ; MAQAF |
f3bc5e440020
Resurrect the Hebrew category
Eli Zaretskii <eliz@gnu.org>
parents:
41874
diff
changeset
|
480 (modify-syntax-entry (decode-char 'ucs #x5c0) ".") ; PASEQ |
f3bc5e440020
Resurrect the Hebrew category
Eli Zaretskii <eliz@gnu.org>
parents:
41874
diff
changeset
|
481 (modify-syntax-entry (decode-char 'ucs #x5c3) ".") ; SOF PASUQ |
f3bc5e440020
Resurrect the Hebrew category
Eli Zaretskii <eliz@gnu.org>
parents:
41874
diff
changeset
|
482 (modify-syntax-entry (decode-char 'ucs #x5f3) ".") ; GERESH |
f3bc5e440020
Resurrect the Hebrew category
Eli Zaretskii <eliz@gnu.org>
parents:
41874
diff
changeset
|
483 (modify-syntax-entry (decode-char 'ucs #x5f4) ".") ; GERSHAYIM |
17052 | 484 |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
485 ;; (let ((c 224)) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
486 ;; (while (< c 251) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
487 ;; (modify-syntax-entry (make-char 'hebrew-iso8859-8 c) "w") |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
488 ;; (setq c (1+ c)))) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
489 ;; (modify-syntax-entry (make-char 'hebrew-iso8859-8 160) "w") ; NBSP |
17052 | 490 |
491 ;; Indian character set (IS 13194 and other Emacs original Indian charsets) | |
492 | |
493 (modify-category-entry (make-char 'indian-is13194) ?i) | |
494 (modify-category-entry (make-char 'indian-2-column) ?I) | |
41466
b364f798b789
Adjusted for the change of indian-1-column -> indian-glyph.
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
495 (modify-category-entry (make-char 'indian-glyph) ?I) |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
496 ;; Unicode Devanagari block |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
497 (let ((c #x901)) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
498 (while (<= c #x970) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
499 (modify-category-entry (decode-char 'ucs c) ?i) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
500 (setq c (1+ c)))) |
17052 | 501 |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
502 ;;; Commented out since the categories appear not to be used anywhere |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
503 ;;; and word syntax is the default. |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
504 ;; (let ((deflist ; |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
505 ;; '(;; chars syntax category |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
506 ;; ("(5!"#(B" "w" ?7) ; vowel-modifying diacritical mark |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
507 ;; ; chandrabindu, anuswar, visarga |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
508 ;; ("(5$(B-(52(B" "w" ?1) ; base (independent) vowel |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
509 ;; ("(53(B-(5X(B" "w" ?0) ; consonant |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
510 ;; ("(5Z(B-(5g(B" "w" ?8) ; matra |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
511 ;; ("(5q(B-(5z(B" "w" ?6) ; digit |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
512 ;; )) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
513 ;; elm chars len syntax category to ch i) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
514 ;; (while deflist |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
515 ;; (setq elm (car deflist)) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
516 ;; (setq chars (car elm) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
517 ;; len (length chars) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
518 ;; syntax (nth 1 elm) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
519 ;; category (nth 2 elm) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
520 ;; i 0) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
521 ;; (while (< i len) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
522 ;; (if (= (aref chars i) ?-) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
523 ;; (setq i (1+ i) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
524 ;; to (aref chars i)) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
525 ;; (setq ch (aref chars i) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
526 ;; to ch)) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
527 ;; (while (<= ch to) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
528 ;; (modify-syntax-entry ch syntax) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
529 ;; (modify-category-entry ch category) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
530 ;; (setq ch (1+ ch))) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
531 ;; (setq i (1+ i))) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
532 ;; (setq deflist (cdr deflist)))) |
20843 | 533 |
534 | |
17052 | 535 ;; Japanese character set (JISX0201-kana, JISX0201-roman, JISX0208, JISX0212) |
536 | |
537 (modify-category-entry (make-char 'katakana-jisx0201) ?k) | |
36688
45b172fa5c17
Add category `j' for katakana-jisx0201. Fix syntaxes of
Kenichi Handa <handa@m17n.org>
parents:
34507
diff
changeset
|
538 (modify-category-entry (make-char 'katakana-jisx0201) ?j) |
17052 | 539 (modify-category-entry (make-char 'latin-jisx0201) ?r) |
540 (modify-category-entry (make-char 'japanese-jisx0208) ?j) | |
541 (modify-category-entry (make-char 'japanese-jisx0212) ?j) | |
17753
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
542 (modify-category-entry (make-char 'katakana-jisx0201) ?\|) |
17052 | 543 (modify-category-entry (make-char 'japanese-jisx0208) ?\|) |
17753
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
544 (modify-category-entry (make-char 'japanese-jisx0212) ?\|) |
17052 | 545 |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
546 ;; Unicode equivalents of JISX0201-kana |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
547 (let ((c #xff61)) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
548 (while (<= c #xff9f) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
549 (modify-category-entry (decode-char 'ucs c) ?k) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
550 (modify-category-entry (decode-char 'ucs c) ?j) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
551 (modify-category-entry (decode-char 'ucs c) ?\|) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
552 (setq c (1+ c)))) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
553 |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
554 ;; Katakana block |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
555 (let ((c #x30a0)) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
556 (while (<= c #x30ff) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
557 ;; ?K is double width, ?k isn't specified |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
558 (modify-category-entry (decode-char 'ucs c) ?k) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
559 (modify-category-entry (decode-char 'ucs c) ?j) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
560 (modify-category-entry (decode-char 'ucs c) ?\|) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
561 (setq c (1+ c)))) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
562 |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
563 ;; Hiragana block |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
564 (let ((c #x3040)) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
565 (while (<= c #x309f) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
566 ;; ?H is actually defined to be double width |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
567 (modify-category-entry (decode-char 'ucs c) ?H) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
568 ;;(modify-category-entry (decode-char 'ucs c) ?j) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
569 (modify-category-entry (decode-char 'ucs c) ?\|) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
570 (setq c (1+ c)))) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
571 |
17052 | 572 ;; JISX0208 |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
573 ;; (modify-syntax-entry (make-char 'japanese-jisx0208) "w") |
17052 | 574 (modify-syntax-entry (make-char 'japanese-jisx0208 33) "_") |
575 (modify-syntax-entry (make-char 'japanese-jisx0208 34) "_") | |
576 (modify-syntax-entry (make-char 'japanese-jisx0208 40) "_") | |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
577 ;; (let ((chars '(?$B!<(B ?$B!+(B ?$B!,(B ?$B!3(B ?$B!4(B ?$B!5(B ?$B!6(B ?$B!7(B ?$B!8(B ?$B!9(B ?$B!:(B ?$B!;(B))) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
578 ;; (while chars |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
579 ;; (modify-syntax-entry (car chars) "w") |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
580 ;; (setq chars (cdr chars)))) |
17052 | 581 (modify-syntax-entry ?\$B!J(B "($B!K(B") |
582 (modify-syntax-entry ?\$B!N(B "($B!O(B") | |
583 (modify-syntax-entry ?\$B!P(B "($B!Q(B") | |
584 (modify-syntax-entry ?\$B!V(B "($B!W(B") | |
585 (modify-syntax-entry ?\$B!X(B "($B!Y(B") | |
586 (modify-syntax-entry ?\$B!K(B ")$B!J(B") | |
587 (modify-syntax-entry ?\$B!O(B ")$B!N(B") | |
588 (modify-syntax-entry ?\$B!Q(B ")$B!P(B") | |
589 (modify-syntax-entry ?\$B!W(B ")$B!V(B") | |
590 (modify-syntax-entry ?\$B!Y(B ")$B!X(B") | |
591 | |
592 (modify-category-entry (make-char 'japanese-jisx0208 35) ?A) | |
593 (modify-category-entry (make-char 'japanese-jisx0208 36) ?H) | |
594 (modify-category-entry (make-char 'japanese-jisx0208 37) ?K) | |
595 (modify-category-entry (make-char 'japanese-jisx0208 38) ?G) | |
596 (modify-category-entry (make-char 'japanese-jisx0208 39) ?Y) | |
597 (let ((row 48)) | |
598 (while (< row 127) | |
599 (modify-category-entry (make-char 'japanese-jisx0208 row) ?C) | |
600 (setq row (1+ row)))) | |
17296
dc3f449803f6
Change a category of one Japanese character.
Kenichi Handa <handa@m17n.org>
parents:
17078
diff
changeset
|
601 (modify-category-entry ?$B!<(B ?K) |
dc3f449803f6
Change a category of one Japanese character.
Kenichi Handa <handa@m17n.org>
parents:
17078
diff
changeset
|
602 (let ((chars '(?$B!+(B ?$B!,(B))) |
17052 | 603 (while chars |
604 (modify-category-entry (car chars) ?K) | |
605 (modify-category-entry (car chars) ?H) | |
606 (setq chars (cdr chars)))) | |
607 (let ((chars '(?$B!3(B ?$B!4(B ?$B!5(B ?$B!6(B ?$B!7(B ?$B!8(B ?$B!9(B ?$B!:(B ?$B!;(B))) | |
608 (while chars | |
609 (modify-category-entry (car chars) ?C) | |
610 (setq chars (cdr chars)))) | |
611 | |
612 ;; JISX0212 | |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
613 ;; (modify-syntax-entry (make-char 'japanese-jisx0212) "w") |
17052 | 614 (modify-syntax-entry (make-char 'japanese-jisx0212 33) "_") |
615 (modify-syntax-entry (make-char 'japanese-jisx0212 34) "_") | |
616 (modify-syntax-entry (make-char 'japanese-jisx0212 35) "_") | |
617 | |
618 (modify-category-entry (make-char 'japanese-jisx0212 ) ?C) | |
619 | |
620 ;; JISX0201-Kana | |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
621 ;; (modify-syntax-entry (make-char 'katakana-jisx0201) "w") |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
622 (let ((chars '(?(I!(B ?(I$(B ?(I%(B |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
623 ;; Unicode: |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
624 ?$,3sa(B ?$,3sd(B ?$,3se(B))) |
17052 | 625 (while chars |
626 (modify-syntax-entry (car chars) ".") | |
627 (setq chars (cdr chars)))) | |
628 | |
36688
45b172fa5c17
Add category `j' for katakana-jisx0201. Fix syntaxes of
Kenichi Handa <handa@m17n.org>
parents:
34507
diff
changeset
|
629 (modify-syntax-entry ?\(I"(B "((I#(B") |
45b172fa5c17
Add category `j' for katakana-jisx0201. Fix syntaxes of
Kenichi Handa <handa@m17n.org>
parents:
34507
diff
changeset
|
630 (modify-syntax-entry ?\(I#(B "((I"(B") |
45b172fa5c17
Add category `j' for katakana-jisx0201. Fix syntaxes of
Kenichi Handa <handa@m17n.org>
parents:
34507
diff
changeset
|
631 |
17052 | 632 ;; Korean character set (KSC5601) |
633 | |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
634 ;; (modify-syntax-entry (make-char 'korean-ksc5601) "w") |
17052 | 635 (modify-syntax-entry (make-char 'korean-ksc5601 33) "_") |
636 (modify-syntax-entry (make-char 'korean-ksc5601 34) "_") | |
637 (modify-syntax-entry (make-char 'korean-ksc5601 38) "_") | |
638 (modify-syntax-entry (make-char 'korean-ksc5601 39) "_") | |
639 (modify-syntax-entry (make-char 'korean-ksc5601 40) "_") | |
640 (modify-syntax-entry (make-char 'korean-ksc5601 41) "_") | |
641 | |
642 (modify-category-entry (make-char 'korean-ksc5601) ?h) | |
643 (modify-category-entry (make-char 'korean-ksc5601 35) ?A) | |
644 (modify-category-entry (make-char 'korean-ksc5601 37) ?G) | |
645 (modify-category-entry (make-char 'korean-ksc5601 42) ?H) | |
646 (modify-category-entry (make-char 'korean-ksc5601 43) ?K) | |
647 (modify-category-entry (make-char 'korean-ksc5601 44) ?Y) | |
648 | |
33902
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
649 ;; Latin character set (latin-1,2,3,4,5,8,9) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
650 |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
651 (modify-category-entry (make-char 'latin-iso8859-1) ?l) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
652 (modify-category-entry (make-char 'latin-iso8859-2) ?l) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
653 (modify-category-entry (make-char 'latin-iso8859-3) ?l) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
654 (modify-category-entry (make-char 'latin-iso8859-4) ?l) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
655 (modify-category-entry (make-char 'latin-iso8859-9) ?l) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
656 (modify-category-entry (make-char 'latin-iso8859-14) ?l) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
657 (modify-category-entry (make-char 'latin-iso8859-15) ?l) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
658 |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
659 (modify-category-entry (make-char 'latin-iso8859-1 160) ?\ ) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
660 (modify-category-entry (make-char 'latin-iso8859-2 160) ?\ ) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
661 (modify-category-entry (make-char 'latin-iso8859-3 160) ?\ ) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
662 (modify-category-entry (make-char 'latin-iso8859-4 160) ?\ ) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
663 (modify-category-entry (make-char 'latin-iso8859-9 160) ?\ ) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
664 (modify-category-entry (make-char 'latin-iso8859-14 160) ?\ ) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
665 (modify-category-entry (make-char 'latin-iso8859-15 160) ?\ ) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
666 |
17078
874b471d6635
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
667 ;; Lao character set |
874b471d6635
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
668 |
874b471d6635
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
669 (modify-category-entry (make-char 'lao) ?o) |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
670 (dotimes (i (1+ (- #xeff #xe80))) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
671 (modify-category-entry (decode-char 'ucs (+ i #xe80)) ?o)) |
17078
874b471d6635
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
672 |
874b471d6635
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
673 (let ((deflist '(;; chars syntax category |
874b471d6635
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
674 ("(1!(B-(1N(B" "w" ?0) ; consonant |
874b471d6635
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
675 ("(1PRS]`(B-(1d(B" "w" ?1) ; vowel base |
874b471d6635
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
676 ("(1QT(B-(1W[m(B" "w" ?2) ; vowel upper |
874b471d6635
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
677 ("(1XY(B" "w" ?3) ; vowel lower |
874b471d6635
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
678 ("(1h(B-(1l(B" "w" ?4) ; tone mark |
874b471d6635
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
679 ("(1\(B" "w" ?9) ; semivowel lower |
18561
f3c28fd5118e
Modify docstring of char category
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
680 ("(1p(B-(1y(B" "w" ?6) ; digit |
26885
c151d3ae1794
Fix cateogries of Lao symbols.
Kenichi Handa <handa@m17n.org>
parents:
26013
diff
changeset
|
681 ("(1Of(B" "_" ?5) ; symbol |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
682 ;; Unicode equivalents |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
683 ("$,1D!(B-$,1DN(B" "w" ?0) ; consonant |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
684 ("$,1DPDRDSD]D`(B-$,1Dd(B" "w" ?1) ; vowel base |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
685 ("$,1DQDT(B-$,1DWD[Dm(B" "w" ?2) ; vowel upper |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
686 ("$,1DXDY(B" "w" ?3) ; vowel lower |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
687 ("$,1Dh(B-$,1Dk(B" "w" ?4) ; tone mark |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
688 ("$,1D\D](B" "w" ?9) ; semivowel lower |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
689 ("$,1Dp(B-$,1Dy(B" "w" ?6) ; digit |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
690 ("$,1DODf(B" "_" ?5) ; symbol |
17078
874b471d6635
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
691 )) |
874b471d6635
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
692 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
|
693 (while deflist |
874b471d6635
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
694 (setq elm (car deflist)) |
874b471d6635
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
695 (setq chars (car elm) |
874b471d6635
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
696 len (length chars) |
874b471d6635
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
697 syntax (nth 1 elm) |
874b471d6635
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
698 category (nth 2 elm) |
874b471d6635
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
699 i 0) |
874b471d6635
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
700 (while (< i len) |
874b471d6635
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
701 (if (= (aref chars i) ?-) |
874b471d6635
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
702 (setq i (1+ i) |
20843 | 703 to (aref chars i)) |
704 (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
|
705 to ch)) |
874b471d6635
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
706 (while (<= ch to) |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
707 (unless (string-equal syntax "w") |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
708 (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
|
709 (modify-category-entry ch category) |
874b471d6635
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
710 (setq ch (1+ ch))) |
20843 | 711 (setq i (1+ i))) |
17078
874b471d6635
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
712 (setq deflist (cdr deflist)))) |
874b471d6635
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
713 |
17052 | 714 ;; Thai character set (TIS620) |
715 | |
716 (modify-category-entry (make-char 'thai-tis620) ?t) | |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
717 (dotimes (i (1+ (- #xe7f #xe00))) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
718 (modify-category-entry (decode-char 'ucs (+ i #xe00)) ?t)) |
17052 | 719 |
720 (let ((deflist '(;; chars syntax category | |
721 (",T!(B-,TCEG(B-,TN(B" "w" ?0) ; consonant | |
722 (",TDFPRS`(B-,Te(B" "w" ?1) ; vowel base | |
723 (",TQT(B-,TWgn(B" "w" ?2) ; vowel upper | |
724 (",TX(B-,TZ(B" "w" ?3) ; vowel lower | |
725 (",Th(B-,Tm(B" "w" ?4) ; tone mark | |
18561
f3c28fd5118e
Modify docstring of char category
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
726 (",Tp(B-,Ty(B" "w" ?6) ; digit |
f3c28fd5118e
Modify docstring of char category
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
727 (",TOf_oz{(B" "_" ?5) ; symbol |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
728 ;; Unicode equivalents |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
729 ("$,1Ba(B-$,1C#C%C'(B-$,1C.(B" "w" ?0) ; consonant |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
730 ("$,1C$C&C0C2C3C@(B-$,1CE(B" "w" ?1) ; vowel base |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
731 ("$,1C1C4(B-$,1C7CGCN(B" "w" ?2) ; vowel upper |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
732 ("$,1C8(B-$,1C:(B" "w" ?3) ; vowel lower |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
733 ("$,1CH(B-$,1CM(B" "w" ?4) ; tone mark |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
734 ("$,1CP(B-$,1CY(B" "w" ?6) ; digit |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
735 ("$,1C/CFC?COCZC[(B" "_" ?5) ; symbol |
17052 | 736 )) |
737 elm chars len syntax category to ch i) | |
738 (while deflist | |
739 (setq elm (car deflist)) | |
740 (setq chars (car elm) | |
741 len (length chars) | |
742 syntax (nth 1 elm) | |
743 category (nth 2 elm) | |
744 i 0) | |
745 (while (< i len) | |
746 (if (= (aref chars i) ?-) | |
747 (setq i (1+ i) | |
20843 | 748 to (aref chars i)) |
749 (setq ch (aref chars i) | |
17052 | 750 to ch)) |
751 (while (<= ch to) | |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
752 (unless (string-equal syntax "w") |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
753 (modify-syntax-entry ch syntax)) |
17052 | 754 (modify-category-entry ch category) |
755 (setq ch (1+ ch))) | |
20843 | 756 (setq i (1+ i))) |
17052 | 757 (setq deflist (cdr deflist)))) |
758 | |
17753
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
759 ;; Tibetan character set |
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
760 |
24208
6964e11724dc
Set category `q' for all characters
Kenichi Handa <handa@m17n.org>
parents:
23527
diff
changeset
|
761 (modify-category-entry (make-char 'tibetan) ?q) |
6964e11724dc
Set category `q' for all characters
Kenichi Handa <handa@m17n.org>
parents:
23527
diff
changeset
|
762 (modify-category-entry (make-char 'tibetan-1-column) ?q) |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
763 (dotimes (i (1+ (- #xfff #xf00))) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
764 (modify-category-entry (decode-char 'ucs (+ i #xf00)) ?q)) |
17753
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
765 |
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
766 (let ((deflist '(;; chars syntax category |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
767 ("4$(7"!0"!1(B-4$(7"J0"J14"K0"K1(B" "w" ?0) ; consonant |
29362
038c13f83357
Fix syntax/category setting of Tibetan characters.
Kenichi Handa <handa@m17n.org>
parents:
27691
diff
changeset
|
768 ("$(7#!(B-$(7#J#K#L#M!"!#(B" "w" ?0) ; |
17753
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
769 ("$(7$!(B-$(7$e(B" "w" ?0) ; |
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
770 ("$(7%!(B-$(7%u(B" "w" ?0) ; |
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
771 ("$(7"S"["\"]"^"a(B" "w" ?2) ; upper vowel |
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
772 ("$(7"_"c"d"g"h"i"j"k"l(B" "w" ?2) ; upper modifier |
29362
038c13f83357
Fix syntax/category setting of Tibetan characters.
Kenichi Handa <handa@m17n.org>
parents:
27691
diff
changeset
|
773 ("$(7!I"Q"R"U"e!e!g(B" "w" ?3) ; lowel vowel/modifier |
17753
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
774 ("$(7!P(B-$(7!Y!Z(B-$(7!c(B" "w" ?6) ; digit |
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
775 ("$(7!;!=(B-$(7!B!D"`(B" "." ?|) ; line-break char |
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
776 ("$(8!;!=!?!@!A!D"`(B" "." ?|) ; |
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
777 ("$(7!8!;!=(B-$(7!B!D"`!m!d(B" "." ?>) ; prohibition |
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
778 ("$(8!;!=!?!@!A!D"`(B" "." ?>) ; |
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
779 ("$(7!0(B-$(7!:!l#R#S"f(B" "." ?<) ; prohibition |
29362
038c13f83357
Fix syntax/category setting of Tibetan characters.
Kenichi Handa <handa@m17n.org>
parents:
27691
diff
changeset
|
780 ("$(7!C!E(B-$(7!H!J(B-$(7!O!f!h(B-$(7!k!n!o#O#P(B-$(7#`(B" "." ?q) ; others |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
781 |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
782 ;; Unicode version (not complete) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
783 ("$,1F (B-$,1FIFJ(B" "w" ?0) ; consonant |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
784 ("$,1Fp(B-$,1G9G:G;G<(B" "w" ?0) ; |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
785 ("$,1FRFZF[F\F]F`(B" "w" ?2) ; upper vowel |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
786 ("$,1F^FbFcFfFgFhFiFjFk(B" "w" ?2) ; upper modifier |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
787 ("$,1EYFPFQFTFdEuEw(B" "w" ?3) ; lowel vowel/modifier |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
788 ("$,1E`(B-$,1EiEj(B-$,1Es(B" "w" ?6) ; digit |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
789 ("$,1EKEM(B-$,1ERETF_(B" "." ?|) ; line-break char |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
790 ("$,1EHEKEM(B-$,1ERETF_E}Et(B" "." ?>) ; prohibition |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
791 ("$,1E@(B-$,1EJE|GAGBFe(B" "." ?<) ; prohibition |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
792 ("$,1ESEU(B-$,1EXEZ(B-$,1E_EvEx(B-$,1E{E~EG>G?(B-$,1GO(B" "." ?q) ; others |
17753
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
793 )) |
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
794 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
|
795 (while deflist |
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
796 (setq elm (car deflist)) |
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
797 (setq chars (car elm) |
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
798 len (length chars) |
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
799 syntax (nth 1 elm) |
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
800 category (nth 2 elm) |
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
801 i 0) |
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
802 (while (< i len) |
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
803 (if (= (aref chars i) ?-) |
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
804 (setq i (1+ i) |
20843 | 805 to (aref chars i)) |
806 (setq ch (aref chars i) | |
17753
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
807 to ch)) |
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
808 (while (<= ch to) |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
809 (unless (string-equal syntax "w") |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
810 (modify-syntax-entry ch syntax)) |
17753
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
811 (modify-category-entry ch category) |
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
812 (setq ch (1+ ch))) |
20843 | 813 (setq i (1+ i))) |
17753
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
814 (setq deflist (cdr deflist)))) |
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
815 |
17052 | 816 ;; Vietnamese character set |
817 | |
818 (let ((lower (make-char 'vietnamese-viscii-lower)) | |
819 (upper (make-char 'vietnamese-viscii-upper))) | |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
820 ;; (modify-syntax-entry lower "w") |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
821 ;; (modify-syntax-entry upper "w") |
17052 | 822 (modify-category-entry lower ?v) |
823 (modify-category-entry upper ?v) | |
824 (modify-category-entry lower ?l) ; To make a word with | |
825 (modify-category-entry upper ?l) ; latin characters. | |
826 ) | |
827 | |
27691
5ed8dd27c116
Setup case table for Vietnamese.
Kenichi Handa <handa@m17n.org>
parents:
26885
diff
changeset
|
828 (let ((tbl (standard-case-table)) |
5ed8dd27c116
Setup case table for Vietnamese.
Kenichi Handa <handa@m17n.org>
parents:
26885
diff
changeset
|
829 (i 32)) |
5ed8dd27c116
Setup case table for Vietnamese.
Kenichi Handa <handa@m17n.org>
parents:
26885
diff
changeset
|
830 (while (< i 128) |
5ed8dd27c116
Setup case table for Vietnamese.
Kenichi Handa <handa@m17n.org>
parents:
26885
diff
changeset
|
831 (set-case-syntax-pair (make-char 'vietnamese-viscii-upper i) |
5ed8dd27c116
Setup case table for Vietnamese.
Kenichi Handa <handa@m17n.org>
parents:
26885
diff
changeset
|
832 (make-char 'vietnamese-viscii-lower i) |
5ed8dd27c116
Setup case table for Vietnamese.
Kenichi Handa <handa@m17n.org>
parents:
26885
diff
changeset
|
833 tbl) |
5ed8dd27c116
Setup case table for Vietnamese.
Kenichi Handa <handa@m17n.org>
parents:
26885
diff
changeset
|
834 (setq i (1+ i)))) |
5ed8dd27c116
Setup case table for Vietnamese.
Kenichi Handa <handa@m17n.org>
parents:
26885
diff
changeset
|
835 |
33902
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
836 ;; Unicode (mule-unicode-0100-24ff) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
837 |
34507
ed8ea5cf198b
Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
33902
diff
changeset
|
838 (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
|
839 |
ed8ea5cf198b
Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
33902
diff
changeset
|
840 ;; In some languages, U+0049 LATIN CAPITAL LETTER I and U+0131 LATIN |
ed8ea5cf198b
Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
33902
diff
changeset
|
841 ;; SMALL LETTER DOTLESS I make a case pair, and so do U+0130 LATIN |
ed8ea5cf198b
Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
33902
diff
changeset
|
842 ;; CAPITAL LETTER I WITH DOT ABOVE and U+0069 LATIN SMALL LETTER I. |
ed8ea5cf198b
Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
33902
diff
changeset
|
843 ;; Thus we have to check language-environment to handle casing |
ed8ea5cf198b
Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
33902
diff
changeset
|
844 ;; correctly. Currently only I<->i is available. |
ed8ea5cf198b
Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
33902
diff
changeset
|
845 |
ed8ea5cf198b
Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
33902
diff
changeset
|
846 ;; 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
|
847 (setq c #x0100) |
ed8ea5cf198b
Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
33902
diff
changeset
|
848 (while (<= c #x0233) |
33902
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
849 (modify-category-entry (decode-char 'ucs c) ?l) |
34507
ed8ea5cf198b
Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
33902
diff
changeset
|
850 (and (or (<= c #x012e) |
ed8ea5cf198b
Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
33902
diff
changeset
|
851 (and (>= c #x014a) (<= c #x0177))) |
33902
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
852 (zerop (% c 2)) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
853 (set-case-syntax-pair |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
854 (decode-char 'ucs c) (decode-char 'ucs (1+ c)) tbl)) |
34507
ed8ea5cf198b
Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
33902
diff
changeset
|
855 (and (>= c #x013a) |
ed8ea5cf198b
Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
33902
diff
changeset
|
856 (<= c #x0148) |
ed8ea5cf198b
Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
33902
diff
changeset
|
857 (zerop (% c 2)) |
ed8ea5cf198b
Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
33902
diff
changeset
|
858 (set-case-syntax-pair |
ed8ea5cf198b
Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
33902
diff
changeset
|
859 (decode-char 'ucs (1- c)) (decode-char 'ucs c) tbl)) |
33902
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
860 (setq c (1+ c))) |
34507
ed8ea5cf198b
Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
33902
diff
changeset
|
861 (set-case-syntax-pair ?$,1 R(B ?$,1 S(B tbl) |
ed8ea5cf198b
Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
33902
diff
changeset
|
862 (set-case-syntax-pair ?$,1 T(B ?$,1 U(B tbl) |
ed8ea5cf198b
Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
33902
diff
changeset
|
863 (set-case-syntax-pair ?$,1 V(B ?$,1 W(B tbl) |
ed8ea5cf198b
Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
33902
diff
changeset
|
864 ; (set-case-syntax-pair ?$,1!8(B ?,A(B tbl) ; these two have different length! |
33902
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
865 (set-case-syntax-pair ?$,1!9(B ?$,1!:(B tbl) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
866 (set-case-syntax-pair ?$,1!;(B ?$,1!<(B tbl) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
867 (set-case-syntax-pair ?$,1!=(B ?$,1!>(B tbl) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
868 |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
869 ;; Latin Extended-B |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
870 (set-case-syntax-pair ?$,1!A(B ?$,1#S(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
871 (set-case-syntax-pair ?$,1!B(B ?$,1!C(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
872 (set-case-syntax-pair ?$,1!D(B ?$,1!E(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
873 (set-case-syntax-pair ?$,1!F(B ?$,1#T(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
874 (set-case-syntax-pair ?$,1!G(B ?$,1!H(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
875 (set-case-syntax-pair ?$,1!I(B ?$,1#V(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
876 (set-case-syntax-pair ?$,1!J(B ?$,1#W(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
877 (set-case-syntax-pair ?$,1!K(B ?$,1!L(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
878 (set-case-syntax-pair ?$,1!N(B ?$,1"=(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
879 (set-case-syntax-pair ?$,1!O(B ?$,1#Y(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
880 (set-case-syntax-pair ?$,1!P(B ?$,1#[(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
881 (set-case-syntax-pair ?$,1!Q(B ?$,1!R(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
882 (set-case-syntax-pair ?$,1!S(B ?$,1#`(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
883 (set-case-syntax-pair ?$,1!T(B ?$,1#c(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
884 (set-case-syntax-pair ?$,1!V(B ?$,1#i(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
885 (set-case-syntax-pair ?$,1!W(B ?$,1#h(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
886 (set-case-syntax-pair ?$,1!X(B ?$,1!Y(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
887 (set-case-syntax-pair ?$,1!\(B ?$,1#o(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
888 (set-case-syntax-pair ?$,1!](B ?$,1#r(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
889 (set-case-syntax-pair ?$,1!_(B ?$,1#u(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
890 (set-case-syntax-pair ?$,1!`(B ?$,1!a(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
891 (set-case-syntax-pair ?$,1!b(B ?$,1!c(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
892 (set-case-syntax-pair ?$,1!d(B ?$,1!e(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
893 (set-case-syntax-pair ?$,1!f(B ?$,1$ (B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
894 (set-case-syntax-pair ?$,1!g(B ?$,1!h(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
895 (set-case-syntax-pair ?$,1!i(B ?$,1$#(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
896 (set-case-syntax-pair ?$,1!l(B ?$,1!m(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
897 (set-case-syntax-pair ?$,1!n(B ?$,1$((B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
898 (set-case-syntax-pair ?$,1!o(B ?$,1!p(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
899 (set-case-syntax-pair ?$,1!q(B ?$,1$*(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
900 (set-case-syntax-pair ?$,1!r(B ?$,1$+(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
901 (set-case-syntax-pair ?$,1!s(B ?$,1!t(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
902 (set-case-syntax-pair ?$,1!u(B ?$,1!v(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
903 (set-case-syntax-pair ?$,1!w(B ?$,1$2(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
904 (set-case-syntax-pair ?$,1!x(B ?$,1!y(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
905 (set-case-syntax-pair ?$,1!|(B ?$,1!}(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
906 (set-case-syntax-pair ?$,1"$(B ?$,1"&(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
907 (set-case-syntax-pair ?$,1"%(B ?$,1"&(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
908 (set-case-syntax-pair ?$,1"'(B ?$,1")(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
909 (set-case-syntax-pair ?$,1"((B ?$,1")(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
910 (set-case-syntax-pair ?$,1"*(B ?$,1",(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
911 (set-case-syntax-pair ?$,1"+(B ?$,1",(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
912 (set-case-syntax-pair ?$,1"-(B ?$,1".(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
913 (set-case-syntax-pair ?$,1"/(B ?$,1"0(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
914 (set-case-syntax-pair ?$,1"1(B ?$,1"2(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
915 (set-case-syntax-pair ?$,1"3(B ?$,1"4(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
916 (set-case-syntax-pair ?$,1"5(B ?$,1"6(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
917 (set-case-syntax-pair ?$,1"7(B ?$,1"8(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
918 (set-case-syntax-pair ?$,1"9(B ?$,1":(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
919 (set-case-syntax-pair ?$,1";(B ?$,1"<(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
920 (set-case-syntax-pair ?$,1">(B ?$,1"?(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
921 (set-case-syntax-pair ?$,1"@(B ?$,1"A(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
922 (set-case-syntax-pair ?$,1"B(B ?$,1"C(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
923 (set-case-syntax-pair ?$,1"D(B ?$,1"E(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
924 (set-case-syntax-pair ?$,1"F(B ?$,1"G(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
925 (set-case-syntax-pair ?$,1"H(B ?$,1"I(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
926 (set-case-syntax-pair ?$,1"J(B ?$,1"K(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
927 (set-case-syntax-pair ?$,1"L(B ?$,1"M(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
928 (set-case-syntax-pair ?$,1"N(B ?$,1"O(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
929 ;; 01F0; F; 006A 030C; # LATIN SMALL LETTER J WITH CARON |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
930 (set-case-syntax-pair ?$,1"Q(B ?$,1"S(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
931 (set-case-syntax-pair ?$,1"R(B ?$,1"S(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
932 (set-case-syntax-pair ?$,1"T(B ?$,1"U(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
933 (set-case-syntax-pair ?$,1"V(B ?$,1!U(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
934 (set-case-syntax-pair ?$,1"W(B ?$,1!(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
935 (set-case-syntax-pair ?$,1"X(B ?$,1"Y(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
936 (set-case-syntax-pair ?$,1"Z(B ?$,1"[(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
937 (set-case-syntax-pair ?$,1"\(B ?$,1"](B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
938 (set-case-syntax-pair ?$,1"^(B ?$,1"_(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
939 (set-case-syntax-pair ?$,1"`(B ?$,1"a(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
940 (set-case-syntax-pair ?$,1"b(B ?$,1"c(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
941 (set-case-syntax-pair ?$,1"d(B ?$,1"e(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
942 (set-case-syntax-pair ?$,1"f(B ?$,1"g(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
943 (set-case-syntax-pair ?$,1"h(B ?$,1"i(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
944 (set-case-syntax-pair ?$,1"j(B ?$,1"k(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
945 (set-case-syntax-pair ?$,1"l(B ?$,1"m(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
946 (set-case-syntax-pair ?$,1"n(B ?$,1"o(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
947 (set-case-syntax-pair ?$,1"p(B ?$,1"q(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
948 (set-case-syntax-pair ?$,1"r(B ?$,1"s(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
949 (set-case-syntax-pair ?$,1"t(B ?$,1"u(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
950 (set-case-syntax-pair ?$,1"v(B ?$,1"w(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
951 (set-case-syntax-pair ?$,1"x(B ?$,1"y(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
952 (set-case-syntax-pair ?$,1"z(B ?$,1"{(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
953 (set-case-syntax-pair ?$,1"|(B ?$,1"}(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
954 (set-case-syntax-pair ?$,1"~(B ?$,1"(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
955 (set-case-syntax-pair ?$,1#"(B ?$,1##(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
956 (set-case-syntax-pair ?$,1#$(B ?$,1#%(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
957 (set-case-syntax-pair ?$,1#&(B ?$,1#'(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
958 (set-case-syntax-pair ?$,1#((B ?$,1#)(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
959 (set-case-syntax-pair ?$,1#*(B ?$,1#+(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
960 (set-case-syntax-pair ?$,1#,(B ?$,1#-(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
961 (set-case-syntax-pair ?$,1#.(B ?$,1#/(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
962 (set-case-syntax-pair ?$,1#0(B ?$,1#1(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
963 (set-case-syntax-pair ?$,1#2(B ?$,1#3(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
964 |
34507
ed8ea5cf198b
Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
33902
diff
changeset
|
965 ;; Latin Extended Additional |
ed8ea5cf198b
Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
33902
diff
changeset
|
966 (setq c #x1e00) |
33902
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
967 (while (<= c #x1ef9) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
968 (modify-category-entry (decode-char 'ucs c) ?l) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
969 (and (zerop (% c 2)) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
970 (or (<= c #x1e94) (>= c #x1ea0)) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
971 (set-case-syntax-pair |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
972 (decode-char 'ucs c) (decode-char 'ucs (1+ c)) tbl)) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
973 (setq c (1+ c))) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
974 |
34507
ed8ea5cf198b
Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
33902
diff
changeset
|
975 ;; Greek |
ed8ea5cf198b
Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
33902
diff
changeset
|
976 (setq c #x0370) |
33902
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
977 (while (<= c #x03ff) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
978 (modify-category-entry (decode-char 'ucs c) ?g) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
979 (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
|
980 (and (>= c #x03a3) (<= c #x03ab))) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
981 (set-case-syntax-pair |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
982 (decode-char 'ucs c) (decode-char 'ucs (+ c 32)) tbl)) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
983 (and (>= c #x03da) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
984 (<= c #x03ee) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
985 (zerop (% c 2)) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
986 (set-case-syntax-pair |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
987 (decode-char 'ucs c) (decode-char 'ucs (1+ c)) tbl)) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
988 (setq c (1+ c))) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
989 (set-case-syntax-pair ?$,1&f(B ?$,1',(B tbl) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
990 (set-case-syntax-pair ?$,1&h(B ?$,1'-(B tbl) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
991 (set-case-syntax-pair ?$,1&i(B ?$,1'.(B tbl) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
992 (set-case-syntax-pair ?$,1&j(B ?$,1'/(B tbl) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
993 (set-case-syntax-pair ?$,1&l(B ?$,1'L(B tbl) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
994 (set-case-syntax-pair ?$,1&n(B ?$,1'M(B tbl) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
995 (set-case-syntax-pair ?$,1&o(B ?$,1'N(B tbl) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
996 |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
997 ;; Armenian |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
998 (setq c #x531) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
999 (while (<= c #x556) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
1000 (set-case-syntax-pair (decode-char 'ucs c) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
1001 (decode-char 'ucs (+ c #x30)) tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
1002 (setq c (1+ c))) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
1003 |
34507
ed8ea5cf198b
Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
33902
diff
changeset
|
1004 ;; Greek Extended |
ed8ea5cf198b
Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
33902
diff
changeset
|
1005 (setq c #x1f00) |
33902
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1006 (while (<= c #x1fff) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1007 (modify-category-entry (decode-char 'ucs c) ?g) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1008 (and (<= (logand c #x000f) 7) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1009 (<= c #x1fa7) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1010 (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
|
1011 (/= (logand c #x00f0) 7) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1012 (set-case-syntax-pair |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1013 (decode-char 'ucs (+ c 8)) (decode-char 'ucs c) tbl)) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1014 (setq c (1+ c))) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1015 (set-case-syntax-pair ?$,1qx(B ?$,1qp(B tbl) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1016 (set-case-syntax-pair ?$,1qy(B ?$,1qq(B tbl) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1017 (set-case-syntax-pair ?$,1qz(B ?$,1q0(B tbl) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1018 (set-case-syntax-pair ?$,1q{(B ?$,1q1(B tbl) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1019 (set-case-syntax-pair ?$,1q|(B ?$,1qs(B tbl) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1020 (set-case-syntax-pair ?$,1r((B ?$,1q2(B tbl) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1021 (set-case-syntax-pair ?$,1r)(B ?$,1q3(B tbl) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1022 (set-case-syntax-pair ?$,1r*(B ?$,1q4(B tbl) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1023 (set-case-syntax-pair ?$,1r+(B ?$,1q5(B tbl) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1024 (set-case-syntax-pair ?$,1r,(B ?$,1r#(B tbl) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1025 (set-case-syntax-pair ?$,1r8(B ?$,1r0(B tbl) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1026 (set-case-syntax-pair ?$,1r9(B ?$,1r1(B tbl) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1027 (set-case-syntax-pair ?$,1r:(B ?$,1q6(B tbl) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1028 (set-case-syntax-pair ?$,1r;(B ?$,1q7(B tbl) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1029 (set-case-syntax-pair ?$,1rH(B ?$,1r@(B tbl) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1030 (set-case-syntax-pair ?$,1rI(B ?$,1rA(B tbl) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1031 (set-case-syntax-pair ?$,1rJ(B ?$,1q:(B tbl) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1032 (set-case-syntax-pair ?$,1rK(B ?$,1q;(B tbl) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1033 (set-case-syntax-pair ?$,1rL(B ?$,1rE(B tbl) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1034 (set-case-syntax-pair ?$,1rX(B ?$,1q8(B tbl) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1035 (set-case-syntax-pair ?$,1rY(B ?$,1q9(B tbl) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1036 (set-case-syntax-pair ?$,1rZ(B ?$,1q<(B tbl) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1037 (set-case-syntax-pair ?$,1r[(B ?$,1q=(B tbl) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1038 (set-case-syntax-pair ?$,1r\(B ?$,1rS(B tbl) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1039 |
34507
ed8ea5cf198b
Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
33902
diff
changeset
|
1040 ;; cyrillic |
ed8ea5cf198b
Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
33902
diff
changeset
|
1041 (setq c #x0400) |
33902
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1042 (while (<= c #x04ff) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1043 (modify-category-entry (decode-char 'ucs c) ?y) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1044 (and (>= c #x0400) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1045 (<= c #x040f) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1046 (set-case-syntax-pair |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1047 (decode-char 'ucs c) (decode-char 'ucs (+ c 80)) tbl)) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1048 (and (>= c #x0410) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1049 (<= c #x042f) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1050 (set-case-syntax-pair |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1051 (decode-char 'ucs c) (decode-char 'ucs (+ c 32)) tbl)) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1052 (and (zerop (% c 2)) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1053 (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
|
1054 (and (>= c #x048c) (<= c #x04be)) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1055 (and (>= c #x04d0) (<= c #x04f4))) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1056 (set-case-syntax-pair |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1057 (decode-char 'ucs c) (decode-char 'ucs (1+ c)) tbl)) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1058 (setq c (1+ c))) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1059 (set-case-syntax-pair ?$,1*!(B ?$,1*"(B tbl) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1060 (set-case-syntax-pair ?$,1*#(B ?$,1*$(B tbl) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1061 (set-case-syntax-pair ?$,1*'(B ?$,1*((B tbl) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1062 (set-case-syntax-pair ?$,1*+(B ?$,1*,(B tbl) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1063 (set-case-syntax-pair ?$,1*X(B ?$,1*Y(B tbl) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1064 |
34507
ed8ea5cf198b
Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
33902
diff
changeset
|
1065 ;; general punctuation |
ed8ea5cf198b
Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
33902
diff
changeset
|
1066 (setq c #x2000) |
33902
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1067 (while (<= c #x200b) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1068 (set-case-syntax c " " tbl) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1069 (setq c (1+ c))) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1070 (setq c #x2010) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1071 (while (<= c #x2027) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1072 (set-case-syntax c "_" tbl) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
1073 (setq c (1+ c))) |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
1074 |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
1075 ;; Roman numerals |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
1076 (setq c #x2160) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
1077 (while (<= c #x216f) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
1078 (set-case-syntax-pair (decode-char 'ucs c) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
1079 (decode-char 'ucs (+ c #x10)) tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
1080 (setq c (1+ c))) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
1081 |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
1082 ;; Circled Latin |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
1083 (setq c #x24b6) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
1084 (while (<= c #x24cf) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
1085 (set-case-syntax-pair (decode-char 'ucs c) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
1086 (decode-char 'ucs (+ c 26)) tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
1087 (modify-category-entry (decode-char 'ucs c) ?l) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
1088 (modify-category-entry (decode-char 'ucs (+ c 26)) ?l) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
1089 (setq c (1+ c))) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
1090 |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
1091 ;; Fullwidth Latin |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
1092 (setq c #xff21) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
1093 (while (<= c #xff3a) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
1094 (set-case-syntax-pair (decode-char 'ucs c) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
1095 (decode-char 'ucs (+ c #x20)) tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
1096 (modify-category-entry (decode-char 'ucs c) ?l) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
1097 (modify-category-entry (decode-char 'ucs (+ c #x20)) ?l) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
1098 (setq c (1+ c))) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
1099 |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
1100 ;; Ohm, Kelvin, Angstrom |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
1101 (set-case-syntax-pair ?$,1uf(B ?$,1'I(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
1102 (set-case-syntax-pair ?$,1uj(B ?k tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
1103 (set-case-syntax-pair ?$,1uk(B ?,Ae(B tbl) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
1104 |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
1105 ;; Combining diacritics |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
1106 (setq c #x300) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
1107 (while (<= c #x362) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
1108 (modify-category-entry (decode-char 'ucs c) ?^) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
1109 (setq c (1+ c))) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
1110 |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
1111 ;; Combining marks |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
1112 (setq c #x20d0) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
1113 (while (<= c #x20e3) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
1114 (modify-category-entry (decode-char 'ucs c) ?^) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
1115 (setq c (1+ c))) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
1116 |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
1117 ;; 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
|
1118 ) |
17052 | 1119 |
1120 ;;; Setting word boundary. | |
1121 | |
1122 (setq word-combining-categories | |
1123 '((?l . ?l))) | |
1124 | |
1125 (setq word-separating-categories ; (2-byte character sets) | |
1126 '((?A . ?K) ; Alpha numeric - Katakana | |
1127 (?A . ?C) ; Alpha numeric - Chinese | |
1128 (?H . ?A) ; Hiragana - Alpha numeric | |
1129 (?H . ?K) ; Hiragana - Katakana | |
1130 (?H . ?C) ; Hiragana - Chinese | |
1131 (?K . ?A) ; Katakana - Alpha numeric | |
1132 (?K . ?C) ; Katakana - Chinese | |
1133 (?C . ?A) ; Chinese - Alpha numeric | |
1134 (?C . ?K) ; Chinese - Katakana | |
1135 )) | |
20734
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
1136 |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
1137 |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
1138 ;; 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
|
1139 ;; 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
|
1140 |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
1141 (let ((l '((latin-iso8859-1 . iso-latin-1) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
1142 (latin-iso8859-2 . iso-latin-2) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
1143 (latin-iso8859-3 . iso-latin-3) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
1144 (latin-iso8859-4 . iso-latin-4) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
1145 (thai-tis620 . thai-tis620) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
1146 (greek-iso8859-7 . greek-iso-8bit) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
1147 (arabic-iso8859-6 . iso-2022-7bit) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
1148 (hebrew-iso8859-8 . hebrew-iso-8bit) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
1149 (katakana-jisx0201 . japanese-shift-jis) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
1150 (latin-jisx0201 . japanese-shift-jis) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
1151 (cyrillic-iso8859-5 . cyrillic-iso-8bit) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
1152 (latin-iso8859-9 . iso-latin-5) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
1153 (japanese-jisx0208-1978 . iso-2022-jp) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
1154 (chinese-gb2312 . cn-gb-2312) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
1155 (japanese-jisx0208 . iso-2022-jp) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
1156 (korean-ksc5601 . iso-2022-kr) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
1157 (japanese-jisx0212 . iso-2022-jp) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
1158 (chinese-cns11643-1 . iso-2022-cn) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
1159 (chinese-cns11643-2 . iso-2022-cn) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
1160 (chinese-big5-1 . chinese-big5) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
1161 (chinese-big5-2 . chinese-big5) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
1162 (chinese-sisheng . iso-2022-7bit) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
1163 (ipa . iso-2022-7bit) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
1164 (vietnamese-viscii-lower . vietnamese-viscii) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
1165 (vietnamese-viscii-upper . vietnamese-viscii) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
1166 (arabic-digit . iso-2022-7bit) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
1167 (arabic-1-column . iso-2022-7bit) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
1168 (ascii-right-to-left . iso-2022-7bit) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
1169 (lao . lao) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
1170 (arabic-2-column . iso-2022-7bit) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
1171 (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
|
1172 (indian-glyph . devanagari) |
20734
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
1173 (tibetan-1-column . tibetan) |
24256
47e6aa168a66
Let ethiopic use iso-2022-7bit.
Kenichi Handa <handa@m17n.org>
parents:
24208
diff
changeset
|
1174 (ethiopic . iso-2022-7bit) |
20734
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
1175 (chinese-cns11643-3 . iso-2022-cn) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
1176 (chinese-cns11643-4 . iso-2022-cn) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
1177 (chinese-cns11643-5 . iso-2022-cn) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
1178 (chinese-cns11643-6 . iso-2022-cn) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
1179 (chinese-cns11643-7 . iso-2022-cn) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
1180 (indian-2-column . devanagari) |
26013 | 1181 (tibetan . tibetan) |
1182 (latin-iso8859-14 . iso-latin-8) | |
1183 (latin-iso8859-15 . iso-latin-9)))) | |
20734
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
1184 (while l |
24782
8f65cd6729b5
Typo fixed; prefered->preferred.
Kenichi Handa <handa@m17n.org>
parents:
24256
diff
changeset
|
1185 (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
|
1186 (setq l (cdr l)))) |
23493 | 1187 |
1188 | |
23527
06e8c3b9deec
Setup charset property nospace-between-words.
Kenichi Handa <handa@m17n.org>
parents:
23493
diff
changeset
|
1189 ;; Setup auto-fill-chars for charsets that should invoke auto-filling. |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
1190 ;; SPACE and NEWLINE are already set. Also put `nospace-between-words' |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
1191 ;; property on the charsets. |
23493 | 1192 (let ((l '(katakana-jisx0201 |
1193 japanese-jisx0208 japanese-jisx0212 | |
1194 chinese-gb2312 chinese-big5-1 chinese-big5-2))) | |
1195 (while l | |
1196 (aset auto-fill-chars (make-char (car l)) t) | |
23527
06e8c3b9deec
Setup charset property nospace-between-words.
Kenichi Handa <handa@m17n.org>
parents:
23493
diff
changeset
|
1197 (put-charset-property (car l) 'nospace-between-words t) |
23493 | 1198 (setq l (cdr l)))) |
20734
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
1199 |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
1200 ;;; Local Variables: |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
1201 ;;; coding: iso-2022-7bit |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
1202 ;;; End: |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
1203 |
38414
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
36688
diff
changeset
|
1204 ;;; characters.el ends here |