Mercurial > hg > xemacs-beta

comparison lisp/mule/cyrillic.el @ 4962:e813cf16c015

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge
author Ben Wing <ben@xemacs.org>
date Mon, 01 Feb 2010 05:29:05 -0600
parents db2db229ee82 a7ab1d6ff301
children 308d34e9f07d
comparison
equal deleted inserted replaced
4961:b90f8cf474e0 4962:e813cf16c015
1302 "Note that this does not support old Russian orthography; 1302 "Note that this does not support old Russian orthography;
1303 for that, see koi8-o. ")) 1303 for that, see koi8-o. "))
1304 1304
1305 (loop 1305 (loop
1306 for (upper lower) 1306 for (upper lower)
1307 in '((?\u04E9 ?\u04E8) ;; BARRED O 1307 in '((?\u04E8 ?\u04E9) ;; BARRED O
1308 (?\u04B9 ?\u04B8) ;; CHE WITH VERTICAL STROKE 1308 (?\u04B8 ?\u04B9) ;; CHE WITH VERTICAL STROKE
1309 (?\u0452 ?\u0402) ;; DJE 1309 (?\u0402 ?\u0452) ;; DJE
1310 (?\u0455 ?\u0405) ;; DZE 1310 (?\u0405 ?\u0455) ;; DZE
1311 (?\u04A3 ?\u04A2) ;; EN WITH DESCENDER 1311 (?\u04A2 ?\u04A3) ;; EN WITH DESCENDER
1312 (?\u049D ?\u049C) ;; KA WITH VERTICAL STROKE 1312 (?\u049C ?\u049D) ;; KA WITH VERTICAL STROKE
1313 (?\u04BB ?\u04BA) ;; SHHA 1313 (?\u04BA ?\u04BB) ;; SHHA
1314 (?\u04D9 ?\u04D8) ;; SCHWA 1314 (?\u04D8 ?\u04D9) ;; SCHWA
1315 (?\u04AF ?\u04AE) ;; STRAIGHT U 1315 (?\u04AE ?\u04AF) ;; STRAIGHT U
1316 (?\u04B1 ?\u04B0) ;; STRAIGHT U WITH STROKE 1316 (?\u04B0 ?\u04B1) ;; STRAIGHT U WITH STROKE
1317 (?\u0497 ?\u0496)) ;; ZHE WITH DESCENDER 1317 (?\u0496 ?\u0497)) ;; ZHE WITH DESCENDER
1318 with case-table = (standard-case-table) 1318 with case-table = (standard-case-table)
1319 do 1319 do
1320 (put-case-table-pair upper lower case-table)) 1320 (put-case-table-pair upper lower case-table))
1321 1321
1322 ;; Archaic Russian support. 1322 ;; Archaic Russian support.