carbon2-commit: fix reversed old-Cyrillic case mappings

[Ben Wing]

changeset:   4944:a7ab1d6ff301
parent:      4939:99f2102552d7
user:        Ben Wing <ben at xemacs.org>
date:        Fri Jan 29 20:49:50 2010 -0600
files:       lisp/ChangeLog lisp/mule/cyrillic.el
description:
fix reversed old-Cyrillic case mappings

-------------------- ChangeLog entries follow: --------------------

lisp/ChangeLog addition:

2010-01-29  Ben Wing  <ben at xemacs.org>

	* mule/cyrillic.el (for):


diff -r 99f2102552d7 -r a7ab1d6ff301 lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Jan 28 04:02:14 2010 -0600
+++ b/lisp/ChangeLog	Fri Jan 29 20:49:50 2010 -0600
@@ -1,3 +1,17 @@
+2010-01-29  Ben Wing  <ben at xemacs.org>
+
+	* mule/cyrillic.el (for):
+
+2010-01-29  Ben Wing  <ben at xemacs.org>
+
+	* mule/cyrillic.el (for):
+
+2010-01-29  Ben Wing  <ben at xemacs.org>
+
+	* mule/cyrillic.el (for):
+	Upper and lowercase mappings were reversed for some old-Cyrillic
+	chars.
+
 2010-01-26  Aidan Kehoe  <kehoea at parhasard.net>
 
 	* mule/vietnamese.el (viscii): Correct the mapping here, #xA6 is
diff -r 99f2102552d7 -r a7ab1d6ff301 lisp/mule/cyrillic.el
--- a/lisp/mule/cyrillic.el	Thu Jan 28 04:02:14 2010 -0600
+++ b/lisp/mule/cyrillic.el	Fri Jan 29 20:49:50 2010 -0600
@@ -1304,17 +1304,17 @@
 
 (loop
   for (upper lower)
-  in '((?\u04E9 ?\u04E8) ;; BARRED O
-       (?\u04B9 ?\u04B8) ;; CHE WITH VERTICAL STROKE
-       (?\u0452 ?\u0402) ;; DJE
-       (?\u0455 ?\u0405) ;; DZE
-       (?\u04A3 ?\u04A2) ;; EN WITH DESCENDER
-       (?\u049D ?\u049C) ;; KA WITH VERTICAL STROKE
-       (?\u04BB ?\u04BA) ;; SHHA
-       (?\u04D9 ?\u04D8) ;; SCHWA
-       (?\u04AF ?\u04AE) ;; STRAIGHT U
-       (?\u04B1 ?\u04B0) ;; STRAIGHT U WITH STROKE
-       (?\u0497 ?\u0496)) ;; ZHE WITH DESCENDER
+  in '((?\u04E8 ?\u04E9) ;; BARRED O
+       (?\u04B8 ?\u04B9) ;; CHE WITH VERTICAL STROKE
+       (?\u0402 ?\u0452) ;; DJE
+       (?\u0405 ?\u0455) ;; DZE
+       (?\u04A2 ?\u04A3) ;; EN WITH DESCENDER
+       (?\u049C ?\u049D) ;; KA WITH VERTICAL STROKE
+       (?\u04BA ?\u04BB) ;; SHHA
+       (?\u04D8 ?\u04D9) ;; SCHWA
+       (?\u04AE ?\u04AF) ;; STRAIGHT U
+       (?\u04B0 ?\u04B1) ;; STRAIGHT U WITH STROKE
+       (?\u0496 ?\u0497)) ;; ZHE WITH DESCENDER
   with case-table = (standard-case-table)
   do
   (put-case-table-pair upper lower case-table))