annotate lisp/international/characters.el @ 91178:e9ab44fefef3

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