Mercurial > hg > xemacs-beta
diff lisp/mule/cyrillic-hooks.el @ 138:6608ceec7cf8 r20-2b3
Import from CVS: tag r20-2b3
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:31:46 +0200 |
| parents | fe104dbd9147 |
| children | 3bb7ccffb0c0 |
line wrap: on
line diff
--- a/lisp/mule/cyrillic-hooks.el Mon Aug 13 09:31:13 2007 +0200 +++ b/lisp/mule/cyrillic-hooks.el Mon Aug 13 09:31:46 2007 +0200 @@ -25,9 +25,9 @@ ;; For syntax of Cyrillic (modify-syntax-entry 'cyrillic-iso8859-5 "w") -(modify-syntax-entry ?,L-(B ".") -(modify-syntax-entry ?,Lp(B ".") -(modify-syntax-entry ?,L}(B ".") +(modify-syntax-entry ?-L ".")-A +(modify-syntax-entry ?-Lð ".")-A +(modify-syntax-entry ?-Lý ".")-A @@ -45,12 +45,12 @@ 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" @@ -60,6 +60,6 @@ (set-default-buffer-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)) ))