Mercurial > hg > xemacs-beta
changeset 4896:a7ab1d6ff301
fix reversed old-Cyrillic case mappings
-------------------- ChangeLog entries follow: --------------------
lisp/ChangeLog addition:
2010-01-29 Ben Wing <ben@xemacs.org>
* mule/cyrillic.el (for):
| author | Ben Wing <ben@xemacs.org> |
|---|---|
| date | Fri, 29 Jan 2010 20:49:50 -0600 |
| parents | 99f2102552d7 |
| children | 91a023144e72 |
| files | lisp/ChangeLog lisp/mule/cyrillic.el |
| diffstat | 2 files changed, 25 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- 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@xemacs.org> + + * mule/cyrillic.el (for): + +2010-01-29 Ben Wing <ben@xemacs.org> + + * mule/cyrillic.el (for): + +2010-01-29 Ben Wing <ben@xemacs.org> + + * mule/cyrillic.el (for): + Upper and lowercase mappings were reversed for some old-Cyrillic + chars. + 2010-01-26 Aidan Kehoe <kehoea@parhasard.net> * mule/vietnamese.el (viscii): Correct the mapping here, #xA6 is
--- 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))