Mercurial > emacs
changeset 59857:0d95042c8121
Setup cases of GREEK-FINAL-SIGMA,
Y-WITH-DIAERESIS, I-WITH-DOT-ABOVE, DOTLESS-i.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Wed, 02 Feb 2005 01:00:44 +0000 |
| parents | 4832f1833501 |
| children | 6a1c78a4075f |
| files | lisp/international/characters.el |
| diffstat | 1 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/characters.el Wed Feb 02 00:57:33 2005 +0000 +++ b/lisp/international/characters.el Wed Feb 02 01:00:44 2005 +0000 @@ -447,6 +447,7 @@ (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,6 +482,7 @@ (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,10 +884,12 @@ (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) ; these two have different length! + (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)