229 |
(modify-category-entry generic-char ?|) |
(modify-category-entry generic-char ?|) |
230 |
(setq cns-list (cdr cns-list)))) |
(setq cns-list (cdr cns-list)))) |
231 |
|
|
232 |
|
(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") |
233 |
|
open close) |
234 |
|
(dotimes (i (/ (length parens) 2)) |
235 |
|
(setq open (aref parens (* i 2)) |
236 |
|
close (aref parens (1+ (* i 2)))) |
237 |
|
(modify-syntax-entry open (format "(%c" close)) |
238 |
|
(modify-syntax-entry close (format ")%c" open)))) |
239 |
|
|
240 |
;; Cyrillic character set (ISO-8859-5) |
;; Cyrillic character set (ISO-8859-5) |
241 |
|
|
242 |
(modify-category-entry (make-char 'cyrillic-iso8859-5) ?y) |
(modify-category-entry (make-char 'cyrillic-iso8859-5) ?y) |
592 |
(while chars |
(while chars |
593 |
(modify-syntax-entry (car chars) "w") |
(modify-syntax-entry (car chars) "w") |
594 |
(setq chars (cdr chars)))) |
(setq chars (cdr chars)))) |
595 |
(modify-syntax-entry ?\$B!J(B "($B!K(B") |
(let ((parens "$B!J!K!L!M!N!O!P!Q!R!S!T!U!V!W!X!Y!Z![(B" ) |
596 |
(modify-syntax-entry ?\$B!N(B "($B!O(B") |
open close) |
597 |
(modify-syntax-entry ?\$B!P(B "($B!Q(B") |
(dotimes (i (/ (length parens) 2)) |
598 |
(modify-syntax-entry ?\$B!V(B "($B!W(B") |
(setq open (aref parens (* i 2)) |
599 |
(modify-syntax-entry ?\$B!X(B "($B!Y(B") |
close (aref parens (1+ (* i 2)))) |
600 |
(modify-syntax-entry ?\$B!K(B ")$B!J(B") |
(modify-syntax-entry open (format "(%c" close)) |
601 |
(modify-syntax-entry ?\$B!O(B ")$B!N(B") |
(modify-syntax-entry close (format ")%c" open)))) |
|
(modify-syntax-entry ?\$B!Q(B ")$B!P(B") |
|
|
(modify-syntax-entry ?\$B!W(B ")$B!V(B") |
|
|
(modify-syntax-entry ?\$B!Y(B ")$B!X(B") |
|
602 |
|
|
603 |
(modify-category-entry (make-char 'japanese-jisx0208 35) ?A) |
(modify-category-entry (make-char 'japanese-jisx0208 35) ?A) |
604 |
(modify-category-entry (make-char 'japanese-jisx0208 36) ?H) |
(modify-category-entry (make-char 'japanese-jisx0208 36) ?H) |
657 |
(modify-category-entry (make-char 'korean-ksc5601 43) ?K) |
(modify-category-entry (make-char 'korean-ksc5601 43) ?K) |
658 |
(modify-category-entry (make-char 'korean-ksc5601 44) ?Y) |
(modify-category-entry (make-char 'korean-ksc5601 44) ?Y) |
659 |
|
|
660 |
|
(let ((parens "$(C!2!3!4!5!6!7!8!9!:!;!<!=#(#)#[#]#{#}(B" ) |
661 |
|
open close) |
662 |
|
(dotimes (i (/ (length parens) 2)) |
663 |
|
(setq open (aref parens (* i 2)) |
664 |
|
close (aref parens (1+ (* i 2)))) |
665 |
|
(modify-syntax-entry open (format "(%c" close)) |
666 |
|
(modify-syntax-entry close (format ")%c" open)))) |
667 |
|
|
668 |
;; Latin character set (latin-1,2,3,4,5,8,9) |
;; Latin character set (latin-1,2,3,4,5,8,9) |
669 |
|
|
670 |
(modify-category-entry (make-char 'latin-iso8859-1) ?l) |
(modify-category-entry (make-char 'latin-iso8859-1) ?l) |