annotate lisp/international/characters.el @ 90533:8a8e69664178

Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 343-356) - Update from CVS - Update for ERC 5.1.3. - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 113-115) - Merge from emacs--devo--0 - Update from CVS Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-90
author Miles Bader <miles@gnu.org>
date Wed, 19 Jul 2006 00:42:56 +0000
parents 4094c5298ae1
children 5b86e23f4fdb
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
62274
c36561fe0657 Fix copyrights.
Kenichi Handa <handa@m17n.org>
parents: 61191
diff changeset
3 ;; Copyright (C) 1997, 2000, 2001, 2002, 2003, 2004
c36561fe0657 Fix copyrights.
Kenichi Handa <handa@m17n.org>
parents: 61191
diff changeset
4 ;; Free Software Foundation, Inc.
c36561fe0657 Fix copyrights.
Kenichi Handa <handa@m17n.org>
parents: 61191
diff changeset
5 ;; Copyright (C) 1995, 1997, 1998, 1999, 2000, 2001, 2003, 2004, 2005
c36561fe0657 Fix copyrights.
Kenichi Handa <handa@m17n.org>
parents: 61191
diff changeset
6 ;; National Institute of Advanced Industrial Science and Technology (AIST)
c36561fe0657 Fix copyrights.
Kenichi Handa <handa@m17n.org>
parents: 61191
diff changeset
7 ;; Registration Number H14PRO021
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89314
diff changeset
8 ;; Copyright (C) 2003
88403
3c6459e2914f Adjusted for the deletion of generic characters.
Kenichi Handa <handa@m17n.org>
parents: 41992
diff changeset
9 ;; 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
10 ;; Registration Number H13PRO009
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
11
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
12 ;; Keywords: multibyte character, character set, syntax, category
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
13
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
14 ;; This file is part of GNU Emacs.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
15
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
16 ;; GNU Emacs is free software; you can redistribute it and/or modify
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
17 ;; it under the terms of the GNU General Public License as published by
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
18 ;; the Free Software Foundation; either version 2, or (at your option)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
19 ;; any later version.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
20
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
21 ;; GNU Emacs is distributed in the hope that it will be useful,
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
22 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
23 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
24 ;; GNU General Public License for more details.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
25
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
26 ;; 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
27 ;; 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
28 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
18a818a2ee7c Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 62274
diff changeset
29 ;; Boston, MA 02110-1301, USA.
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
30
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
31 ;;; Commentary:
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
32
38414
67b464da13ec Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 36688
diff changeset
33 ;;; Code:
67b464da13ec Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 36688
diff changeset
34
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
35 ;;; Predefined categories.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
36
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
37 ;; For each character set.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
38
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
39 (define-category ?a "ASCII")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
40 (define-category ?l "Latin")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
41 (define-category ?t "Thai")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
42 (define-category ?g "Greek")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
43 (define-category ?b "Arabic")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
44 (define-category ?w "Hebrew")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
45 (define-category ?y "Cyrillic")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
46 (define-category ?k "Japanese katakana")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
47 (define-category ?r "Japanese roman")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
48 (define-category ?c "Chinese")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
49 (define-category ?j "Japanese")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
50 (define-category ?h "Korean")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
51 (define-category ?e "Ethiopic (Ge'ez)")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
52 (define-category ?v "Vietnamese")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
53 (define-category ?i "Indian")
17078
874b471d6635 Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
54 (define-category ?o "Lao")
17753
de6be7f3b904 Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents: 17296
diff changeset
55 (define-category ?q "Tibetan")
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
56
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
57 ;; For each group (row) of 2-byte character sets.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
58
22529
d9eac134a41b Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20843
diff changeset
59 (define-category ?A "Alpha-numeric characters of 2-byte character sets")
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
60 (define-category ?C "Chinese (Han) characters of 2-byte character sets")
22529
d9eac134a41b Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20843
diff changeset
61 (define-category ?G "Greek characters of 2-byte character sets")
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
62 (define-category ?H "Japanese Hiragana characters of 2-byte character sets")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
63 (define-category ?K "Japanese Katakana characters of 2-byte character sets")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
64 (define-category ?N "Korean Hangul characters of 2-byte character sets")
22529
d9eac134a41b Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20843
diff changeset
65 (define-category ?Y "Cyrillic characters of 2-byte character sets")
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
66 (define-category ?I "Indian Glyphs")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
67
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
68 ;; For phonetic classifications.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
69
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
70 (define-category ?0 "consonant")
18561
f3c28fd5118e Modify docstring of char category
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
71 (define-category ?1 "base (independent) vowel")
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
72 (define-category ?2 "upper diacritical mark (including upper vowel)")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
73 (define-category ?3 "lower diacritical mark (including lower vowel)")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
74 (define-category ?4 "tone mark")
18561
f3c28fd5118e Modify docstring of char category
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
75 (define-category ?5 "symbol")
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
76 (define-category ?6 "digit")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
77 (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
78 (define-category ?8 "vowel-signs")
874b471d6635 Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
79 (define-category ?9 "semivowel lower")
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
80
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
81 ;; For filling.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
82 (define-category ?| "While filling, we can break a line at this character.")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
83
20247
7cb27e61a1d5 New category ` '.
Karl Heuer <kwzh@gnu.org>
parents: 19958
diff changeset
84 ;; For indentation calculation.
49769
5ed59fd23bc4 Use new ?\s syntax instead of "? " followed by a comment.
Juanma Barranquero <lekktu@gmail.com>
parents: 49601
diff changeset
85 (define-category ?\s
20734
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
86 "This character counts as a space for indentation purposes.")
20247
7cb27e61a1d5 New category ` '.
Karl Heuer <kwzh@gnu.org>
parents: 19958
diff changeset
87
22529
d9eac134a41b Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20843
diff changeset
88 ;; Keep the following for `kinsoku' processing. See comments in
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
89 ;; kinsoku.el.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
90 (define-category ?> "A character which can't be placed at beginning of line.")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
91 (define-category ?< "A character which can't be placed at end of line.")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
92
41874
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
93 ;; Combining
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
94 (define-category ?^ "Combining diacritic or mark")
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
95
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
96 ;;; Setting syntax and category.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
97
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
98 ;; ASCII
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
99
88425
d7bd9df1799d Optimize calls of modify-category-entry.
Kenichi Handa <handa@m17n.org>
parents: 88403
diff changeset
100 ;; 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
101 (modify-category-entry '(32 . 127) ?a)
d7bd9df1799d Optimize calls of modify-category-entry.
Kenichi Handa <handa@m17n.org>
parents: 88403
diff changeset
102 (modify-category-entry '(32 . 127) ?l)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
103
89314
f040012c16bb Move parts around so that syntax
Dave Love <fx@gnu.org>
parents: 89291
diff changeset
104 ;; 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
105 ;; 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
106 ;; 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
107 ;; not careful.
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
108
88752
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
109 ;; Chinese characters (Unicode)
89923
be0153d5e3f8 Give more CJK characters the category `|'.
Kenichi Handa <handa@m17n.org>
parents: 89914
diff changeset
110 (modify-category-entry '(#x2E80 . #x312F) ?|)
be0153d5e3f8 Give more CJK characters the category `|'.
Kenichi Handa <handa@m17n.org>
parents: 89914
diff changeset
111 (modify-category-entry '(#x3190 . #x33FF) ?|)
88752
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
112 (modify-category-entry '(#x3400 . #x9FAF) ?C)
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
113 (modify-category-entry '(#x3400 . #x9FAF) ?c)
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
114 (modify-category-entry '(#x3400 . #x9FAF) ?|)
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
115 (modify-category-entry '(#xF900 . #xFAFF) ?C)
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
116 (modify-category-entry '(#xF900 . #xFAFF) ?c)
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
117 (modify-category-entry '(#xF900 . #xFAFF) ?|)
89680
9f9a2db0bc5a Fix setting of category `|'.
Kenichi Handa <handa@m17n.org>
parents: 89635
diff changeset
118 (modify-category-entry '(#x20000 . #x2AFFF) ?|)
9f9a2db0bc5a Fix setting of category `|'.
Kenichi Handa <handa@m17n.org>
parents: 89635
diff changeset
119 (modify-category-entry '(#x2F800 . #x2FFFF) ?|)
9f9a2db0bc5a Fix setting of category `|'.
Kenichi Handa <handa@m17n.org>
parents: 89635
diff changeset
120
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
121
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
122 ;; Chinese character set (GB2312)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
123
88752
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
124 (map-charset-chars #'modify-syntax-entry 'chinese-gb2312 "_" #x2121 #x217E)
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
125 (map-charset-chars #'modify-syntax-entry 'chinese-gb2312 "_" #x2221 #x227E)
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
126 (map-charset-chars #'modify-syntax-entry 'chinese-gb2312 "_" #x2921 #x297E)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
127
88723
a5f3605a5bb8 Reinstate various CJK syntax and
Dave Love <fx@gnu.org>
parents: 88715
diff changeset
128 (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
129 (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
130 (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
131 (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
132 (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
133 (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
134 (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
135 (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
136 (map-charset-chars #'modify-category-entry 'chinese-gb2312 ?C #x3021 #x7E7E)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
137
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
138 ;; Chinese character set (BIG5)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
139
88971
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
140 (map-charset-chars #'modify-category-entry 'big5 ?c)
89014
bd5768cb7537 Fix categories ?A and ?C.
Kenichi Handa <handa@m17n.org>
parents: 89008
diff changeset
141 (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
142 (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
143 (map-charset-chars #'modify-category-entry 'big5 ?C #xC940 #xF9DF)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
144
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
145 ;; Chinese character set (CNS11643)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
146
88723
a5f3605a5bb8 Reinstate various CJK syntax and
Dave Love <fx@gnu.org>
parents: 88715
diff changeset
147 (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
148 chinese-cns11643-4 chinese-cns11643-5 chinese-cns11643-6
a5f3605a5bb8 Reinstate various CJK syntax and
Dave Love <fx@gnu.org>
parents: 88715
diff changeset
149 chinese-cns11643-7))
a5f3605a5bb8 Reinstate various CJK syntax and
Dave Love <fx@gnu.org>
parents: 88715
diff changeset
150 (map-charset-chars #'modify-category-entry c ?c)
89014
bd5768cb7537 Fix categories ?A and ?C.
Kenichi Handa <handa@m17n.org>
parents: 89008
diff changeset
151 (if (eq c 'chinese-cns11643-1)
bd5768cb7537 Fix categories ?A and ?C.
Kenichi Handa <handa@m17n.org>
parents: 89008
diff changeset
152 (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
153 (map-charset-chars #'modify-category-entry c ?C)))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
154
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89314
diff changeset
155 ;; Japanese character set (JISX0201, JISX0208, JISX0212, JISX0213)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
156
88752
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
157 (map-charset-chars #'modify-category-entry 'katakana-jisx0201 ?k)
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
158
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
159 (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
160
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89314
diff changeset
161 (dolist (l '(katakana-jisx0201 japanese-jisx0208 japanese-jisx0212
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89314
diff changeset
162 japanese-jisx0213-1 japanese-jisx0213-2))
89680
9f9a2db0bc5a Fix setting of category `|'.
Kenichi Handa <handa@m17n.org>
parents: 89635
diff changeset
163 (map-charset-chars #'modify-category-entry l ?j))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
164
41874
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
165 ;; Unicode equivalents of JISX0201-kana
88752
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
166 (let ((range '(#xff61 . #xff9f)))
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
167 (modify-category-entry range ?k)
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
168 (modify-category-entry range ?j)
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
169 (modify-category-entry range ?\|))
41874
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
170
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
171 ;; Katakana block
88752
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
172 (let ((range '(#x30a0 . #x30ff)))
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
173 ;; ?K is double width, ?k isn't specified
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
174 (modify-category-entry range ?K)
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
175 (modify-category-entry range ?\|))
41874
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
176
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
177 ;; Hiragana block
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89314
diff changeset
178 (let ((range '(#x3040 . #x309d)))
88752
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
179 ;; ?H is actually defined to be double width
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
180 ;;(modify-category-entry range ?H)
89680
9f9a2db0bc5a Fix setting of category `|'.
Kenichi Handa <handa@m17n.org>
parents: 89635
diff changeset
181 (modify-category-entry range ?\|)
88752
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
182 )
41874
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
183
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
184 ;; JISX0208
88752
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
185 (map-charset-chars #'modify-syntax-entry 'japanese-jisx0208 "_" #x2121 #x227E)
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
186 (map-charset-chars #'modify-syntax-entry 'japanese-jisx0208 "_" #x2821 #x287E)
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
187 (let ((chars '(?ー ?ã‚› ?ã‚œ ?ヽ ?ヾ ?ã‚ ?ã‚ž ?〃 ?ä» ?々 ?〆 ?〇)))
88519
98ec5d812ccc Set syntax/category for japanese-jisx0208.
Kenichi Handa <handa@m17n.org>
parents: 88492
diff changeset
188 (dolist (elt chars)
88612
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
189 (modify-syntax-entry (car chars) "w")))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
190
88752
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
191 (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
192 (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
193 (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
194 (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
195 (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
196 (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
197 (modify-category-entry ?ー ?K)
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
198 (let ((chars '(?゛ ?゜)))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
199 (while chars
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
200 (modify-category-entry (car chars) ?K)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
201 (modify-category-entry (car chars) ?H)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
202 (setq chars (cdr chars))))
88752
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
203 (let ((chars '(?ヽ ?ヾ ?ã‚ ?ã‚ž ?〃 ?ä» ?々 ?〆 ?〇)))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
204 (while chars
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
205 (modify-category-entry (car chars) ?C)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
206 (setq chars (cdr chars))))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
207
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
208 ;; JISX0212
88723
a5f3605a5bb8 Reinstate various CJK syntax and
Dave Love <fx@gnu.org>
parents: 88715
diff changeset
209
88752
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
210 (map-charset-chars #'modify-syntax-entry 'japanese-jisx0212 "_" #x2121 #x237E)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
211
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
212 ;; JISX0201-Kana
88723
a5f3605a5bb8 Reinstate various CJK syntax and
Dave Love <fx@gnu.org>
parents: 88715
diff changeset
213
88612
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
214 (let ((chars '(?。 ?、 ?・)))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
215 (while chars
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
216 (modify-syntax-entry (car chars) ".")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
217 (setq chars (cdr chars))))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
218
88469
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
219 (modify-syntax-entry ?\ï½¢ "(ï½£")
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
220 (modify-syntax-entry ?\ï½£ "(ï½¢")
36688
45b172fa5c17 Add category `j' for katakana-jisx0201. Fix syntaxes of
Kenichi Handa <handa@m17n.org>
parents: 34507
diff changeset
221
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
222 ;; Korean character set (KSC5601)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
223
88723
a5f3605a5bb8 Reinstate various CJK syntax and
Dave Love <fx@gnu.org>
parents: 88715
diff changeset
224 (map-charset-chars #'modify-category-entry 'korean-ksc5601 ?h)
88752
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
225
1aeb58b4f1e1 Fix the last change.
Kenichi Handa <handa@m17n.org>
parents: 88723
diff changeset
226 (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
227 (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
228 (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
229 (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
230 (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
231 (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
232 (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
233 (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
234 (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
235 (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
236 (map-charset-chars #'modify-category-entry 'korean-ksc5601 ?Y #x2C21 #x2C7E)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
237
89314
f040012c16bb Move parts around so that syntax
Dave Love <fx@gnu.org>
parents: 89291
diff changeset
238 ;; These are in more than one charset.
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89314
diff changeset
239 (let ((parens (concat "〈〉《》「ã€ã€Žã€ã€ã€‘〔〕〖〗〘〙〚〛"
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89314
diff changeset
240 "︵︶︷︸︹︺︻︼︽︾︿﹀ï¹ï¹‚﹃﹄"
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89314
diff changeset
241 "()[]{ï½"))
55675
506ecef6bbf8 Fix syntax (open/close) of CJK characters.
Kenichi Handa <handa@m17n.org>
parents: 54657
diff changeset
242 open close)
506ecef6bbf8 Fix syntax (open/close) of CJK characters.
Kenichi Handa <handa@m17n.org>
parents: 54657
diff changeset
243 (dotimes (i (/ (length parens) 2))
506ecef6bbf8 Fix syntax (open/close) of CJK characters.
Kenichi Handa <handa@m17n.org>
parents: 54657
diff changeset
244 (setq open (aref parens (* i 2))
506ecef6bbf8 Fix syntax (open/close) of CJK characters.
Kenichi Handa <handa@m17n.org>
parents: 54657
diff changeset
245 close (aref parens (1+ (* i 2))))
506ecef6bbf8 Fix syntax (open/close) of CJK characters.
Kenichi Handa <handa@m17n.org>
parents: 54657
diff changeset
246 (modify-syntax-entry open (format "(%c" close))
506ecef6bbf8 Fix syntax (open/close) of CJK characters.
Kenichi Handa <handa@m17n.org>
parents: 54657
diff changeset
247 (modify-syntax-entry close (format ")%c" open))))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
248
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
249 ;; Arabic character set
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
250
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
251 (let ((charsets '(arabic-iso8859-6
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
252 arabic-digit
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
253 arabic-1-column
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
254 arabic-2-column)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
255 (while charsets
89314
f040012c16bb Move parts around so that syntax
Dave Love <fx@gnu.org>
parents: 89291
diff changeset
256 (map-charset-chars #'modify-category-entry (car charsets) ?b)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
257 (setq charsets (cdr charsets))))
89314
f040012c16bb Move parts around so that syntax
Dave Love <fx@gnu.org>
parents: 89291
diff changeset
258 (modify-category-entry '(#x600 . #x6ff) ?b)
f040012c16bb Move parts around so that syntax
Dave Love <fx@gnu.org>
parents: 89291
diff changeset
259 (modify-category-entry '(#xfb50 . #xfdff) ?b)
f040012c16bb Move parts around so that syntax
Dave Love <fx@gnu.org>
parents: 89291
diff changeset
260 (modify-category-entry '(#xfe70 . #xfefe) ?b)
55675
506ecef6bbf8 Fix syntax (open/close) of CJK characters.
Kenichi Handa <handa@m17n.org>
parents: 54657
diff changeset
261
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
262 ;; Cyrillic character set (ISO-8859-5)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
263
89314
f040012c16bb Move parts around so that syntax
Dave Love <fx@gnu.org>
parents: 89291
diff changeset
264 (modify-syntax-entry ?â„– ".")
17753
de6be7f3b904 Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents: 17296
diff changeset
265
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
266 ;; Ethiopic character set
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
267
89600
1ad3832f1d1d Fix category for Ethiopic.
Kenichi Handa <handa@m17n.org>
parents: 89483
diff changeset
268 (modify-category-entry '(#x1200 . #x137c) ?e)
89314
f040012c16bb Move parts around so that syntax
Dave Love <fx@gnu.org>
parents: 89291
diff changeset
269 (let ((chars '(?á¡ ?ᢠ?ᣠ?ᤠ?ᥠ?ᦠ?᧠?ᨠ?ö ‡€ ?ö ‡‹ ?ö ‡Œ ?ö ‡ ?ö ‡Ž ?ö ‡)))
18304
58b39b4108d5 Set syntaxes of Ethiopic characters.
Kenichi Handa <handa@m17n.org>
parents: 18205
diff changeset
270 (while chars
58b39b4108d5 Set syntaxes of Ethiopic characters.
Kenichi Handa <handa@m17n.org>
parents: 18205
diff changeset
271 (modify-syntax-entry (car chars) ".")
58b39b4108d5 Set syntaxes of Ethiopic characters.
Kenichi Handa <handa@m17n.org>
parents: 18205
diff changeset
272 (setq chars (cdr chars))))
89314
f040012c16bb Move parts around so that syntax
Dave Love <fx@gnu.org>
parents: 89291
diff changeset
273 (map-charset-chars #'modify-category-entry 'ethiopic ?e)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
274
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
275 ;; Hebrew character set (ISO-8859-8)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
276
89314
f040012c16bb Move parts around so that syntax
Dave Love <fx@gnu.org>
parents: 89291
diff changeset
277 (modify-syntax-entry #x5be ".") ; MAQAF
f040012c16bb Move parts around so that syntax
Dave Love <fx@gnu.org>
parents: 89291
diff changeset
278 (modify-syntax-entry #x5c0 ".") ; PASEQ
f040012c16bb Move parts around so that syntax
Dave Love <fx@gnu.org>
parents: 89291
diff changeset
279 (modify-syntax-entry #x5c3 ".") ; SOF PASUQ
f040012c16bb Move parts around so that syntax
Dave Love <fx@gnu.org>
parents: 89291
diff changeset
280 (modify-syntax-entry #x5f3 ".") ; GERESH
f040012c16bb Move parts around so that syntax
Dave Love <fx@gnu.org>
parents: 89291
diff changeset
281 (modify-syntax-entry #x5f4 ".") ; GERSHAYIM
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
282
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
283 ;; Indian character set (IS 13194 and other Emacs original Indian charsets)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
284
89314
f040012c16bb Move parts around so that syntax
Dave Love <fx@gnu.org>
parents: 89291
diff changeset
285 (modify-category-entry '(#x901 . #x970) ?i)
f040012c16bb Move parts around so that syntax
Dave Love <fx@gnu.org>
parents: 89291
diff changeset
286 (map-charset-chars #'modify-category-entry 'indian-is13194 ?i)
f040012c16bb Move parts around so that syntax
Dave Love <fx@gnu.org>
parents: 89291
diff changeset
287 (map-charset-chars #'modify-category-entry 'indian-2-column ?i)
33902
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
288
17078
874b471d6635 Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
289 ;; Lao character set
874b471d6635 Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
290
88612
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
291 (modify-category-entry '(#xe80 . #xeff) ?o)
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
292 (map-charset-chars #'modify-category-entry 'lao ?o)
17078
874b471d6635 Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
293
88612
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
294 (let ((deflist '(("àº-ຮ" "w" ?0) ; consonant
88469
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
295 ("ະາຳຽເ-ໄ" "w" ?1) ; vowel base
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
296 ("ັິ-ືົà»" "w" ?2) ; vowel upper
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
297 ("ຸູ" "w" ?3) ; vowel lower
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89314
diff changeset
298 ("່-໋" "w" ?4) ; tone mark
88469
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
299 ("ຼຽ" "w" ?9) ; semivowel lower
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
300 ("à»-à»™" "w" ?6) ; digit
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
301 ("ຯໆ" "_" ?5) ; symbol
17078
874b471d6635 Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
302 ))
874b471d6635 Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
303 elm chars len syntax category to ch i)
874b471d6635 Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
304 (while deflist
874b471d6635 Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
305 (setq elm (car deflist))
874b471d6635 Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
306 (setq chars (car elm)
874b471d6635 Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
307 len (length chars)
874b471d6635 Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
308 syntax (nth 1 elm)
874b471d6635 Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
309 category (nth 2 elm)
874b471d6635 Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
310 i 0)
874b471d6635 Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
311 (while (< i len)
874b471d6635 Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
312 (if (= (aref chars i) ?-)
874b471d6635 Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
313 (setq i (1+ i)
20843
b60871b4710f Use aref instead of sref.
Kenichi Handa <handa@m17n.org>
parents: 20734
diff changeset
314 to (aref chars i))
b60871b4710f Use aref instead of sref.
Kenichi Handa <handa@m17n.org>
parents: 20734
diff changeset
315 (setq ch (aref chars i)
17078
874b471d6635 Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
316 to ch))
874b471d6635 Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
317 (while (<= ch to)
41874
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
318 (unless (string-equal syntax "w")
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
319 (modify-syntax-entry ch syntax))
17078
874b471d6635 Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
320 (modify-category-entry ch category)
874b471d6635 Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
321 (setq ch (1+ ch)))
20843
b60871b4710f Use aref instead of sref.
Kenichi Handa <handa@m17n.org>
parents: 20734
diff changeset
322 (setq i (1+ i)))
17078
874b471d6635 Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
323 (setq deflist (cdr deflist))))
874b471d6635 Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
324
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
325 ;; Thai character set (TIS620)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
326
88612
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
327 (modify-category-entry '(#xe00 . #xe7f) ?t)
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
328 (map-charset-chars #'modify-category-entry 'thai-tis620 ?t)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
329
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
330 (let ((deflist '(;; chars syntax category
88469
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
331 ("à¸-รลว-ฮ" "w" ?0) ; consonant
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
332 ("ฤฦะาำเ-ๅ" "w" ?1) ; vowel base
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
333 ("ัิ-ื็๎" "w" ?2) ; vowel upper
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
334 ("ุ-ฺ" "w" ?3) ; vowel lower
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89314
diff changeset
335 ("่-à¹" "w" ?4) ; tone mark
88469
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
336 ("à¹-๙" "w" ?6) ; digit
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
337 ("ฯๆ฿à¹à¹šà¹›" "_" ?5) ; symbol
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
338 ))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
339 elm chars len syntax category to ch i)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
340 (while deflist
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
341 (setq elm (car deflist))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
342 (setq chars (car elm)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
343 len (length chars)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
344 syntax (nth 1 elm)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
345 category (nth 2 elm)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
346 i 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
347 (while (< i len)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
348 (if (= (aref chars i) ?-)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
349 (setq i (1+ i)
20843
b60871b4710f Use aref instead of sref.
Kenichi Handa <handa@m17n.org>
parents: 20734
diff changeset
350 to (aref chars i))
b60871b4710f Use aref instead of sref.
Kenichi Handa <handa@m17n.org>
parents: 20734
diff changeset
351 (setq ch (aref chars i)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
352 to ch))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
353 (while (<= ch to)
41874
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
354 (unless (string-equal syntax "w")
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
355 (modify-syntax-entry ch syntax))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
356 (modify-category-entry ch category)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
357 (setq ch (1+ ch)))
20843
b60871b4710f Use aref instead of sref.
Kenichi Handa <handa@m17n.org>
parents: 20734
diff changeset
358 (setq i (1+ i)))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
359 (setq deflist (cdr deflist))))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
360
17753
de6be7f3b904 Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents: 17296
diff changeset
361 ;; Tibetan character set
de6be7f3b904 Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents: 17296
diff changeset
362
88612
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
363 (modify-category-entry '(#xf00 . #xfff) ?q)
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
364 (map-charset-chars #'modify-category-entry 'tibetan ?q)
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
365 (map-charset-chars #'modify-category-entry 'tibetan-1-column ?q)
17753
de6be7f3b904 Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents: 17296
diff changeset
366
de6be7f3b904 Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents: 17296
diff changeset
367 (let ((deflist '(;; chars syntax category
88711
f3dce8f75e38 Add Vietnamese category to
Dave Love <fx@gnu.org>
parents: 88642
diff changeset
368 ("ཀ-ཀྵཪ" "w" ?0) ; consonant
f3dce8f75e38 Add Vietnamese category to
Dave Love <fx@gnu.org>
parents: 88642
diff changeset
369 ("à¾-ྐྵྺྻྼö€ö€‚" "w" ?0) ;
88469
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
370 ("ö„š-ö…ž" "w" ?0) ;
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
371 ("ö…¸-ö‡Œ" "w" ?0) ;
88711
f3dce8f75e38 Add Vietnamese category to
Dave Love <fx@gnu.org>
parents: 88642
diff changeset
372 ("ིེཻོཽྀ" "w" ?2) ; upper vowel
f3dce8f75e38 Add Vietnamese category to
Dave Love <fx@gnu.org>
parents: 88642
diff changeset
373 ("ཾྂྃ྆྇ྈྉྊྋ" "w" ?2) ; upper modifier
f3dce8f75e38 Add Vietnamese category to
Dave Love <fx@gnu.org>
parents: 88642
diff changeset
374 ("༙ö‚Žà½±à½´à¾„༵༷" "w" ?3) ; lowel vowel/modifier
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89314
diff changeset
375 ("཰" "w" ?3) ; invisible vowel a
88711
f3dce8f75e38 Add Vietnamese category to
Dave Love <fx@gnu.org>
parents: 88642
diff changeset
376 ("༠-༩༪-༳" "w" ?6) ; digit
f3dce8f75e38 Add Vietnamese category to
Dave Love <fx@gnu.org>
parents: 88642
diff changeset
377 ("་à¼-༒༔ཿ" "." ?|) ; line-break char
f3dce8f75e38 Add Vietnamese category to
Dave Love <fx@gnu.org>
parents: 88642
diff changeset
378 ("་à¼à¼à¼à¼‘༔ཿ" "." ?|) ;
f3dce8f75e38 Add Vietnamese category to
Dave Love <fx@gnu.org>
parents: 88642
diff changeset
379 ("༈་à¼-༒༔ཿ༽༴" "." ?>) ; prohibition
f3dce8f75e38 Add Vietnamese category to
Dave Love <fx@gnu.org>
parents: 88642
diff changeset
380 ("་à¼à¼à¼à¼‘༔ཿ" "." ?>) ;
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 ("༓༕-༘༚-༟༶༸-༻༾༿྾྿-à¿" "." ?q) ; others
17753
de6be7f3b904 Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents: 17296
diff changeset
383 ))
de6be7f3b904 Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents: 17296
diff changeset
384 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
385 (while deflist
de6be7f3b904 Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents: 17296
diff changeset
386 (setq elm (car deflist))
de6be7f3b904 Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents: 17296
diff changeset
387 (setq chars (car elm)
de6be7f3b904 Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents: 17296
diff changeset
388 len (length chars)
de6be7f3b904 Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents: 17296
diff changeset
389 syntax (nth 1 elm)
de6be7f3b904 Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents: 17296
diff changeset
390 category (nth 2 elm)
de6be7f3b904 Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents: 17296
diff changeset
391 i 0)
de6be7f3b904 Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents: 17296
diff changeset
392 (while (< i len)
de6be7f3b904 Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents: 17296
diff changeset
393 (if (= (aref chars i) ?-)
de6be7f3b904 Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents: 17296
diff changeset
394 (setq i (1+ i)
20843
b60871b4710f Use aref instead of sref.
Kenichi Handa <handa@m17n.org>
parents: 20734
diff changeset
395 to (aref chars i))
b60871b4710f Use aref instead of sref.
Kenichi Handa <handa@m17n.org>
parents: 20734
diff changeset
396 (setq ch (aref chars i)
17753
de6be7f3b904 Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents: 17296
diff changeset
397 to ch))
de6be7f3b904 Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents: 17296
diff changeset
398 (while (<= ch to)
41874
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
399 (unless (string-equal syntax "w")
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
400 (modify-syntax-entry ch syntax))
17753
de6be7f3b904 Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents: 17296
diff changeset
401 (modify-category-entry ch category)
de6be7f3b904 Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents: 17296
diff changeset
402 (setq ch (1+ ch)))
20843
b60871b4710f Use aref instead of sref.
Kenichi Handa <handa@m17n.org>
parents: 20734
diff changeset
403 (setq i (1+ i)))
17753
de6be7f3b904 Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents: 17296
diff changeset
404 (setq deflist (cdr deflist))))
de6be7f3b904 Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents: 17296
diff changeset
405
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
406 ;; Vietnamese character set
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
407
88612
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
408 ;; To make a word with Latin characters
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
409 (map-charset-chars #'modify-category-entry 'vietnamese-viscii-lower ?l)
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
410 (map-charset-chars #'modify-category-entry 'vietnamese-viscii-lower ?v)
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
411
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
412 (map-charset-chars #'modify-category-entry 'vietnamese-viscii-upper ?l)
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
413 (map-charset-chars #'modify-category-entry 'vietnamese-viscii-upper ?v)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
414
27691
5ed8dd27c116 Setup case table for Vietnamese.
Kenichi Handa <handa@m17n.org>
parents: 26885
diff changeset
415 (let ((tbl (standard-case-table))
5ed8dd27c116 Setup case table for Vietnamese.
Kenichi Handa <handa@m17n.org>
parents: 26885
diff changeset
416 (i 32))
5ed8dd27c116 Setup case table for Vietnamese.
Kenichi Handa <handa@m17n.org>
parents: 26885
diff changeset
417 (while (< i 128)
88711
f3dce8f75e38 Add Vietnamese category to
Dave Love <fx@gnu.org>
parents: 88642
diff changeset
418 (let* ((char (decode-char 'vietnamese-viscii-upper i))
f3dce8f75e38 Add Vietnamese category to
Dave Love <fx@gnu.org>
parents: 88642
diff changeset
419 (charl (decode-char 'vietnamese-viscii-lower i))
f3dce8f75e38 Add Vietnamese category to
Dave Love <fx@gnu.org>
parents: 88642
diff changeset
420 (uc (encode-char char 'ucs))
f3dce8f75e38 Add Vietnamese category to
Dave Love <fx@gnu.org>
parents: 88642
diff changeset
421 (lc (encode-char charl 'ucs)))
f3dce8f75e38 Add Vietnamese category to
Dave Love <fx@gnu.org>
parents: 88642
diff changeset
422 (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
423 tbl)
f3dce8f75e38 Add Vietnamese category to
Dave Love <fx@gnu.org>
parents: 88642
diff changeset
424 (if uc (modify-category-entry uc ?v))
f3dce8f75e38 Add Vietnamese category to
Dave Love <fx@gnu.org>
parents: 88642
diff changeset
425 (if lc (modify-category-entry lc ?v)))
27691
5ed8dd27c116 Setup case table for Vietnamese.
Kenichi Handa <handa@m17n.org>
parents: 26885
diff changeset
426 (setq i (1+ i))))
5ed8dd27c116 Setup case table for Vietnamese.
Kenichi Handa <handa@m17n.org>
parents: 26885
diff changeset
427
89314
f040012c16bb Move parts around so that syntax
Dave Love <fx@gnu.org>
parents: 89291
diff changeset
428
f040012c16bb Move parts around so that syntax
Dave Love <fx@gnu.org>
parents: 89291
diff changeset
429 ;; Latin
f040012c16bb Move parts around so that syntax
Dave Love <fx@gnu.org>
parents: 89291
diff changeset
430
f040012c16bb Move parts around so that syntax
Dave Love <fx@gnu.org>
parents: 89291
diff changeset
431 (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
432
34507
ed8ea5cf198b Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 33902
diff changeset
433 (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
434
ed8ea5cf198b Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 33902
diff changeset
435 ;; In some languages, U+0049 LATIN CAPITAL LETTER I and U+0131 LATIN
ed8ea5cf198b Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 33902
diff changeset
436 ;; SMALL LETTER DOTLESS I make a case pair, and so do U+0130 LATIN
ed8ea5cf198b Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 33902
diff changeset
437 ;; CAPITAL LETTER I WITH DOT ABOVE and U+0069 LATIN SMALL LETTER I.
89188
f0d0b7118166 Comment.
Dave Love <fx@gnu.org>
parents: 89146
diff changeset
438 ;; See the Turkish language environment.
34507
ed8ea5cf198b Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 33902
diff changeset
439
89146
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
440 ;; Latin-1
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
441
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
442 ;; Fixme: Some of the non-word syntaxes here perhaps should be
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
443 ;; reviewed. (Note that the following all implicitly have word
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
444 ;; syntax: ¢£¤¥¨ª¯²³´¶¸¹º.) There should be a well-defined way of
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
445 ;; relating Unicode categories to Emacs syntax codes.
90146
a4445dd2a017 Set syntax of NBSP to punctuation.
Kenichi Handa <handa@m17n.org>
parents: 89923
diff changeset
446
a4445dd2a017 Set syntax of NBSP to punctuation.
Kenichi Handa <handa@m17n.org>
parents: 89923
diff changeset
447 ;; 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
448 ;; so it's more like punctation.
a4445dd2a017 Set syntax of NBSP to punctuation.
Kenichi Handa <handa@m17n.org>
parents: 89923
diff changeset
449 (set-case-syntax ?  "." tbl)
89146
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
450 (set-case-syntax ?¡ "." tbl)
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
451 (set-case-syntax ?¦ "_" tbl)
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
452 (set-case-syntax ?§ "." tbl)
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
453 (set-case-syntax ?© "_" tbl)
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
454 (set-case-syntax-delims 171 187 tbl) ; « »
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
455 (set-case-syntax ?¬ "_" tbl)
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
456 (set-case-syntax ?­ "_" tbl)
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
457 (set-case-syntax ?® "_" tbl)
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
458 (set-case-syntax ?° "_" tbl)
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
459 (set-case-syntax ?± "_" tbl)
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
460 (set-case-syntax ?µ "_" tbl)
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
461 (set-case-syntax ?· "_" tbl)
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
462 (set-case-syntax ?¼ "_" tbl)
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
463 (set-case-syntax ?½ "_" tbl)
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
464 (set-case-syntax ?¾ "_" tbl)
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
465 (set-case-syntax ?¿ "." tbl)
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
466 (let ((c 192))
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
467 (while (<= c 222)
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
468 (set-case-syntax-pair c (+ c 32) tbl)
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
469 (setq c (1+ c))))
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 ?ß "w" 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 ;; See below for ÿ.
34507
ed8ea5cf198b Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 33902
diff changeset
474
ed8ea5cf198b Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 33902
diff changeset
475 ;; 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
476 (setq c #x0100)
ed8ea5cf198b Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 33902
diff changeset
477 (while (<= c #x0233)
ed8ea5cf198b Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 33902
diff changeset
478 (and (or (<= c #x012e)
ed8ea5cf198b Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 33902
diff changeset
479 (and (>= c #x014a) (<= c #x0177)))
33902
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
480 (zerop (% c 2))
88612
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
481 (set-case-syntax-pair c (1+ c) tbl))
34507
ed8ea5cf198b Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 33902
diff changeset
482 (and (>= c #x013a)
ed8ea5cf198b Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 33902
diff changeset
483 (<= c #x0148)
ed8ea5cf198b Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 33902
diff changeset
484 (zerop (% c 2))
88612
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
485 (set-case-syntax-pair (1- c) c tbl))
33902
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
486 (setq c (1+ c)))
90258
c277fa406d7b Register characters in
Kenichi Handa <handa@m17n.org>
parents: 90200
diff changeset
487 (set-downcase-syntax ?Ä° ?i tbl)
c277fa406d7b Register characters in
Kenichi Handa <handa@m17n.org>
parents: 90200
diff changeset
488 (set-upcase-syntax ?I ?ı tbl)
88469
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
489 (set-case-syntax-pair ?IJ ?ij tbl)
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
490 (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
491 (set-case-syntax-pair ?Ķ ?ķ tbl)
89084
2d1fe04bcab0 Make and ? a case pair.
Dave Love <fx@gnu.org>
parents: 89032
diff changeset
492 (set-case-syntax-pair ?Ÿ ?ÿ tbl)
88469
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
493 (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
494 (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
495 (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
496
41874
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
497 ;; Latin Extended-B
88469
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
498 (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
499 (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
500 (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
501 (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
502 (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
503 (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
504 (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
505 (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
506 (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
507 (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
508 (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
509 (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
510 (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
511 (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
512 (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
513 (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
514 (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
515 (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
516 (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
517 (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
518 (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
519 (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
520 (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
521 (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
522 (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
523 (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
524 (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
525 (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
526 (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
527 (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
528 (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
529 (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
530 (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
531 (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
532 (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
533 (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
534 (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
535 (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
536 (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
537 (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
538 (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
539 (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
540 (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
541 (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
542 (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
543 (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
544 (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
545 (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
546 (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
547 (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
548 (set-case-syntax-pair ?Çž ?ÇŸ tbl)
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
549 (set-case-syntax-pair ?Ç  ?Ç¡ tbl)
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 ?Ç¢ ?Ç£ 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 ?Ǥ ?ǥ 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)
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
554 (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
555 (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
556 (set-case-syntax-pair ?Ǯ ?ǯ tbl)
41874
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
557 ;; 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
558 (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
559 (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
560 (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
561 (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
562 (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
563 (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
564 (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
565 (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
566 (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
567 (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
568 (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
569 (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
570 (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
571 (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
572 (set-case-syntax-pair ?ÈŠ ?È‹ tbl)
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
573 (set-case-syntax-pair ?ÈŒ ?È tbl)
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
574 (set-case-syntax-pair ?ÈŽ ?È tbl)
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
575 (set-case-syntax-pair ?È ?È‘ tbl)
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
576 (set-case-syntax-pair ?È’ ?È“ tbl)
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
577 (set-case-syntax-pair ?È” ?È• tbl)
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
578 (set-case-syntax-pair ?È– ?È— tbl)
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)
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
583 (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
584 (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
585 (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
586 (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
587 (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
588 (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
589 (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
590 (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
591 (set-case-syntax-pair ?Ȳ ?ȳ tbl)
41874
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
592
34507
ed8ea5cf198b Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 33902
diff changeset
593 ;; Latin Extended Additional
88612
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
594 (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
595 (setq c #x1e00)
33902
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
596 (while (<= c #x1ef9)
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
597 (and (zerop (% c 2))
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
598 (or (<= c #x1e94) (>= c #x1ea0))
88612
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
599 (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
600 (setq c (1+ c)))
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
601
34507
ed8ea5cf198b Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 33902
diff changeset
602 ;; Greek
88612
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
603 (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
604 (setq c #x0370)
33902
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
605 (while (<= c #x03ff)
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
606 (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
607 (and (>= c #x03a3) (<= c #x03ab)))
88612
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
608 (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
609 (and (>= c #x03da)
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
610 (<= c #x03ee)
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
611 (zerop (% c 2))
88612
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
612 (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
613 (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
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)
33902
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
621
41874
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
622 ;; Armenian
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
623 (setq c #x531)
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
624 (while (<= c #x556)
88612
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
625 (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
626 (setq c (1+ c)))
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
627
34507
ed8ea5cf198b Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 33902
diff changeset
628 ;; Greek Extended
88612
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
629 (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
630 (setq c #x1f00)
33902
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
631 (while (<= c #x1fff)
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
632 (and (<= (logand c #x000f) 7)
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
633 (<= c #x1fa7)
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
634 (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
635 (/= (logand c #x00f0) 7)
88612
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
636 (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
637 (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
638 (set-case-syntax-pair ?Ᾰ ?ᾰ tbl)
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
639 (set-case-syntax-pair ?á¾¹ ?á¾± tbl)
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
640 (set-case-syntax-pair ?Ὰ ?ὰ tbl)
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
641 (set-case-syntax-pair ?á¾» ?á½± tbl)
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)
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
646 (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
647 (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
648 (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
649 (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
650 (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
651 (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
652 (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
653 (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
654 (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
655 (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
656 (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
657 (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
658 (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
659 (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
660 (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
661 (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
662
34507
ed8ea5cf198b Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 33902
diff changeset
663 ;; cyrillic
88612
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
664 (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
665 (setq c #x0400)
33902
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
666 (while (<= c #x04ff)
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
667 (and (>= c #x0400)
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
668 (<= c #x040f)
88612
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
669 (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
670 (and (>= c #x0410)
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
671 (<= c #x042f)
88612
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
672 (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
673 (and (zerop (% c 2))
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
674 (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
675 (and (>= c #x048c) (<= c #x04be))
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
676 (and (>= c #x04d0) (<= c #x04f4)))
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89314
diff changeset
677 (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
678 (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
679 (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
680 (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
681 (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
682 (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
683 (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
684
34507
ed8ea5cf198b Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 33902
diff changeset
685 ;; general punctuation
ed8ea5cf198b Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 33902
diff changeset
686 (setq c #x2000)
33902
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
687 (while (<= c #x200b)
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
688 (set-case-syntax c " " tbl)
52950
5e8fca3de28c Fix some Unicode ranges.
Dave Love <fx@gnu.org>
parents: 52401
diff changeset
689 (setq c (1+ c)))
89119
fa0f7b37ba32 Add some non-word syntax cases.
Dave Love <fx@gnu.org>
parents: 89117
diff changeset
690 (while (<= c #x200F)
fa0f7b37ba32 Add some non-word syntax cases.
Dave Love <fx@gnu.org>
parents: 89117
diff changeset
691 (set-case-syntax c "." tbl)
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 ;; 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
694 (setq c #x2010)
52950
5e8fca3de28c Fix some Unicode ranges.
Dave Love <fx@gnu.org>
parents: 52401
diff changeset
695 (while (<= c #x2016)
89909
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89896
diff changeset
696 (set-case-syntax c "_" tbl)
52950
5e8fca3de28c Fix some Unicode ranges.
Dave Love <fx@gnu.org>
parents: 52401
diff changeset
697 (setq c (1+ c)))
5e8fca3de28c Fix some Unicode ranges.
Dave Love <fx@gnu.org>
parents: 52401
diff changeset
698 ;; Punctuation syntax for quotation marks (like `)
5e8fca3de28c Fix some Unicode ranges.
Dave Love <fx@gnu.org>
parents: 52401
diff changeset
699 (while (<= c #x201f)
89909
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89896
diff changeset
700 (set-case-syntax c "." tbl)
52950
5e8fca3de28c Fix some Unicode ranges.
Dave Love <fx@gnu.org>
parents: 52401
diff changeset
701 (setq c (1+ c)))
89909
68c22ea6027c Sync to HEAD
Kenichi Handa <handa@m17n.org>
parents: 89896
diff changeset
702 ;; 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
703 (while (<= c #x2027)
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
704 (set-case-syntax c "_" tbl)
aacccd8ad977 Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents: 31664
diff changeset
705 (setq c (1+ c)))
89119
fa0f7b37ba32 Add some non-word syntax cases.
Dave Love <fx@gnu.org>
parents: 89117
diff changeset
706 (while (<= c #x206F)
fa0f7b37ba32 Add some non-word syntax cases.
Dave Love <fx@gnu.org>
parents: 89117
diff changeset
707 (set-case-syntax c "." tbl)
52950
5e8fca3de28c Fix some Unicode ranges.
Dave Love <fx@gnu.org>
parents: 52401
diff changeset
708 (setq c (1+ c)))
41874
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
709
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
710 ;; Roman numerals
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
711 (setq c #x2160)
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
712 (while (<= c #x216f)
88612
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
713 (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
714 (setq c (1+ c)))
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
715
89146
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
716 ;; Fixme: The following blocks might be better as symbol rather than
4b3fdf998612 Add Latin-1.
Dave Love <fx@gnu.org>
parents: 89121
diff changeset
717 ;; punctuation.
89119
fa0f7b37ba32 Add some non-word syntax cases.
Dave Love <fx@gnu.org>
parents: 89117
diff changeset
718 ;; Arrows
fa0f7b37ba32 Add some non-word syntax cases.
Dave Love <fx@gnu.org>
parents: 89117
diff changeset
719 (setq c #x2190)
89121
d7638593beca Fix last change.
Dave Love <fx@gnu.org>
parents: 89119
diff changeset
720 (while (<= c #x21FF)
d7638593beca Fix last change.
Dave Love <fx@gnu.org>
parents: 89119
diff changeset
721 (set-case-syntax c "." tbl)
89119
fa0f7b37ba32 Add some non-word syntax cases.
Dave Love <fx@gnu.org>
parents: 89117
diff changeset
722 (setq c (1+ c)))
fa0f7b37ba32 Add some non-word syntax cases.
Dave Love <fx@gnu.org>
parents: 89117
diff changeset
723 ;; Mathematical Operators
fa0f7b37ba32 Add some non-word syntax cases.
Dave Love <fx@gnu.org>
parents: 89117
diff changeset
724 (while (<= c #x22FF)
89121
d7638593beca Fix last change.
Dave Love <fx@gnu.org>
parents: 89119
diff changeset
725 (set-case-syntax c "." tbl)
89119
fa0f7b37ba32 Add some non-word syntax cases.
Dave Love <fx@gnu.org>
parents: 89117
diff changeset
726 (setq c (1+ c)))
fa0f7b37ba32 Add some non-word syntax cases.
Dave Love <fx@gnu.org>
parents: 89117
diff changeset
727 ;; Miscellaneous Technical
fa0f7b37ba32 Add some non-word syntax cases.
Dave Love <fx@gnu.org>
parents: 89117
diff changeset
728 (while (<= c #x23FF)
89121
d7638593beca Fix last change.
Dave Love <fx@gnu.org>
parents: 89119
diff changeset
729 (set-case-syntax c "." tbl)
89119
fa0f7b37ba32 Add some non-word syntax cases.
Dave Love <fx@gnu.org>
parents: 89117
diff changeset
730 (setq c (1+ c)))
fa0f7b37ba32 Add some non-word syntax cases.
Dave Love <fx@gnu.org>
parents: 89117
diff changeset
731 ;; Control Pictures
fa0f7b37ba32 Add some non-word syntax cases.
Dave Love <fx@gnu.org>
parents: 89117
diff changeset
732 (while (<= c #x243F)
89121
d7638593beca Fix last change.
Dave Love <fx@gnu.org>
parents: 89119
diff changeset
733 (set-case-syntax c "_" tbl)
41874
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
734 (setq c (1+ c)))
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
735
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
736 ;; Circled Latin
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
737 (setq c #x24b6)
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
738 (while (<= c #x24cf)
88612
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
739 (set-case-syntax-pair c (+ c 26) tbl)
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
740 (modify-category-entry c ?l)
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
741 (modify-category-entry (+ c 26) ?l)
41874
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
742 (setq c (1+ c)))
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
743
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
744 ;; Fullwidth Latin
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
745 (setq c #xff21)
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
746 (while (<= c #xff3a)
88612
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
747 (set-case-syntax-pair c (+ c #x20) tbl)
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
748 (modify-category-entry c ?l)
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
749 (modify-category-entry (+ c #x20) ?l)
41874
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
750 (setq c (1+ c)))
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
751
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
752 ;; Combining diacritics
88612
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
753 (modify-category-entry '(#x300 . #x362) ?^)
41874
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
754 ;; Combining marks
88612
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
755 (modify-category-entry '(#x20d0 . #x20e3) ?^)
41874
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
756
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
757 ;; 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
758 )
54510
99f05a0b48dd Setup syntaxes for more parentheses Unicode characters.
Kenichi Handa <handa@m17n.org>
parents: 52950
diff changeset
759
99f05a0b48dd Setup syntaxes for more parentheses Unicode characters.
Kenichi Handa <handa@m17n.org>
parents: 52950
diff changeset
760 (let ((pairs
89914
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
761 '("â…â†" ; U+2045 U+2046
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
762 "â½â¾" ; U+207D U+207E
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
763 "â‚â‚Ž" ; U+208D U+208E
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
764 "〈〉" ; U+2329 U+232A
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
765 "⎴⎵" ; U+23B4 U+23B5
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
766 "â¨â©" ; U+2768 U+2769
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
767 "âªâ«" ; U+276A U+276B
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
768 "â¬â­" ; U+276C U+276D
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
769 "â°â±" ; U+2770 U+2771
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
770 "â²â³" ; U+2772 U+2773
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
771 "â´âµ" ; U+2774 U+2775
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
772 "⟦⟧" ; U+27E6 U+27E7
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
773 "⟨⟩" ; U+27E8 U+27E9
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
774 "⟪⟫" ; U+27EA U+27EB
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
775 "⦃⦄" ; U+2983 U+2984
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
776 "⦅⦆" ; U+2985 U+2986
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
777 "⦇⦈" ; U+2987 U+2988
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
778 "⦉⦊" ; U+2989 U+298A
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
779 "⦋⦌" ; U+298B U+298C
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
780 "â¦â¦Ž" ; U+298D U+298E
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
781 "â¦â¦" ; U+298F U+2990
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
782 "⦑⦒" ; U+2991 U+2992
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
783 "⦓⦔" ; U+2993 U+2994
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
784 "⦕⦖" ; U+2995 U+2996
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
785 "⦗⦘" ; U+2997 U+2998
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
786 "⧼⧽" ; U+29FC U+29FD
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
787 "〈〉" ; U+3008 U+3009
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
788 "《》" ; U+300A U+300B
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
789 "「ã€" ; U+300C U+300D
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
790 "『ã€" ; U+300E U+300F
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
791 "ã€ã€‘" ; U+3010 U+3011
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
792 "〔〕" ; U+3014 U+3015
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
793 "〖〗" ; U+3016 U+3017
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
794 "〘〙" ; U+3018 U+3019
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
795 "〚〛" ; U+301A U+301B
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
796 "﴾﴿" ; U+FD3E U+FD3F
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
797 "︵︶" ; U+FE35 U+FE36
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
798 "︷︸" ; U+FE37 U+FE38
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
799 "︹︺" ; U+FE39 U+FE3A
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
800 "︻︼" ; U+FE3B U+FE3C
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
801 "︽︾" ; U+FE3D U+FE3E
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
802 "︿﹀" ; U+FE3F U+FE40
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
803 "ï¹ï¹‚" ; U+FE41 U+FE42
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
804 "﹃﹄" ; U+FE43 U+FE44
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
805 "﹙﹚" ; U+FE59 U+FE5A
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
806 "﹛﹜" ; U+FE5B U+FE5C
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
807 "ï¹ï¹ž" ; U+FE5D U+FE5E
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
808 "()" ; U+FF08 U+FF09
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
809 "[]" ; U+FF3B U+FF3D
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
810 "ï½›ï½" ; U+FF5B U+FF5D
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
811 "⦅⦆" ; U+FF5F U+FF60
a3122a8fd4cb Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents: 89909
diff changeset
812 "「」" ; U+FF62 U+FF63
54510
99f05a0b48dd Setup syntaxes for more parentheses Unicode characters.
Kenichi Handa <handa@m17n.org>
parents: 52950
diff changeset
813 )))
99f05a0b48dd Setup syntaxes for more parentheses Unicode characters.
Kenichi Handa <handa@m17n.org>
parents: 52950
diff changeset
814 (dolist (elt pairs)
99f05a0b48dd Setup syntaxes for more parentheses Unicode characters.
Kenichi Handa <handa@m17n.org>
parents: 52950
diff changeset
815 (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
816 (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
817
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
818
20734
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
819 ;; 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
820 ;; 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
821
88612
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
822 ;; Fixme: should this be junked?
20734
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
823 (let ((l '((latin-iso8859-1 . iso-latin-1)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
824 (latin-iso8859-2 . iso-latin-2)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
825 (latin-iso8859-3 . iso-latin-3)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
826 (latin-iso8859-4 . iso-latin-4)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
827 (thai-tis620 . thai-tis620)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
828 (greek-iso8859-7 . greek-iso-8bit)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
829 (arabic-iso8859-6 . iso-2022-7bit)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
830 (hebrew-iso8859-8 . hebrew-iso-8bit)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
831 (katakana-jisx0201 . japanese-shift-jis)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
832 (latin-jisx0201 . japanese-shift-jis)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
833 (cyrillic-iso8859-5 . cyrillic-iso-8bit)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
834 (latin-iso8859-9 . iso-latin-5)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
835 (japanese-jisx0208-1978 . iso-2022-jp)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
836 (chinese-gb2312 . cn-gb-2312)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
837 (japanese-jisx0208 . iso-2022-jp)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
838 (korean-ksc5601 . iso-2022-kr)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
839 (japanese-jisx0212 . iso-2022-jp)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
840 (chinese-cns11643-1 . iso-2022-cn)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
841 (chinese-cns11643-2 . iso-2022-cn)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
842 (chinese-big5-1 . chinese-big5)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
843 (chinese-big5-2 . chinese-big5)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
844 (chinese-sisheng . iso-2022-7bit)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
845 (ipa . iso-2022-7bit)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
846 (vietnamese-viscii-lower . vietnamese-viscii)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
847 (vietnamese-viscii-upper . vietnamese-viscii)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
848 (arabic-digit . iso-2022-7bit)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
849 (arabic-1-column . iso-2022-7bit)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
850 (lao . lao)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
851 (arabic-2-column . iso-2022-7bit)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
852 (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
853 (indian-glyph . devanagari)
20734
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
854 (tibetan-1-column . tibetan)
24256
47e6aa168a66 Let ethiopic use iso-2022-7bit.
Kenichi Handa <handa@m17n.org>
parents: 24208
diff changeset
855 (ethiopic . iso-2022-7bit)
20734
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
856 (chinese-cns11643-3 . iso-2022-cn)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
857 (chinese-cns11643-4 . iso-2022-cn)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
858 (chinese-cns11643-5 . iso-2022-cn)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
859 (chinese-cns11643-6 . iso-2022-cn)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
860 (chinese-cns11643-7 . iso-2022-cn)
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
861 (indian-2-column . devanagari)
26013
987e55950346 Add latin-iso8859-1[45].
Dave Love <fx@gnu.org>
parents: 25499
diff changeset
862 (tibetan . tibetan)
987e55950346 Add latin-iso8859-1[45].
Dave Love <fx@gnu.org>
parents: 25499
diff changeset
863 (latin-iso8859-14 . iso-latin-8)
987e55950346 Add latin-iso8859-1[45].
Dave Love <fx@gnu.org>
parents: 25499
diff changeset
864 (latin-iso8859-15 . iso-latin-9))))
20734
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
865 (while l
24782
8f65cd6729b5 Typo fixed; prefered->preferred.
Kenichi Handa <handa@m17n.org>
parents: 24256
diff changeset
866 (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
867 (setq l (cdr l))))
23493
d82b305ac37b Setup auto-fill-chars.
Kenichi Handa <handa@m17n.org>
parents: 22529
diff changeset
868
d82b305ac37b Setup auto-fill-chars.
Kenichi Handa <handa@m17n.org>
parents: 22529
diff changeset
869
23527
06e8c3b9deec Setup charset property nospace-between-words.
Kenichi Handa <handa@m17n.org>
parents: 23493
diff changeset
870 ;; Setup auto-fill-chars for charsets that should invoke auto-filling.
41874
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
871 ;; SPACE and NEWLINE are already set. Also put `nospace-between-words'
1b93abfcbd87 Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents: 41466
diff changeset
872 ;; property on the charsets.
90258
c277fa406d7b Register characters in
Kenichi Handa <handa@m17n.org>
parents: 90200
diff changeset
873
c277fa406d7b Register characters in
Kenichi Handa <handa@m17n.org>
parents: 90200
diff changeset
874 (set-char-table-range auto-fill-chars '(#x3041 . #x30FF) t)
c277fa406d7b Register characters in
Kenichi Handa <handa@m17n.org>
parents: 90200
diff changeset
875 (set-char-table-range auto-fill-chars '(#x3400 . #x4DB5) t)
c277fa406d7b Register characters in
Kenichi Handa <handa@m17n.org>
parents: 90200
diff changeset
876 (set-char-table-range auto-fill-chars '(#x4e00 . #x9fbb) t)
c277fa406d7b Register characters in
Kenichi Handa <handa@m17n.org>
parents: 90200
diff changeset
877 (set-char-table-range auto-fill-chars '(#xF900 . #xFAFF) t)
c277fa406d7b Register characters in
Kenichi Handa <handa@m17n.org>
parents: 90200
diff changeset
878 (set-char-table-range auto-fill-chars '(#xFF00 . #xFF9F) t)
c277fa406d7b Register characters in
Kenichi Handa <handa@m17n.org>
parents: 90200
diff changeset
879 (set-char-table-range auto-fill-chars '(#x20000 . #x2FFFF) t)
c277fa406d7b Register characters in
Kenichi Handa <handa@m17n.org>
parents: 90200
diff changeset
880
23493
d82b305ac37b Setup auto-fill-chars.
Kenichi Handa <handa@m17n.org>
parents: 22529
diff changeset
881 (let ((l '(katakana-jisx0201
d82b305ac37b Setup auto-fill-chars.
Kenichi Handa <handa@m17n.org>
parents: 22529
diff changeset
882 japanese-jisx0208 japanese-jisx0212
90258
c277fa406d7b Register characters in
Kenichi Handa <handa@m17n.org>
parents: 90200
diff changeset
883 japanese-jisx0213-1 japanese-jisx0213-2
c277fa406d7b Register characters in
Kenichi Handa <handa@m17n.org>
parents: 90200
diff changeset
884 chinese-gb2312 chinese-gbk chinese-big5-1 chinese-big5-2
c277fa406d7b Register characters in
Kenichi Handa <handa@m17n.org>
parents: 90200
diff changeset
885 chinese-cns11643-1 chinese-cns11643-2 chinese-cns11643-3
c277fa406d7b Register characters in
Kenichi Handa <handa@m17n.org>
parents: 90200
diff changeset
886 chinese-cns11643-4 chinese-cns11643-5 chinese-cns11643-6
c277fa406d7b Register characters in
Kenichi Handa <handa@m17n.org>
parents: 90200
diff changeset
887 chinese-cns11643-7)))
23493
d82b305ac37b Setup auto-fill-chars.
Kenichi Handa <handa@m17n.org>
parents: 22529
diff changeset
888 (while l
23527
06e8c3b9deec Setup charset property nospace-between-words.
Kenichi Handa <handa@m17n.org>
parents: 23493
diff changeset
889 (put-charset-property (car l) 'nospace-between-words t)
23493
d82b305ac37b Setup auto-fill-chars.
Kenichi Handa <handa@m17n.org>
parents: 22529
diff changeset
890 (setq l (cdr l))))
20734
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
891
56031
7f29c9c8a3a4 Temporarily set utf-translate-cjk-mode to nil.
Kenichi Handa <handa@m17n.org>
parents: 55702
diff changeset
892
88492
2ce720ffa865 Setup char-width-table for CJK characters.
Kenichi Handa <handa@m17n.org>
parents: 88469
diff changeset
893 ;; CJK double width characters.
2ce720ffa865 Setup char-width-table for CJK characters.
Kenichi Handa <handa@m17n.org>
parents: 88469
diff changeset
894 (let ((l '((#x1100 . #x11FF)
2ce720ffa865 Setup char-width-table for CJK characters.
Kenichi Handa <handa@m17n.org>
parents: 88469
diff changeset
895 (#x2E80 . #x9FAF)
2ce720ffa865 Setup char-width-table for CJK characters.
Kenichi Handa <handa@m17n.org>
parents: 88469
diff changeset
896 (#xAC00 . #xD7AF)
2ce720ffa865 Setup char-width-table for CJK characters.
Kenichi Handa <handa@m17n.org>
parents: 88469
diff changeset
897 (#xF900 . #xFAFF)
2ce720ffa865 Setup char-width-table for CJK characters.
Kenichi Handa <handa@m17n.org>
parents: 88469
diff changeset
898 (#xFE30 . #xFE4F)
2ce720ffa865 Setup char-width-table for CJK characters.
Kenichi Handa <handa@m17n.org>
parents: 88469
diff changeset
899 (#xFF00 . #xFF5F)
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89314
diff changeset
900 (#xFFE0 . #xFFEF)
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89314
diff changeset
901 (#x20000 . #x2AFFF)
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89314
diff changeset
902 (#x2F800 . #x2FFFF))))
88492
2ce720ffa865 Setup char-width-table for CJK characters.
Kenichi Handa <handa@m17n.org>
parents: 88469
diff changeset
903 (dolist (elt l)
2ce720ffa865 Setup char-width-table for CJK characters.
Kenichi Handa <handa@m17n.org>
parents: 88469
diff changeset
904 (set-char-table-range char-width-table
88612
ec8e29bbca37 Various simplifications and
Dave Love <fx@gnu.org>
parents: 88519
diff changeset
905 (cons (car elt) (cdr elt))
88492
2ce720ffa865 Setup char-width-table for CJK characters.
Kenichi Handa <handa@m17n.org>
parents: 88469
diff changeset
906 2)))
89117
39a217f682b4 Don't set char width of CJK
Dave Love <fx@gnu.org>
parents: 89084
diff changeset
907 ;; Fixme: Doing this affects non-CJK characters through unification,
39a217f682b4 Don't set char width of CJK
Dave Love <fx@gnu.org>
parents: 89084
diff changeset
908 ;; but presumably CJK users expect those characters to be
39a217f682b4 Don't set char width of CJK
Dave Love <fx@gnu.org>
parents: 89084
diff changeset
909 ;; double-width when using these charsets.
39a217f682b4 Don't set char width of CJK
Dave Love <fx@gnu.org>
parents: 89084
diff changeset
910 ;; (map-charset-chars
39a217f682b4 Don't set char width of CJK
Dave Love <fx@gnu.org>
parents: 89084
diff changeset
911 ;; #'(lambda (range ignore) (set-char-table-range char-width-table range 2))
39a217f682b4 Don't set char width of CJK
Dave Love <fx@gnu.org>
parents: 89084
diff changeset
912 ;; 'japanese-jisx0208)
39a217f682b4 Don't set char width of CJK
Dave Love <fx@gnu.org>
parents: 89084
diff changeset
913 ;; (map-charset-chars
39a217f682b4 Don't set char width of CJK
Dave Love <fx@gnu.org>
parents: 89084
diff changeset
914 ;; #'(lambda (range ignore) (set-char-table-range char-width-table range 2))
39a217f682b4 Don't set char width of CJK
Dave Love <fx@gnu.org>
parents: 89084
diff changeset
915 ;; 'japanese-jisx0212)
39a217f682b4 Don't set char width of CJK
Dave Love <fx@gnu.org>
parents: 89084
diff changeset
916 ;; (map-charset-chars
39a217f682b4 Don't set char width of CJK
Dave Love <fx@gnu.org>
parents: 89084
diff changeset
917 ;; #'(lambda (range ignore) (set-char-table-range char-width-table range 2))
39a217f682b4 Don't set char width of CJK
Dave Love <fx@gnu.org>
parents: 89084
diff changeset
918 ;; 'japanese-jisx0213-1)
39a217f682b4 Don't set char width of CJK
Dave Love <fx@gnu.org>
parents: 89084
diff changeset
919 ;; (map-charset-chars
39a217f682b4 Don't set char width of CJK
Dave Love <fx@gnu.org>
parents: 89084
diff changeset
920 ;; #'(lambda (range ignore) (set-char-table-range char-width-table range 2))
39a217f682b4 Don't set char width of CJK
Dave Love <fx@gnu.org>
parents: 89084
diff changeset
921 ;; 'japanese-jisx0213-2)
39a217f682b4 Don't set char width of CJK
Dave Love <fx@gnu.org>
parents: 89084
diff changeset
922 ;; (map-charset-chars
39a217f682b4 Don't set char width of CJK
Dave Love <fx@gnu.org>
parents: 89084
diff changeset
923 ;; (lambda (range ignore) (set-char-table-range char-width-table range 2))
39a217f682b4 Don't set char width of CJK
Dave Love <fx@gnu.org>
parents: 89084
diff changeset
924 ;; 'korean-ksc5601)
88642
3a7ca837e9b9 Additional double width specifications.
Dave Love <fx@gnu.org>
parents: 88612
diff changeset
925
3a7ca837e9b9 Additional double width specifications.
Dave Love <fx@gnu.org>
parents: 88612
diff changeset
926 ;; Other double width
3a7ca837e9b9 Additional double width specifications.
Dave Love <fx@gnu.org>
parents: 88612
diff changeset
927 (map-charset-chars
3a7ca837e9b9 Additional double width specifications.
Dave Love <fx@gnu.org>
parents: 88612
diff changeset
928 (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
929 'ethiopic)
3a7ca837e9b9 Additional double width specifications.
Dave Love <fx@gnu.org>
parents: 88612
diff changeset
930 (map-charset-chars
3a7ca837e9b9 Additional double width specifications.
Dave Love <fx@gnu.org>
parents: 88612
diff changeset
931 (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
932 'tibetan)
3a7ca837e9b9 Additional double width specifications.
Dave Love <fx@gnu.org>
parents: 88612
diff changeset
933 (map-charset-chars
3a7ca837e9b9 Additional double width specifications.
Dave Love <fx@gnu.org>
parents: 88612
diff changeset
934 (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
935 'indian-2-column)
3a7ca837e9b9 Additional double width specifications.
Dave Love <fx@gnu.org>
parents: 88612
diff changeset
936 (map-charset-chars
3a7ca837e9b9 Additional double width specifications.
Dave Love <fx@gnu.org>
parents: 88612
diff changeset
937 (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
938 'arabic-2-column)
20734
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
939
88723
a5f3605a5bb8 Reinstate various CJK syntax and
Dave Love <fx@gnu.org>
parents: 88715
diff changeset
940 (optimize-char-table (standard-case-table))
a5f3605a5bb8 Reinstate various CJK syntax and
Dave Love <fx@gnu.org>
parents: 88715
diff changeset
941 (optimize-char-table char-width-table)
a5f3605a5bb8 Reinstate various CJK syntax and
Dave Love <fx@gnu.org>
parents: 88715
diff changeset
942 (optimize-char-table (standard-category-table))
a5f3605a5bb8 Reinstate various CJK syntax and
Dave Love <fx@gnu.org>
parents: 88715
diff changeset
943 (optimize-char-table (standard-syntax-table))
a5f3605a5bb8 Reinstate various CJK syntax and
Dave Love <fx@gnu.org>
parents: 88715
diff changeset
944
89119
fa0f7b37ba32 Add some non-word syntax cases.
Dave Love <fx@gnu.org>
parents: 89117
diff changeset
945 ;; 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
946 ;; undefined codepoints.
88892
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
947 (let ((script-list nil))
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
948 (dolist
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
949 (elt
89008
3e08629c1469 (script-list): Treat ascii characters as `latin' script.
Kenichi Handa <handa@m17n.org>
parents: 88976
diff changeset
950 '((#x0000 #x007F latin)
88892
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
951 (#x00A0 #x036F latin)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
952 (#x0370 #x03E1 greek)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
953 (#x03E2 #x03EF coptic)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
954 (#x03F0 #x03F3 greek)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
955 (#x0400 #x04FF cyrillic)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
956 (#x0530 #x058F armenian)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
957 (#x0590 #x05FF hebrew)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
958 (#x0600 #x06FF arabic)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
959 (#x0700 #x074F syriac)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
960 (#x0780 #x07BF thaana)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
961 (#x0900 #x097F devanagari)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
962 (#x0980 #x09FF bengali)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
963 (#x0A00 #x0A7F gurmukhi)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
964 (#x0A80 #x0AFF gujarati)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
965 (#x0B00 #x0B7F oriya)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
966 (#x0B80 #x0BFF tamil)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
967 (#x0C00 #x0C7F telugu)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
968 (#x0C80 #x0CFF kannada)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
969 (#x0D00 #x0D7F malayalam)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
970 (#x0D80 #x0DFF sinhala)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
971 (#x0E00 #x0E5F thai)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
972 (#x0E80 #x0EDF lao)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
973 (#x0F00 #x0FFF tibetan)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
974 (#x1000 #x105F myanmar)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
975 (#x10A0 #x10FF georgian)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
976 (#x1100 #x11FF hangul)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
977 (#x1200 #x137F ethiopic)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
978 (#x13A0 #x13FF cherokee)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
979 (#x1400 #x167F canadian-aboriginal)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
980 (#x1680 #x169F ogham)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
981 (#x16A0 #x16FF runic)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
982 (#x1780 #x17FF khmer)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
983 (#x1800 #x18AF mongolian)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
984 (#x1E00 #x1EFF latin)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
985 (#x1F00 #x1FFF greek)
89635
3d2f4775a302 (script-list): Include `currency' in `symbol'.
Kenichi Handa <handa@m17n.org>
parents: 89600
diff changeset
986 (#x2000 #x27FF symbol)
88892
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
987 (#x2800 #x28FF braille)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
988 (#x2E80 #x2FDF han)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
989 (#x2FF0 #x2FFF ideographic-description)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
990 (#x3000 #x303F cjk-misc)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
991 (#x3040 #x30FF kana)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
992 (#x3100 #x312F bopomofo)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
993 (#x3130 #x318F hangul)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
994 (#x3190 #x319F kanbun)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
995 (#x31A0 #x31BF bopomofo)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
996 (#x3400 #x9FAF han)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
997 (#xA000 #xA4CF yi)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
998 (#xAC00 #xD7AF hangul)
89798
186081a2790b Fix `han' script range.
Kenichi Handa <handa@m17n.org>
parents: 89680
diff changeset
999 (#xF900 #xFAFF han)
88892
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1000 (#xFB1D #xFB4F hebrew)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1001 (#xFB50 #xFDFF arabic)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1002 (#xFE70 #xFEFC arabic)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1003 (#xFF00 #xFF5F cjk-misc)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1004 (#xFF61 #xFF9F kana)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1005 (#xFFE0 #xFFE6 cjk-misc)
88971
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1006 (#x20000 #x2AFFF han)
88892
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1007 (#x2F800 #x2FFFF han)))
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1008 (set-char-table-range char-script-table
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1009 (cons (car elt) (nth 1 elt)) (nth 2 elt))
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1010 (or (memq (nth 2 elt) script-list)
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1011 (setq script-list (cons (nth 2 elt) script-list))))
70b2e9f6d8a8 Setup char-script-table.
Kenichi Handa <handa@m17n.org>
parents: 88778
diff changeset
1012 (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
1013
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89314
diff changeset
1014 (map-charset-chars
89291
b73d29dcc8c0 Make all chararacters in the charset tibetan to tibetan script.
Kenichi Handa <handa@m17n.org>
parents: 89188
diff changeset
1015 #'(lambda (range ignore)
b73d29dcc8c0 Make all chararacters in the charset tibetan to tibetan script.
Kenichi Handa <handa@m17n.org>
parents: 89188
diff changeset
1016 (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
1017 'tibetan)
b73d29dcc8c0 Make all chararacters in the charset tibetan to tibetan script.
Kenichi Handa <handa@m17n.org>
parents: 89188
diff changeset
1018
88971
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1019
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1020 ;;; Setting word boundary.
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1021
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1022 (defun next-word-boundary-han (pos limit)
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1023 (if (<= pos limit)
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1024 (save-excursion
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1025 (goto-char pos)
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1026 (looking-at "\\cC+")
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1027 (goto-char (match-end 0))
88976
fc96b539a43c (next-word-boundary-han): Don't
Kenichi Handa <handa@m17n.org>
parents: 88971
diff changeset
1028 (if (looking-at "\\cH+")
88971
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1029 (goto-char (match-end 0)))
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1030 (point))
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1031 (while (and (> pos limit)
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1032 (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
1033 (setq pos (1- pos)))
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1034 pos))
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1035
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1036 (defun next-word-boundary-kana (pos limit)
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1037 (if (<= pos limit)
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1038 (save-excursion
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1039 (goto-char pos)
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1040 (if (looking-at "\\cK+")
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1041 (goto-char (match-end 0)))
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1042 (if (looking-at "\\cH+")
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1043 (goto-char (match-end 0)))
89896
5fad4082726a (next-word-boundary-kana): Handle half-width kana.
Kenichi Handa <handa@m17n.org>
parents: 89798
diff changeset
1044 (if (looking-at "\\ck+")
5fad4082726a (next-word-boundary-kana): Handle half-width kana.
Kenichi Handa <handa@m17n.org>
parents: 89798
diff changeset
1045 (goto-char (match-end 0)))
88971
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1046 (point))
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1047 (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
1048 category)
89896
5fad4082726a (next-word-boundary-kana): Handle half-width kana.
Kenichi Handa <handa@m17n.org>
parents: 89798
diff changeset
1049 (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
1050 (while (and (> pos limit)
89896
5fad4082726a (next-word-boundary-kana): Handle half-width kana.
Kenichi Handa <handa@m17n.org>
parents: 89798
diff changeset
1051 (setq category-set
5fad4082726a (next-word-boundary-kana): Handle half-width kana.
Kenichi Handa <handa@m17n.org>
parents: 89798
diff changeset
1052 (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
1053 (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
1054 (setq pos (1- pos)))
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1055 (while (and (> pos limit)
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89314
diff changeset
1056 (aref (setq category-set
88971
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1057 (char-category-set (char-after (1- pos)))) ?H))
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1058 (setq pos (1- pos)))
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1059 (setq category (cond ((aref category-set ?C) ?C)
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1060 ((aref category-set ?K) ?K)
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1061 ((aref category-set ?A) ?A)))
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1062 (when category
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1063 (setq pos (1- pos))
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1064 (while (and (> pos limit)
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1065 (aref (char-category-set (char-after (1- pos)))
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1066 category))
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1067 (setq pos (1- pos)))))
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1068 pos)))
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1069
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1070 (map-char-table
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1071 #'(lambda (char script)
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1072 (cond ((eq script 'han)
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89314
diff changeset
1073 (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
1074 char #'next-word-boundary-han))
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1075 ((eq script 'kana)
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89314
diff changeset
1076 (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
1077 char #'next-word-boundary-kana))))
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1078 char-script-table)
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1079
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1080 (setq word-combining-categories
90488
4094c5298ae1 Merge from emacs--devo--0
Miles Bader <miles@gnu.org>
parents: 90382 71399
diff changeset
1081 '((?l . ?l)
4094c5298ae1 Merge from emacs--devo--0
Miles Bader <miles@gnu.org>
parents: 90382 71399
diff changeset
1082 (?C . ?C)
4094c5298ae1 Merge from emacs--devo--0
Miles Bader <miles@gnu.org>
parents: 90382 71399
diff changeset
1083 (?C . ?H)
4094c5298ae1 Merge from emacs--devo--0
Miles Bader <miles@gnu.org>
parents: 90382 71399
diff changeset
1084 (?C . ?K)))
88971
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1085
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1086 (setq word-separating-categories ; (2-byte character sets)
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1087 '((?A . ?K) ; Alpha numeric - Katakana
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1088 (?A . ?C) ; Alpha numeric - Chinese
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1089 (?H . ?A) ; Hiragana - Alpha numeric
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1090 (?H . ?K) ; Hiragana - Katakana
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1091 (?H . ?C) ; Hiragana - Chinese
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1092 (?K . ?A) ; Katakana - Alpha numeric
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1093 (?K . ?C) ; Katakana - Chinese
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1094 (?C . ?A) ; Chinese - Alpha numeric
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1095 (?C . ?K) ; Chinese - Katakana
651b64e6dce3 Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents: 88892
diff changeset
1096 ))
56031
7f29c9c8a3a4 Temporarily set utf-translate-cjk-mode to nil.
Kenichi Handa <handa@m17n.org>
parents: 55702
diff changeset
1097
20734
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
1098 ;;; Local Variables:
88469
dad99fefc4b3 Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents: 88425
diff changeset
1099 ;;; coding: utf-8-emacs
20734
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
1100 ;;; End:
179dbdbc3882 Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents: 20247
diff changeset
1101
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 50278
diff changeset
1102 ;;; 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
1103 ;;; characters.el ends here