83 |
(define-category ?| "While filling, we can break a line at this character.") |
(define-category ?| "While filling, we can break a line at this character.") |
84 |
|
|
85 |
;; For indentation calculation. |
;; For indentation calculation. |
86 |
(define-category ? |
(define-category ? |
87 |
"This character counts as a space for indentation purposes.") |
"This character counts as a space for indentation purposes.") |
88 |
|
|
89 |
;; Keep the following for `kinsoku' processing. See comments in |
;; Keep the following for `kinsoku' processing. See comments in |
557 |
;; ?K is double width, ?k isn't specified |
;; ?K is double width, ?k isn't specified |
558 |
(modify-category-entry (decode-char 'ucs c) ?k) |
(modify-category-entry (decode-char 'ucs c) ?k) |
559 |
(modify-category-entry (decode-char 'ucs c) ?j) |
(modify-category-entry (decode-char 'ucs c) ?j) |
560 |
(modify-category-entry (decode-char 'ucs c) ?\|) |
(modify-category-entry (decode-char 'ucs c) ?\|) |
561 |
(setq c (1+ c)))) |
(setq c (1+ c)))) |
562 |
|
|
563 |
;; Hiragana block |
;; Hiragana block |
566 |
;; ?H is actually defined to be double width |
;; ?H is actually defined to be double width |
567 |
(modify-category-entry (decode-char 'ucs c) ?H) |
(modify-category-entry (decode-char 'ucs c) ?H) |
568 |
;;(modify-category-entry (decode-char 'ucs c) ?j) |
;;(modify-category-entry (decode-char 'ucs c) ?j) |
569 |
(modify-category-entry (decode-char 'ucs c) ?\|) |
(modify-category-entry (decode-char 'ucs c) ?\|) |
570 |
(setq c (1+ c)))) |
(setq c (1+ c)))) |
571 |
|
|
572 |
;; JISX0208 |
;; JISX0208 |
675 |
("(1PRS]`(B-(1d(B" "w" ?1) ; vowel base |
("(1PRS]`(B-(1d(B" "w" ?1) ; vowel base |
676 |
("(1QT(B-(1W[m(B" "w" ?2) ; vowel upper |
("(1QT(B-(1W[m(B" "w" ?2) ; vowel upper |
677 |
("(1XY(B" "w" ?3) ; vowel lower |
("(1XY(B" "w" ?3) ; vowel lower |
678 |
("(1h(B-(1l(B" "w" ?4) ; tone mark |
("(1h(B-(1l(B" "w" ?4) ; tone mark |
679 |
("(1\(B" "w" ?9) ; semivowel lower |
("(1\(B" "w" ?9) ; semivowel lower |
680 |
("(1p(B-(1y(B" "w" ?6) ; digit |
("(1p(B-(1y(B" "w" ?6) ; digit |
681 |
("(1Of(B" "_" ?5) ; symbol |
("(1Of(B" "_" ?5) ; symbol |
684 |
("$,1DPDRDSD]D`(B-$,1Dd(B" "w" ?1) ; vowel base |
("$,1DPDRDSD]D`(B-$,1Dd(B" "w" ?1) ; vowel base |
685 |
("$,1DQDT(B-$,1DWD[Dm(B" "w" ?2) ; vowel upper |
("$,1DQDT(B-$,1DWD[Dm(B" "w" ?2) ; vowel upper |
686 |
("$,1DXDY(B" "w" ?3) ; vowel lower |
("$,1DXDY(B" "w" ?3) ; vowel lower |
687 |
("$,1Dh(B-$,1Dk(B" "w" ?4) ; tone mark |
("$,1Dh(B-$,1Dk(B" "w" ?4) ; tone mark |
688 |
("$,1D\D](B" "w" ?9) ; semivowel lower |
("$,1D\D](B" "w" ?9) ; semivowel lower |
689 |
("$,1Dp(B-$,1Dy(B" "w" ?6) ; digit |
("$,1Dp(B-$,1Dy(B" "w" ?6) ; digit |
690 |
("$,1DODf(B" "_" ?5) ; symbol |
("$,1DODf(B" "_" ?5) ; symbol |
722 |
(",TDFPRS`(B-,Te(B" "w" ?1) ; vowel base |
(",TDFPRS`(B-,Te(B" "w" ?1) ; vowel base |
723 |
(",TQT(B-,TWgn(B" "w" ?2) ; vowel upper |
(",TQT(B-,TWgn(B" "w" ?2) ; vowel upper |
724 |
(",TX(B-,TZ(B" "w" ?3) ; vowel lower |
(",TX(B-,TZ(B" "w" ?3) ; vowel lower |
725 |
(",Th(B-,Tm(B" "w" ?4) ; tone mark |
(",Th(B-,Tm(B" "w" ?4) ; tone mark |
726 |
(",Tp(B-,Ty(B" "w" ?6) ; digit |
(",Tp(B-,Ty(B" "w" ?6) ; digit |
727 |
(",TOf_oz{(B" "_" ?5) ; symbol |
(",TOf_oz{(B" "_" ?5) ; symbol |
728 |
;; Unicode equivalents |
;; Unicode equivalents |
730 |
("$,1C$C&C0C2C3C@(B-$,1CE(B" "w" ?1) ; vowel base |
("$,1C$C&C0C2C3C@(B-$,1CE(B" "w" ?1) ; vowel base |
731 |
("$,1C1C4(B-$,1C7CGCN(B" "w" ?2) ; vowel upper |
("$,1C1C4(B-$,1C7CGCN(B" "w" ?2) ; vowel upper |
732 |
("$,1C8(B-$,1C:(B" "w" ?3) ; vowel lower |
("$,1C8(B-$,1C:(B" "w" ?3) ; vowel lower |
733 |
("$,1CH(B-$,1CM(B" "w" ?4) ; tone mark |
("$,1CH(B-$,1CM(B" "w" ?4) ; tone mark |
734 |
("$,1CP(B-$,1CY(B" "w" ?6) ; digit |
("$,1CP(B-$,1CY(B" "w" ?6) ; digit |
735 |
("$,1C/CFC?COCZC[(B" "_" ?5) ; symbol |
("$,1C/CFC?COCZC[(B" "_" ?5) ; symbol |
736 |
)) |
)) |
1054 |
(and (>= c #x048c) (<= c #x04be)) |
(and (>= c #x048c) (<= c #x04be)) |
1055 |
(and (>= c #x04d0) (<= c #x04f4))) |
(and (>= c #x04d0) (<= c #x04f4))) |
1056 |
(set-case-syntax-pair |
(set-case-syntax-pair |
1057 |
(decode-char 'ucs c) (decode-char 'ucs (1+ c)) tbl)) |
(decode-char 'ucs c) (decode-char 'ucs (1+ c)) tbl)) |
1058 |
(setq c (1+ c))) |
(setq c (1+ c))) |
1059 |
(set-case-syntax-pair ?$,1*!(B ?$,1*"(B tbl) |
(set-case-syntax-pair ?$,1*!(B ?$,1*"(B tbl) |
1060 |
(set-case-syntax-pair ?$,1*#(B ?$,1*$(B tbl) |
(set-case-syntax-pair ?$,1*#(B ?$,1*$(B tbl) |