Mercurial > emacs
comparison lisp/international/characters.el @ 55675:506ecef6bbf8
Fix syntax (open/close) of CJK characters.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Wed, 19 May 2004 00:10:27 +0000 |
| parents | 30f51253b792 |
| children | 40bca3f61f92 |
comparison
equal
deleted
inserted
replaced
| 55674:97c2d7314ac2 | 55675:506ecef6bbf8 |
|---|---|
| 226 ;; (modify-syntax-entry generic-char "w") | 226 ;; (modify-syntax-entry generic-char "w") |
| 227 (modify-category-entry generic-char ?c) | 227 (modify-category-entry generic-char ?c) |
| 228 (modify-category-entry generic-char ?C) | 228 (modify-category-entry generic-char ?C) |
| 229 (modify-category-entry generic-char ?|) | 229 (modify-category-entry generic-char ?|) |
| 230 (setq cns-list (cdr cns-list)))) | 230 (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)))) | |
| 231 | 239 |
| 232 ;; Cyrillic character set (ISO-8859-5) | 240 ;; Cyrillic character set (ISO-8859-5) |
| 233 | 241 |
| 234 (modify-category-entry (make-char 'cyrillic-iso8859-5) ?y) | 242 (modify-category-entry (make-char 'cyrillic-iso8859-5) ?y) |
| 235 | 243 |
| 582 (modify-syntax-entry (make-char 'japanese-jisx0208 40) "_") | 590 (modify-syntax-entry (make-char 'japanese-jisx0208 40) "_") |
| 583 (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))) | 591 (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))) |
| 584 (while chars | 592 (while chars |
| 585 (modify-syntax-entry (car chars) "w") | 593 (modify-syntax-entry (car chars) "w") |
| 586 (setq chars (cdr chars)))) | 594 (setq chars (cdr chars)))) |
| 587 (modify-syntax-entry ?\$B!J(B "($B!K(B") | 595 (let ((parens "$B!J!K!L!M!N!O!P!Q!R!S!T!U!V!W!X!Y!Z![(B" ) |
| 588 (modify-syntax-entry ?\$B!N(B "($B!O(B") | 596 open close) |
| 589 (modify-syntax-entry ?\$B!P(B "($B!Q(B") | 597 (dotimes (i (/ (length parens) 2)) |
| 590 (modify-syntax-entry ?\$B!V(B "($B!W(B") | 598 (setq open (aref parens (* i 2)) |
| 591 (modify-syntax-entry ?\$B!X(B "($B!Y(B") | 599 close (aref parens (1+ (* i 2)))) |
| 592 (modify-syntax-entry ?\$B!K(B ")$B!J(B") | 600 (modify-syntax-entry open (format "(%c" close)) |
| 593 (modify-syntax-entry ?\$B!O(B ")$B!N(B") | 601 (modify-syntax-entry close (format ")%c" open)))) |
| 594 (modify-syntax-entry ?\$B!Q(B ")$B!P(B") | |
| 595 (modify-syntax-entry ?\$B!W(B ")$B!V(B") | |
| 596 (modify-syntax-entry ?\$B!Y(B ")$B!X(B") | |
| 597 | 602 |
| 598 (modify-category-entry (make-char 'japanese-jisx0208 35) ?A) | 603 (modify-category-entry (make-char 'japanese-jisx0208 35) ?A) |
| 599 (modify-category-entry (make-char 'japanese-jisx0208 36) ?H) | 604 (modify-category-entry (make-char 'japanese-jisx0208 36) ?H) |
| 600 (modify-category-entry (make-char 'japanese-jisx0208 37) ?K) | 605 (modify-category-entry (make-char 'japanese-jisx0208 37) ?K) |
| 601 (modify-category-entry (make-char 'japanese-jisx0208 38) ?G) | 606 (modify-category-entry (make-char 'japanese-jisx0208 38) ?G) |
| 649 (modify-category-entry (make-char 'korean-ksc5601 35) ?A) | 654 (modify-category-entry (make-char 'korean-ksc5601 35) ?A) |
| 650 (modify-category-entry (make-char 'korean-ksc5601 37) ?G) | 655 (modify-category-entry (make-char 'korean-ksc5601 37) ?G) |
| 651 (modify-category-entry (make-char 'korean-ksc5601 42) ?H) | 656 (modify-category-entry (make-char 'korean-ksc5601 42) ?H) |
| 652 (modify-category-entry (make-char 'korean-ksc5601 43) ?K) | 657 (modify-category-entry (make-char 'korean-ksc5601 43) ?K) |
| 653 (modify-category-entry (make-char 'korean-ksc5601 44) ?Y) | 658 (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)))) | |
| 654 | 667 |
| 655 ;; Latin character set (latin-1,2,3,4,5,8,9) | 668 ;; Latin character set (latin-1,2,3,4,5,8,9) |
| 656 | 669 |
| 657 (modify-category-entry (make-char 'latin-iso8859-1) ?l) | 670 (modify-category-entry (make-char 'latin-iso8859-1) ?l) |
| 658 (modify-category-entry (make-char 'latin-iso8859-2) ?l) | 671 (modify-category-entry (make-char 'latin-iso8859-2) ?l) |