Mercurial > hg > xemacs-beta

comparison lisp/mule/european-hooks.el @ 86:364816949b59 r20-0b93

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b93
author cvs
date Mon, 13 Aug 2007 09:09:02 +0200
parents 54cc21c15cbb
children 1040fe1366ac
comparison
equal deleted inserted replaced
85:c661705957e0 86:364816949b59
89 ;(add-hook 'quail-package-alist '("latin-5" "quail/latin")) 89 ;(add-hook 'quail-package-alist '("latin-5" "quail/latin"))
90 90
91 (define-language-environment 'european 91 (define-language-environment 'european
92 "European (for Latin-1 through Latin-5)" 92 "European (for Latin-1 through Latin-5)"
93 (lambda () 93 (lambda ()
94 ;(set-coding-category-system 'iso-8-designate 'iso-8859-1) 94 (set-coding-category-system 'iso-8-designate 'iso-8859-1)
95 ;(set-coding-priority-list '(iso-8-designate iso-8-1)) 95 (set-coding-priority-list '(iso-8-designate iso-8-1))
96 (set-default-file-coding-system 'binary) ; iso-8859-1 96 (set-default-file-coding-system 'binary) ; iso-8859-1
97 ;;(setq locale-coding-system 'binary) ; iso-8859-1 97 ;;(setq locale-coding-system 'binary) ; iso-8859-1
98 (setq process-input-coding-system 'binary) ; iso-8859-1 98 (setq process-input-coding-system 'binary) ; iso-8859-1
99 (setq process-output-coding-system 'binary) ; iso-8859-1 99 (setq process-output-coding-system 'binary) ; iso-8859-1
100 (set-default-file-coding-system 'binary) ; iso-8859-1 100 (set-default-file-coding-system 'binary) ; iso-8859-1