Mercurial > hg > xemacs-beta

comparison lisp/mule/european-hooks.el @ 94:1040fe1366ac xemacs-20-0f2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag xemacs-20-0f2
author cvs
date Mon, 13 Aug 2007 09:12:09 +0200
parents 364816949b59
children fe104dbd9147
comparison
equal deleted inserted replaced
93:486ff617c2a1 94:1040fe1366ac
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