annotate lisp/international/characters.el @ 111111:560acc231de3

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