annotate lisp/international/characters.el @ 72307:725af3953ee0

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