Mercurial > emacs
comparison lisp/international/characters.el @ 88519:98ec5d812ccc
Set syntax/category for japanese-jisx0208.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Tue, 14 May 2002 23:15:58 +0000 |
| parents | 2ce720ffa865 |
| children | ec8e29bbca37 |
comparison
equal
deleted
inserted
replaced
| 88518:914548535d25 | 88519:98ec5d812ccc |
|---|---|
| 475 | 475 |
| 476 ;; Katakana block | 476 ;; Katakana block |
| 477 (let ((c #x30a0)) | 477 (let ((c #x30a0)) |
| 478 (while (<= c #x30ff) | 478 (while (<= c #x30ff) |
| 479 ;; ?K is double width, ?k isn't specified | 479 ;; ?K is double width, ?k isn't specified |
| 480 (modify-category-entry (decode-char 'ucs c) ?k) | 480 (modify-category-entry (decode-char 'ucs c) ?K) |
| 481 (modify-category-entry (decode-char 'ucs c) ?j) | 481 ;;(modify-category-entry (decode-char 'ucs c) ?j) |
| 482 (modify-category-entry (decode-char 'ucs c) ?\|) | 482 (modify-category-entry (decode-char 'ucs c) ?\|) |
| 483 (setq c (1+ c)))) | 483 (setq c (1+ c)))) |
| 484 | 484 |
| 485 ;; Hiragana block | 485 ;; Hiragana block |
| 486 (let ((c #x3040)) | 486 (let ((c #x3040)) |
| 490 ;;(modify-category-entry (decode-char 'ucs c) ?j) | 490 ;;(modify-category-entry (decode-char 'ucs c) ?j) |
| 491 (modify-category-entry (decode-char 'ucs c) ?\|) | 491 (modify-category-entry (decode-char 'ucs c) ?\|) |
| 492 (setq c (1+ c)))) | 492 (setq c (1+ c)))) |
| 493 | 493 |
| 494 ;; JISX0208 | 494 ;; JISX0208 |
| 495 ;; (modify-syntax-entry (make-char 'japanese-jisx0208) "w") | |
| 496 ;; (modify-syntax-entry (make-char 'japanese-jisx0208 33) "_") | |
| 497 ;; (modify-syntax-entry (make-char 'japanese-jisx0208 34) "_") | |
| 498 ;; (modify-syntax-entry (make-char 'japanese-jisx0208 40) "_") | |
| 499 ;; (let ((chars '(?õ€€› ?õ€€Š ?õ€€‹ ?õ€€’ ?õ€€“ ?õ€€” ?õ€€• ?õ€€– ?õ€€— ?õ€€˜ ?õ€€™ ?õ€€š))) | |
| 500 ;; (while chars | |
| 501 ;; (modify-syntax-entry (car chars) "w") | |
| 502 ;; (setq chars (cdr chars)))) | |
| 503 | |
| 504 (modify-syntax-entry (cons (decode-char 'japanese-jisx0208 #x2121) | 495 (modify-syntax-entry (cons (decode-char 'japanese-jisx0208 #x2121) |
| 505 (decode-char 'japanese-jisx0208 #x227E)) "_") | 496 (decode-char 'japanese-jisx0208 #x227E)) "_") |
| 506 (modify-syntax-entry (cons (decode-char 'japanese-jisx0208 #x2821) | 497 (modify-syntax-entry (cons (decode-char 'japanese-jisx0208 #x2821) |
| 507 (decode-char 'japanese-jisx0208 #x287E)) "_") | 498 (decode-char 'japanese-jisx0208 #x287E)) "_") |
| 499 (let ((chars '(?õ€€› ?õ€€Š ?õ€€‹ ?õ€€’ ?õ€€“ ?õ€€” ?õ€€• ?õ€€– ?õ€€— ?õ€€˜ ?õ€€™ ?õ€€š))) | |
| 500 (dolist (elt chars) | |
| 501 (modify-syntax-entry (car chars) "w") | |
| 502 (setq chars (cdr chars)))) | |
| 508 (modify-syntax-entry ?\õ€€© "(õ€€ª") | 503 (modify-syntax-entry ?\õ€€© "(õ€€ª") |
| 509 (modify-syntax-entry ?\õ€€ "(õ€€®") | 504 (modify-syntax-entry ?\õ€€ "(õ€€®") |
| 510 (modify-syntax-entry ?\õ€€¯ "(õ€€°") | 505 (modify-syntax-entry ?\õ€€¯ "(õ€€°") |
| 511 (modify-syntax-entry ?\õ€€µ "(õ€€¶") | 506 (modify-syntax-entry ?\õ€€µ "(õ€€¶") |
| 512 (modify-syntax-entry ?\õ€€· "(õ€€¸") | 507 (modify-syntax-entry ?\õ€€· "(õ€€¸") |
| 514 (modify-syntax-entry ?\õ€€® ")õ€€") | 509 (modify-syntax-entry ?\õ€€® ")õ€€") |
| 515 (modify-syntax-entry ?\õ€€° ")õ€€¯") | 510 (modify-syntax-entry ?\õ€€° ")õ€€¯") |
| 516 (modify-syntax-entry ?\õ€€¶ ")õ€€µ") | 511 (modify-syntax-entry ?\õ€€¶ ")õ€€µ") |
| 517 (modify-syntax-entry ?\õ€€¸ ")õ€€·") | 512 (modify-syntax-entry ?\õ€€¸ ")õ€€·") |
| 518 | 513 |
| 519 ;; (modify-category-entry (make-char 'japanese-jisx0208 35) ?A) | 514 (modify-category-entry (cons (decode-char 'japanese-jisx0208 #x2321) |
| 520 ;; (modify-category-entry (make-char 'japanese-jisx0208 36) ?H) | 515 (decode-char 'japanese-jisx0208 #x237E)) ?A) |
| 521 ;; (modify-category-entry (make-char 'japanese-jisx0208 37) ?K) | 516 (modify-category-entry (cons (decode-char 'japanese-jisx0208 #x2421) |
| 522 ;; (modify-category-entry (make-char 'japanese-jisx0208 38) ?G) | 517 (decode-char 'japanese-jisx0208 #x247E)) ?H) |
| 523 ;; (modify-category-entry (make-char 'japanese-jisx0208 39) ?Y) | 518 (modify-category-entry (cons (decode-char 'japanese-jisx0208 #x2521) |
| 524 ;; (let ((row 48)) | 519 (decode-char 'japanese-jisx0208 #x257E)) ?K) |
| 525 ;; (while (< row 127) | 520 (modify-category-entry (cons (decode-char 'japanese-jisx0208 #x2621) |
| 526 ;; (modify-category-entry (make-char 'japanese-jisx0208 row) ?C) | 521 (decode-char 'japanese-jisx0208 #x267E)) ?G) |
| 527 ;; (setq row (1+ row)))) | 522 (modify-category-entry (cons (decode-char 'japanese-jisx0208 #x2721) |
| 523 (decode-char 'japanese-jisx0208 #x277E)) ?Y) | |
| 524 (modify-category-entry (cons (decode-char 'japanese-jisx0208 #x3021) | |
| 525 (decode-char 'japanese-jisx0208 #x7E7E)) ?C) | |
| 528 (modify-category-entry ?õ€€› ?K) | 526 (modify-category-entry ?õ€€› ?K) |
| 529 (let ((chars '(?õ€€Š ?õ€€‹))) | 527 (let ((chars '(?õ€€Š ?õ€€‹))) |
| 530 (while chars | 528 (while chars |
| 531 (modify-category-entry (car chars) ?K) | 529 (modify-category-entry (car chars) ?K) |
| 532 (modify-category-entry (car chars) ?H) | 530 (modify-category-entry (car chars) ?H) |