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

[Kenichi Handa]

Index: emacs/lisp/international/characters.el
diff -c emacs/lisp/international/characters.el:1.49 
emacs/lisp/international/characters.el:1.50
*** emacs/lisp/international/characters.el:1.49 Fri Jun 11 06:03:16 2004
--- emacs/lisp/international/characters.el      Wed Feb  2 01:00:44 2005
***************
*** 447,452 ****
--- 447,453 ----
    (set-case-syntax-pair ?,FO(B ?,Fo(B tbl)
    (set-case-syntax-pair ?,FP(B ?,Fp(B tbl)
    (set-case-syntax-pair ?,FQ(B ?,Fq(B tbl)
+   (set-upcase-syntax    ?,FS(B ?,Fr(B tbl)
    (set-case-syntax-pair ?,FS(B ?,Fs(B tbl)
    (set-case-syntax-pair ?,FT(B ?,Ft(B tbl)
    (set-case-syntax-pair ?,FU(B ?,Fu(B tbl)
***************
*** 481,486 ****
--- 482,488 ----
    (set-case-syntax-pair ?$,1&(B ?$,1'?(B tbl)
    (set-case-syntax-pair ?$,1' (B ?$,1'@(B tbl)
    (set-case-syntax-pair ?$,1'!(B ?$,1'A(B tbl)
+   (set-upcase-syntax    ?$,1'#(B ?$,1'B(B tbl)
    (set-case-syntax-pair ?$,1'#(B ?$,1'C(B tbl)
    (set-case-syntax-pair ?$,1'$(B ?$,1'D(B tbl)
    (set-case-syntax-pair ?$,1'%(B ?$,1'E(B tbl)
***************
*** 882,891 ****
         (set-case-syntax-pair
          (decode-char 'ucs (1- c)) (decode-char 'ucs c) tbl))
      (setq c (1+ c)))
    (set-case-syntax-pair ?$,1 R(B ?$,1 S(B tbl)
    (set-case-syntax-pair ?$,1 T(B ?$,1 U(B tbl)
    (set-case-syntax-pair ?$,1 V(B ?$,1 W(B tbl)
! ;;;  (set-case-syntax-pair ?$,1!8(B ?,A(B tbl)   ; these two have 
different length!
    (set-case-syntax-pair ?$,1!9(B ?$,1!:(B tbl)
    (set-case-syntax-pair ?$,1!;(B ?$,1!<(B tbl)
    (set-case-syntax-pair ?$,1!=(B ?$,1!>(B tbl)
--- 884,895 ----
         (set-case-syntax-pair
          (decode-char 'ucs (1- c)) (decode-char 'ucs c) tbl))
      (setq c (1+ c)))
+   (set-downcase-syntax  ?$,1 P(B ?i tbl)
+   (set-upcase-syntax    ?I ?$,1 Q(B tbl)
    (set-case-syntax-pair ?$,1 R(B ?$,1 S(B tbl)
    (set-case-syntax-pair ?$,1 T(B ?$,1 U(B tbl)
    (set-case-syntax-pair ?$,1 V(B ?$,1 W(B tbl)
!   (set-case-syntax-pair ?$,1!8(B ?,A(B tbl)
    (set-case-syntax-pair ?$,1!9(B ?$,1!:(B tbl)
    (set-case-syntax-pair ?$,1!;(B ?$,1!<(B tbl)
    (set-case-syntax-pair ?$,1!=(B ?$,1!>(B tbl)