Mercurial > hg > xemacs-beta

comparison lisp/mule/cyrillic-hooks.el @ 110:fe104dbd9147 r20-1b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b7
author cvs
date Mon, 13 Aug 2007 09:19:45 +0200
parents 54cc21c15cbb
children 6608ceec7cf8
comparison
equal deleted inserted replaced
109:e183fc049578 110:fe104dbd9147
55 (define-language-environment 'cyrillic 55 (define-language-environment 'cyrillic
56 "Cyrillic" 56 "Cyrillic"
57 (lambda () 57 (lambda ()
58 (set-coding-category-system 'iso-8-designate 'iso-8859-5) 58 (set-coding-category-system 'iso-8-designate 'iso-8859-5)
59 (set-coding-priority-list '(iso-8-designate iso-8-1)) 59 (set-coding-priority-list '(iso-8-designate iso-8-1))
60 (set-default-file-coding-system 'iso-8859-5) 60 (set-default-buffer-file-coding-system 'iso-8859-5)
61 (setq terminal-coding-system 'iso-8859-5) 61 (setq terminal-coding-system 'iso-8859-5)
62 (setq keyboard-coding-system 'iso-8859-5) 62 (setq keyboard-coding-system 'iso-8859-5)
63 ;; (setq-default quail-current-package 63 ;; (setq-default quail-current-package
64 ;; (assoc "yawerty" quail-package-alist)))) 64 ;; (assoc "yawerty" quail-package-alist))))
65 )) 65 ))