140 |
(modify-syntax-entry ?\$A!:(B "($A!;(B") |
(modify-syntax-entry ?\$A!:(B "($A!;(B") |
141 |
(modify-syntax-entry ?\$A!<(B "($A!=(B") |
(modify-syntax-entry ?\$A!<(B "($A!=(B") |
142 |
(modify-syntax-entry ?\$A!>(B "($A!?(B") |
(modify-syntax-entry ?\$A!>(B "($A!?(B") |
143 |
|
(modify-syntax-entry ?\$A#((B "($A#)(B") |
144 |
|
(modify-syntax-entry ?\$A#{(B "($A#}(B") |
145 |
|
(modify-syntax-entry ?\$A#[(B "($A#](B") |
146 |
(modify-syntax-entry ?\$A!3(B ")$A!2(B") |
(modify-syntax-entry ?\$A!3(B ")$A!2(B") |
147 |
(modify-syntax-entry ?\$A!5(B ")$A!4(B") |
(modify-syntax-entry ?\$A!5(B ")$A!4(B") |
148 |
(modify-syntax-entry ?\$A!7(B ")$A!6(B") |
(modify-syntax-entry ?\$A!7(B ")$A!6(B") |
150 |
(modify-syntax-entry ?\$A!;(B ")$A!:(B") |
(modify-syntax-entry ?\$A!;(B ")$A!:(B") |
151 |
(modify-syntax-entry ?\$A!=(B ")$A!<(B") |
(modify-syntax-entry ?\$A!=(B ")$A!<(B") |
152 |
(modify-syntax-entry ?\$A!?(B ")$A!>(B") |
(modify-syntax-entry ?\$A!?(B ")$A!>(B") |
153 |
|
(modify-syntax-entry ?\$A#)(B ")$A#((B") |
154 |
|
(modify-syntax-entry ?\$A#}(B ")$A#{(B") |
155 |
|
(modify-syntax-entry ?\$A#](B ")$A#[(B") |
156 |
;; Unicode equivalents of above |
;; Unicode equivalents of above |
157 |
(modify-syntax-entry ?\$,2=T(B "($,2=U(B") |
(modify-syntax-entry ?\$,2=T(B "($,2=U(B") |
158 |
(modify-syntax-entry ?\$,2=H(B "($,2=I(B") |
(modify-syntax-entry ?\$,2=H(B "($,2=I(B") |
169 |
(modify-syntax-entry ?\$,2=W(B ")$,2=V(B") |
(modify-syntax-entry ?\$,2=W(B ")$,2=V(B") |
170 |
(modify-syntax-entry ?\$,2=Q(B ")$,2=P(B") |
(modify-syntax-entry ?\$,2=Q(B ")$,2=P(B") |
171 |
|
|
172 |
|
(let ((chars "$A#,!"!##.!$#;#:#?#!!C!-!'#|#_!.!/!0!1#"!e#`!d(B")) |
173 |
|
(dotimes (i (length chars)) |
174 |
|
(modify-syntax-entry (aref chars i) "."))) |
175 |
|
|
176 |
(modify-category-entry (make-char 'chinese-gb2312) ?c) |
(modify-category-entry (make-char 'chinese-gb2312) ?c) |
177 |
(modify-category-entry (make-char 'chinese-gb2312) ?\|) |
(modify-category-entry (make-char 'chinese-gb2312) ?\|) |
178 |
(modify-category-entry (make-char 'chinese-gb2312 35) ?A) |
(modify-category-entry (make-char 'chinese-gb2312 35) ?A) |
187 |
|
|
188 |
;; Chinese character set (BIG5) |
;; Chinese character set (BIG5) |
189 |
|
|
190 |
|
|
191 |
|
|
192 |
|
(let ((from (decode-big5-char #xA141)) |
193 |
|
(to (decode-big5-char #xA15D))) |
194 |
|
(while (< from to) |
195 |
|
(modify-syntax-entry from ".") |
196 |
|
(setq from (1+ from)))) |
197 |
|
(let ((from (decode-big5-char #xA1A5)) |
198 |
|
(to (decode-big5-char #xA1AD))) |
199 |
|
(while (< from to) |
200 |
|
(modify-syntax-entry from ".") |
201 |
|
(setq from (1+ from)))) |
202 |
|
(let ((from (decode-big5-char #xA1AD)) |
203 |
|
(to (decode-big5-char #xA2AF))) |
204 |
|
(while (< from to) |
205 |
|
(modify-syntax-entry from "_") |
206 |
|
(setq from (1+ from)))) |
207 |
|
|
208 |
|
(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") |
209 |
|
open close) |
210 |
|
(dotimes (i (/ (length parens) 2)) |
211 |
|
(setq open (aref parens (* i 2)) |
212 |
|
close (aref parens (1+ (* i 2)))) |
213 |
|
(modify-syntax-entry open (format "(%c" close)) |
214 |
|
(modify-syntax-entry close (format ")%c" open)))) |
215 |
|
|
216 |
(let ((generic-big5-1-char (make-char 'chinese-big5-1)) |
(let ((generic-big5-1-char (make-char 'chinese-big5-1)) |
217 |
(generic-big5-2-char (make-char 'chinese-big5-2))) |
(generic-big5-2-char (make-char 'chinese-big5-2))) |
218 |
;; (modify-syntax-entry generic-big5-1-char "w") |
;; (modify-syntax-entry generic-big5-1-char "w") |