Репозиторий ALT Linux backports/2.4
Последнее обновление: 9 июля 2008 | Пакетов: 497 | Посещений: 1585074
 поиск   регистрация   авторизация 
 
Группа :: Редакторы
Пакет: 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]"
 
design & coding: Vladimir Lettiev aka crux © 2004-2005