annotate lisp/international/characters.el @ 82974:e88e622cd27a gnus-5_10-pre-merge-yamaoka

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