Группа :: Редакторы
Пакет: emacs22
Главная Изменения Спек Патчи Загрузить Bugs and FR
Патч: emacs-22.0.50-alt0.9-uk.patch
diff -Naur emacs.orig/lisp/gnus/mm-util.el emacs.build/lisp/gnus/mm-util.el
--- emacs.orig/lisp/gnus/mm-util.el 2006-02-23 13:36:56 +0500
+++ emacs.build/lisp/gnus/mm-util.el 2006-02-23 13:38:47 +0500
@@ -252,6 +252,7 @@
;; The fake mule-charset, gnus-koi8-r, tells Gnus that the default
;; charset is koi8-r, not iso-8859-5.
(koi8-r cyrillic-iso8859-5 gnus-koi8-r)
+ (koi8-u cyrillic-iso8859-5)
(iso-8859-6 arabic-iso8859-6)
(iso-8859-7 greek-iso8859-7)
(iso-8859-8 hebrew-iso8859-8)
diff -Naur emacs.orig/lisp/gnus/rfc2047.el emacs.build/lisp/gnus/rfc2047.el
--- emacs.orig/lisp/gnus/rfc2047.el 2006-02-23 13:36:56 +0500
+++ emacs.build/lisp/gnus/rfc2047.el 2006-02-23 13:39:36 +0500
@@ -99,6 +99,7 @@
(iso-8859-4 . Q)
(iso-8859-5 . B)
(koi8-r . B)
+ (koi8-u . B)
(iso-8859-7 . B)
(iso-8859-8 . B)
(iso-8859-9 . Q)
diff -Naur emacs.orig/lisp/international/codepage.el emacs.build/lisp/international/codepage.el
--- emacs.orig/lisp/international/codepage.el 2006-02-23 13:36:59 +0500
+++ emacs.build/lisp/international/codepage.el 2006-02-23 13:40:58 +0500
@@ -395,6 +395,20 @@
(setplist 'cp866-decode-table
'(charset cyrillic-iso8859-5 language "Cyrillic-ISO" offset 160))
+;; Ukrainian (Yes, another one! This one's supposed to be used
+;; on Windows as the Ukrainian OEM code page.)
+(defvar cp1125-decode-table
+ [
+ 255 240 nil 242 244 nil 246 248 nil nil nil nil nil nil nil nil
+ 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143
+ 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159
+ 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175
+ 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239
+ 252 241 nil 243 245 nil 247 249 nil nil nil nil nil nil nil nil]
+ "Table for converting ISO-8859-5 characters into codepage 1125 glyphs.")
+(setplist 'cp1125-decode-table
+ '(charset cyrillic-iso8859-5 language "Cyrillic-ISO" offset 160))
+
;; Greek (yes, another one!)
(defvar cp869-decode-table
[
diff -Naur emacs.orig/lisp/international/mule-diag.el emacs.build/lisp/international/mule-diag.el
--- emacs.orig/lisp/international/mule-diag.el 2006-02-23 13:36:59 +0500
+++ emacs.build/lisp/international/mule-diag.el 2006-02-23 13:42:14 +0500
@@ -82,6 +82,10 @@
(ascii cyrillic-iso8859-5)
cyrillic-koi8-r-nonascii-translation-table
((32 255)))
+ (koi8-u
+ (ascii cyrillic-iso8859-5)
+ cyrillic-koi8-u-nonascii-translation-table
+ ((32 255)))
(alternativnyj
(ascii cyrillic-iso8859-5)
cyrillic-alternativnyj-nonascii-translation-table
diff -Naur emacs.orig/lisp/language/cyril-util.el emacs.build/lisp/language/cyril-util.el
--- emacs.orig/lisp/language/cyril-util.el 2006-02-23 13:36:59 +0500
+++ emacs.build/lisp/language/cyril-util.el 2006-02-23 13:43:28 +0500
@@ -28,6 +28,14 @@
;; Fixme: are the next two useful?
;;;###autoload
+(defun cyrillic-encode-koi8-u-char (char)
+ "Return KOI8-U external character code of CHAR if appropriate."
+ (aref (char-table-extra-slot
+ (get 'cyrillic-koi8-u-nonascii-translation-table 'translation-table)
+ 0)
+ char))
+
+;;;###autoload
(defun cyrillic-encode-koi8-r-char (char)
"Return KOI8-R external character code of CHAR if appropriate."
(aref (char-table-extra-slot
diff -Naur emacs.orig/lisp/textmodes/ispell.el emacs.build/lisp/textmodes/ispell.el
--- emacs.orig/lisp/textmodes/ispell.el 2006-02-23 13:37:01 +0500
+++ emacs.build/lisp/textmodes/ispell.el 2006-02-23 13:50:25 +0500
@@ -641,6 +641,10 @@
"[\300\301\302\303\304\305\250\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324\325\326\327\330\331\334\333\332\335\336\337\340\341\342\343\344\345\270\346\347\350\351\352\353\354\355\356\357\360\361\362\363\364\365\366\367\370\371\374\373\372\375\376\377]"
"[^\300\301\302\303\304\305\250\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324\325\326\327\330\331\334\333\332\335\336\337\340\341\342\343\344\345\270\346\347\350\351\352\353\354\355\356\357\360\361\362\363\364\365\366\367\370\371\374\373\372\375\376\377]"
"" nil nil nil windows-1251)
+ ("ukrainian"
+ "[\341\342\367\347\275\344\345\264\366\372\351\266\267\352\353\354\355\356\357\360\362\363\364\365\346\350\343\376\373\375\340\361\370\301\302\327\307\255\304\305\244\326\332\311\246\247\312\313\314\315\316\317\320\322\323\324\325\306\310\303\336\333\335\300\321\330]"
+ "[^\341\342\367\347\275\344\345\264\366\372\351\266\267\352\353\354\355\356\357\360\362\363\364\365\346\350\343\376\373\375\340\361\370\301\302\327\307\255\304\305\244\326\332\311\246\247\312\313\314\315\316\317\320\322\323\324\325\306\310\303\336\333\335\300\321\330]"
+ "[\']" nil ("-C" "-d" "ukrainian") nil koi8-u)
("slovak" ; Slovakian
"[A-Za-z\301\304\311\315\323\332\324\300\305\245\335\256\251\310\317\253\322\341\344\351\355\363\372\364\340\345\265\375\276\271\350\357\273\362]"
"[^A-Za-z\301\304\311\315\323\332\324\300\305\245\335\256\251\310\317\253\322\341\344\351\355\363\372\364\340\345\265\375\276\271\350\357\273\362]"