Setup cases of GREEK-FINAL-SIGMA,

Y-WITH-DIAERESIS, I-WITH-DOT-ABOVE, DOTLESS-i.

diff --git a/lisp/international/characters.el b/lisp/international/characters.el
index c33bd2eb43fb6bca3d8ad5aba4dc9e3e29e828b2..77eb49807c01ed659a1c74a42ed698b4fde5e0dd 100644 (file)
--- a/lisp/international/characters.el
+++ b/lisp/international/characters.el
@@ -447,6 +447,7 @@
   (set-case-syntax-pair ?\e,FO\e(B ?\e,Fo\e(B tbl)
   (set-case-syntax-pair ?\e,FP\e(B ?\e,Fp\e(B tbl)
   (set-case-syntax-pair ?\e,FQ\e(B ?\e,Fq\e(B tbl)
+  (set-upcase-syntax    ?\e,FS\e(B ?\e,Fr\e(B tbl)
   (set-case-syntax-pair ?\e,FS\e(B ?\e,Fs\e(B tbl)
   (set-case-syntax-pair ?\e,FT\e(B ?\e,Ft\e(B tbl)
   (set-case-syntax-pair ?\e,FU\e(B ?\e,Fu\e(B tbl)
@@ -481,6 +482,7 @@
   (set-case-syntax-pair ?\e$,1&\7f\e(B ?\e$,1'?\e(B tbl)
   (set-case-syntax-pair ?\e$,1' \e(B ?\e$,1'@\e(B tbl)
   (set-case-syntax-pair ?\e$,1'!\e(B ?\e$,1'A\e(B tbl)
+  (set-upcase-syntax    ?\e$,1'#\e(B ?\e$,1'B\e(B tbl)
   (set-case-syntax-pair ?\e$,1'#\e(B ?\e$,1'C\e(B tbl)
   (set-case-syntax-pair ?\e$,1'$\e(B ?\e$,1'D\e(B tbl)
   (set-case-syntax-pair ?\e$,1'%\e(B ?\e$,1'E\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  ?\e$,1 P\e(B ?i tbl)
+  (set-upcase-syntax    ?I ?\e$,1 Q\e(B tbl)
   (set-case-syntax-pair ?\e$,1 R\e(B ?\e$,1 S\e(B tbl)
   (set-case-syntax-pair ?\e$,1 T\e(B ?\e$,1 U\e(B tbl)
   (set-case-syntax-pair ?\e$,1 V\e(B ?\e$,1 W\e(B tbl)
-;;;  (set-case-syntax-pair ?\e$,1!8\e(B ?\e,A\7f\e(B tbl)    ; these two have different length!
+  (set-case-syntax-pair ?\e$,1!8\e(B ?\e,A\7f\e(B tbl)
   (set-case-syntax-pair ?\e$,1!9\e(B ?\e$,1!:\e(B tbl)
   (set-case-syntax-pair ?\e$,1!;\e(B ?\e$,1!<\e(B tbl)
   (set-case-syntax-pair ?\e$,1!=\e(B ?\e$,1!>\e(B tbl)