From e0a65b4df5d82e2b6c57eca640cc1274c1c59d24 Mon Sep 17 00:00:00 2001
From: Kenichi Handa <handa@m17n.org>
Date: Wed, 2 Feb 2005 01:00:44 +0000
Subject: [PATCH] Setup cases of GREEK-FINAL-SIGMA, Y-WITH-DIAERESIS,
 I-WITH-DOT-ABOVE, DOTLESS-i.

---
 lisp/international/characters.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/lisp/international/characters.el b/lisp/international/characters.el
index c33bd2eb43f..77eb49807c0 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)
-- 
2.11.4.GIT