/[emacs]/emacs/lisp/international/characters.el
ViewVC logotype

Diff of /emacs/lisp/international/characters.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.37 by fx, Wed Jul 17 19:05:32 2002 UTC revision 1.38 by lektu, Tue Feb 4 13:09:38 2003 UTC
# Line 83  Line 83 
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
# Line 557  Line 557 
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
# Line 566  Line 566 
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
# Line 675  Line 675 
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
# Line 684  Line 684 
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
# Line 722  Line 722 
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
# Line 730  Line 730 
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                    ))                    ))
# Line 1054  Line 1054 
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)

Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26