From: Andreas Schwab <schwab@linux-m68k.org>
Date: Mon, 9 Apr 2012 18:12:40 +0000 (+0200)
Subject: Fixes: debbugs:11209
X-Git-Tag: emacs-24.2.90~471^2~367^2
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=58d1f79757a8a6569dea07905b6c9e5055d8aeba;p=emacs.git

Fixes: debbugs:11209

* international/characters.el: Recover lost case pairs.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8c3093aa2c2..954daf68510 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-04-09  Andreas Schwab  <schwab@linux-m68k.org>
+
+	* international/characters.el: Recover lost case pairs.
+	(Bug#11209)
+
 2012-04-09  Chong Yidong  <cyd@gnu.org>
 
 	* custom.el (custom-variable-p): Return nil for non-symbol
diff --git a/lisp/international/characters.el b/lisp/international/characters.el
index ba8b8955fba..99985fa72c7 100644
--- a/lisp/international/characters.el
+++ b/lisp/international/characters.el
@@ -560,6 +560,7 @@ with L, LRE, or LRO Unicode bidi character type.")
 		       (#x01AC . #x01AD)
 		       (#x01AF . #x01B0)
 		       (#x01B3 . #x01B6)
+		       (#x01B8 . #x01B9)
 		       (#x01BC . #x01BD)
 		       (#x01CD . #x01DC)
 		       (#x01DE . #x01EF)
@@ -575,6 +576,7 @@ with L, LRE, or LRO Unicode bidi character type.")
 	  (set-case-syntax-pair from (1+ from) tbl)
 	  (setq from (+ from 2))))))
 
+  (set-case-syntax-pair ?Ÿ ?ÿ tbl)
   (set-case-syntax-pair #x189 #x256 tbl)
   (set-case-syntax-pair #x18A #x257 tbl)
 
@@ -590,6 +592,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)