Copy changes from trunk 2012-04-09T18:12:40Z!schwab@linux-m68k.org to fix letter...

 lisp/international/characters.el: Recover lost case pairs.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 085f8f0bc0da5f3b5d1b2834d69b3dd8acf718f2..3a3a3f51a6f6046220f7426247bbebca32ba11da 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2012-04-10  Andreas Schwab  <schwab@linux-m68k.org>
+
+       * international/characters.el: Recover lost case pairs.
+
 2012-04-10  Glenn Morris  <rgm@gnu.org>
 
        * files.el (dir-locals-set-class-variables): Doc fix.

diff --git a/lisp/international/characters.el b/lisp/international/characters.el
index ff6ac7b108aa475865528c3a3f0b0caca0b152d4..b7cc700cbff87728fdf1aca4bad5f0982ee607ea 100644 (file)
--- a/lisp/international/characters.el
+++ b/lisp/international/characters.el
@@ -591,6 +591,24 @@ with L, LRE, or LRO Unicode bidi character type.")
   ;; (set-downcase-syntax  ?İ ?i tbl)
   ;; (set-upcase-syntax    ?I ?ı tbl)
 
+  (set-case-syntax-pair ?Ɓ ?ɓ tbl)
+  (set-case-syntax-pair ?Ɔ ?ɔ tbl)
+  (set-case-syntax-pair ?Ǝ ?ǝ tbl)
+  (set-case-syntax-pair ?Ə ?ə tbl)
+  (set-case-syntax-pair ?Ɛ ?ɛ tbl)
+  (set-case-syntax-pair ?Ɠ ?ɠ tbl)
+  (set-case-syntax-pair ?Ɣ ?ɣ tbl)
+  (set-case-syntax-pair ?Ɩ ?ɩ tbl)
+  (set-case-syntax-pair ?Ɨ ?ɨ tbl)
+  (set-case-syntax-pair ?Ɯ ?ɯ tbl)
+  (set-case-syntax-pair ?Ɲ ?ɲ tbl)
+  (set-case-syntax-pair ?Ɵ ?ɵ tbl)
+  (set-case-syntax-pair ?Ʀ ?ʀ tbl)
+  (set-case-syntax-pair ?Ʃ ?ʃ tbl)
+  (set-case-syntax-pair ?Ʈ ?ʈ tbl)
+  (set-case-syntax-pair ?Ʊ ?ʊ tbl)
+  (set-case-syntax-pair ?Ʋ ?ʋ tbl)
+  (set-case-syntax-pair ?Ʒ ?ʒ tbl)
   (set-case-syntax-pair ?DŽ ?dž tbl)
   (set-case-syntax-pair ?Dž ?dž tbl)
   (set-case-syntax-pair ?LJ ?lj tbl)