diff options
author | Kenichi Handa <[email protected]> | 2005-02-02 01:00:44 +0000 |
---|---|---|
committer | Kenichi Handa <[email protected]> | 2005-02-02 01:00:44 +0000 |
commit | e0a65b4df5d82e2b6c57eca640cc1274c1c59d24 (patch) | |
tree | e5fb5de4c183676dd5c0a42bd06a37f49713264f | |
parent | cc4ff429a07a84a041f7d399c42fbe3510f0112f (diff) |
Setup cases of GREEK-FINAL-SIGMA,
Y-WITH-DIAERESIS, I-WITH-DOT-ABOVE, DOTLESS-i.
-rw-r--r-- | lisp/international/characters.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/international/characters.el b/lisp/international/characters.el index c33bd2eb43..77eb49807c 100644 --- a/lisp/international/characters.el +++ b/lisp/international/characters.el @@ -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) |