--- a/lisp/mule/cyrillic-hooks.el	Mon Aug 13 09:03:47 2007 +0200
+++ b/lisp/mule/cyrillic-hooks.el	Mon Aug 13 09:04:33 2007 +0200
@@ -24,11 +24,7 @@
 ;;; Synched up with: Mule 2.3.
 
 ;; For syntax of Cyrillic
-(let ((c 33))
-  (while (< c 128)
-    (modify-syntax-entry (make-char 'cyrillic c) "w")
-    (setq c (1+ c))))
-(modify-syntax-entry (make-char 'cyrillic 32) "w") ; no-break space
+(modify-syntax-entry 'cyrillic-iso8859-5 "w")
 (modify-syntax-entry ?,L-(B ".")
 (modify-syntax-entry ?,Lp(B ".")
 (modify-syntax-entry ?,L}(B ".")
@@ -43,18 +39,18 @@
  'iso-8859-5 'iso2022
  "MIME ISO-8859-5"
  '(charset-g0 ascii
-   charset-g1 cyrillic
+   charset-g1 cyrillic-iso8859-5
    charset-g2 t
    charset-g3 t
    mnemonic "ISO8/Cyr"
    ))
 
-(add-hook 'quail-package-alist '("jcuken" "quail/cyrillic"))
-(add-hook 'quail-package-alist '("macedonian" "quail/cyrillic"))
-(add-hook 'quail-package-alist '("serbian" "quail/cyrillic"))
-(add-hook 'quail-package-alist '("beylorussian" "quail/cyrillic"))
-(add-hook 'quail-package-alist '("ukrainian" "quail/cyrillic"))
-(add-hook 'quail-package-alist '("yawerty" "quail/cyrillic"))
+;;(add-hook 'quail-package-alist '("jcuken" "quail/cyrillic"))
+;;(add-hook 'quail-package-alist '("macedonian" "quail/cyrillic"))
+;;(add-hook 'quail-package-alist '("serbian" "quail/cyrillic"))
+;;(add-hook 'quail-package-alist '("beylorussian" "quail/cyrillic"))
+;;(add-hook 'quail-package-alist '("ukrainian" "quail/cyrillic"))
+;;(add-hook 'quail-package-alist '("yawerty" "quail/cyrillic"))
 
 (define-language-environment 'cyrillic
   "Cyrillic"
@@ -64,5 +60,6 @@
     (set-default-file-coding-system 'iso-8859-5)
     (setq terminal-coding-system 'iso-8859-5)
     (setq keyboard-coding-system 'iso-8859-5)
-    (setq-default quail-current-package
-		  (assoc "yawerty" quail-package-alist))))
+;;    (setq-default quail-current-package
+;;		  (assoc "yawerty" quail-package-alist))))
+    ))