[Emacs-diffs] Changes to emacs/lisp/international/characters.el

[Juanma Barranquero]

Index: emacs/lisp/international/characters.el
diff -c emacs/lisp/international/characters.el:1.37 
emacs/lisp/international/characters.el:1.38
*** emacs/lisp/international/characters.el:1.37 Wed Jul 17 15:05:32 2002
--- emacs/lisp/international/characters.el      Tue Feb  4 08:09:38 2003
***************
*** 83,89 ****
  (define-category ?| "While filling, we can break a line at this character.")
  
  ;; For indentation calculation.
! (define-category ? 
    "This character counts as a space for indentation purposes.")
  
  ;; Keep the following for `kinsoku' processing.  See comments in
--- 83,89 ----
  (define-category ?| "While filling, we can break a line at this character.")
  
  ;; For indentation calculation.
! (define-category ?
    "This character counts as a space for indentation purposes.")
  
  ;; Keep the following for `kinsoku' processing.  See comments in
***************
*** 557,563 ****
      ;; ?K is double width, ?k isn't specified
      (modify-category-entry (decode-char 'ucs c) ?k)
      (modify-category-entry (decode-char 'ucs c) ?j)
!     (modify-category-entry (decode-char 'ucs c) ?\|) 
      (setq c (1+ c))))
  
  ;; Hiragana block
--- 557,563 ----
      ;; ?K is double width, ?k isn't specified
      (modify-category-entry (decode-char 'ucs c) ?k)
      (modify-category-entry (decode-char 'ucs c) ?j)
!     (modify-category-entry (decode-char 'ucs c) ?\|)
      (setq c (1+ c))))
  
  ;; Hiragana block
***************
*** 566,572 ****
      ;; ?H is actually defined to be double width
      (modify-category-entry (decode-char 'ucs c) ?H)
      ;;(modify-category-entry (decode-char 'ucs c) ?j)
!     (modify-category-entry (decode-char 'ucs c) ?\|) 
      (setq c (1+ c))))
  
  ;; JISX0208
--- 566,572 ----
      ;; ?H is actually defined to be double width
      (modify-category-entry (decode-char 'ucs c) ?H)
      ;;(modify-category-entry (decode-char 'ucs c) ?j)
!     (modify-category-entry (decode-char 'ucs c) ?\|)
      (setq c (1+ c))))
  
  ;; JISX0208
***************
*** 675,681 ****
                  ("(1PRS]`(B-(1d(B"        "w"     ?1) ; vowel base
                  ("(1QT(B-(1W[m(B" "w"     ?2) ; vowel upper
                  ("(1XY(B"           "w"     ?3) ; vowel lower
!                 ("(1h(B-(1l(B"    "w"     ?4) ; tone mark 
                  ("(1\(B"            "w"     ?9) ; semivowel lower
                  ("(1p(B-(1y(B"    "w"     ?6) ; digit
                  ("(1Of(B"           "_"     ?5) ; symbol
--- 675,681 ----
                  ("(1PRS]`(B-(1d(B"        "w"     ?1) ; vowel base
                  ("(1QT(B-(1W[m(B" "w"     ?2) ; vowel upper
                  ("(1XY(B"           "w"     ?3) ; vowel lower
!                 ("(1h(B-(1l(B"    "w"     ?4) ; tone mark
                  ("(1\(B"            "w"     ?9) ; semivowel lower
                  ("(1p(B-(1y(B"    "w"     ?6) ; digit
                  ("(1Of(B"           "_"     ?5) ; symbol
***************
*** 684,690 ****
                  ("$,1DPDRDSD]D`(B-$,1Dd(B"        "w"     ?1) ; vowel base
                  ("$,1DQDT(B-$,1DWD[Dm(B"  "w"     ?2) ; vowel upper
                  ("$,1DXDY(B"        "w"     ?3) ; vowel lower
!                 ("$,1Dh(B-$,1Dk(B"        "w"     ?4) ; tone mark 
                  ("$,1D\D](B"        "w"     ?9) ; semivowel lower
                  ("$,1Dp(B-$,1Dy(B"        "w"     ?6) ; digit
                  ("$,1DODf(B"        "_"     ?5) ; symbol
--- 684,690 ----
                  ("$,1DPDRDSD]D`(B-$,1Dd(B"        "w"     ?1) ; vowel base
                  ("$,1DQDT(B-$,1DWD[Dm(B"  "w"     ?2) ; vowel upper
                  ("$,1DXDY(B"        "w"     ?3) ; vowel lower
!                 ("$,1Dh(B-$,1Dk(B"        "w"     ?4) ; tone mark
                  ("$,1D\D](B"        "w"     ?9) ; semivowel lower
                  ("$,1Dp(B-$,1Dy(B"        "w"     ?6) ; digit
                  ("$,1DODf(B"        "_"     ?5) ; symbol
***************
*** 722,728 ****
                  (",TDFPRS`(B-,Te(B"       "w"     ?1) ; vowel base
                  (",TQT(B-,TWgn(B" "w"     ?2) ; vowel upper
                  (",TX(B-,TZ(B"    "w"     ?3) ; vowel lower
!                 (",Th(B-,Tm(B"    "w"     ?4) ; tone mark 
                  (",Tp(B-,Ty(B"    "w"     ?6) ; digit
                  (",TOf_oz{(B"       "_"     ?5) ; symbol
                  ;; Unicode equivalents
--- 722,728 ----
                  (",TDFPRS`(B-,Te(B"       "w"     ?1) ; vowel base
                  (",TQT(B-,TWgn(B" "w"     ?2) ; vowel upper
                  (",TX(B-,TZ(B"    "w"     ?3) ; vowel lower
!                 (",Th(B-,Tm(B"    "w"     ?4) ; tone mark
                  (",Tp(B-,Ty(B"    "w"     ?6) ; digit
                  (",TOf_oz{(B"       "_"     ?5) ; symbol
                  ;; Unicode equivalents
***************
*** 730,736 ****
                  ("$,1C$C&address@hidden(B-$,1CE(B" "w"     ?1) ; vowel base
                  ("$,1C1C4(B-$,1C7CGCN(B"  "w"     ?2) ; vowel upper
                  ("$,1C8(B-$,1C:(B"        "w"     ?3) ; vowel lower
!                 ("$,1CH(B-$,1CM(B"        "w"     ?4) ; tone mark 
                  ("$,1CP(B-$,1CY(B"        "w"     ?6) ; digit
                  ("$,1C/CFC?COCZC[(B"        "_"     ?5) ; symbol
                  ))
--- 730,736 ----
                  ("$,1C$C&address@hidden(B-$,1CE(B" "w"     ?1) ; vowel base
                  ("$,1C1C4(B-$,1C7CGCN(B"  "w"     ?2) ; vowel upper
                  ("$,1C8(B-$,1C:(B"        "w"     ?3) ; vowel lower
!                 ("$,1CH(B-$,1CM(B"        "w"     ?4) ; tone mark
                  ("$,1CP(B-$,1CY(B"        "w"     ?6) ; digit
                  ("$,1C/CFC?COCZC[(B"        "_"     ?5) ; symbol
                  ))
***************
*** 1054,1060 ****
             (and (>= c #x048c) (<= c #x04be))
             (and (>= c #x04d0) (<= c #x04f4)))
         (set-case-syntax-pair
!         (decode-char 'ucs c) (decode-char 'ucs (1+ c)) tbl))   
      (setq c (1+ c)))
    (set-case-syntax-pair ?$,1*!(B ?$,1*"(B tbl)
    (set-case-syntax-pair ?$,1*#(B ?$,1*$(B tbl)
--- 1054,1060 ----
             (and (>= c #x048c) (<= c #x04be))
             (and (>= c #x04d0) (<= c #x04f4)))
         (set-case-syntax-pair
!         (decode-char 'ucs c) (decode-char 'ucs (1+ c)) tbl))
      (setq c (1+ c)))
    (set-case-syntax-pair ?$,1*!(B ?$,1*"(B tbl)
    (set-case-syntax-pair ?$,1*#(B ?$,1*$(B tbl)