Mercurial > hg > xemacs-beta

comparison lisp/mule/european-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 1040fe1366ac
children cca96a509cfe
comparison
equal deleted inserted replaced
109:e183fc049578 110:fe104dbd9147
80 charset-g2 t 80 charset-g2 t
81 charset-g3 t 81 charset-g3 t
82 mnemonic "MIME/Ltn-5" 82 mnemonic "MIME/Ltn-5"
83 )) 83 ))
84 84
85 ;(add-hook 'quail-package-alist '("latin-1" "quail/latin")) 85 ;;(add-hook 'quail-package-alist '("latin-1" "quail/latin"))
86 ;(add-hook 'quail-package-alist '("latin-2" "quail/latin")) 86 ;;(add-hook 'quail-package-alist '("latin-2" "quail/latin"))
87 ;(add-hook 'quail-package-alist '("latin-3" "quail/latin")) 87 ;;(add-hook 'quail-package-alist '("latin-3" "quail/latin"))
88 ;(add-hook 'quail-package-alist '("latin-4" "quail/latin")) 88 ;;(add-hook 'quail-package-alist '("latin-4" "quail/latin"))
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-buffer-file-coding-system 'no-conversion) ; iso-8859-1
97 ;;(setq locale-coding-system 'binary) ; iso-8859-1 97 ;;(setq locale-coding-system 'no-conversion) ; iso-8859-1
98 (setq process-input-coding-system 'binary) ; iso-8859-1 98 (setq process-input-coding-system 'no-conversion) ; iso-8859-1
99 (setq process-output-coding-system 'binary) ; iso-8859-1 99 (setq process-output-coding-system 'no-conversion) ; iso-8859-1
100 (set-default-file-coding-system 'binary) ; iso-8859-1 100 (set-default-buffer-file-coding-system 'no-conversion) ; iso-8859-1
101 (set-file-coding-system-for-read 'binary) ; iso-8859-1 101 (set-buffer-file-coding-system-for-read 'no-conversion) ; iso-8859-1
102 ;(setq display-coding-system 'iso-8859-1) 102 ;;(setq display-coding-system 'iso-8859-1)
103 ;(setq keyboard-coding-system 'iso-8859-1) 103 ;;(setq keyboard-coding-system 'iso-8859-1)
104 ;(setq-default quail-current-package 104 ;;(setq-default quail-current-package
105 ; (assoc "latin-1" quail-package-alist)))) 105 ;; (assoc "latin-1" quail-package-alist))))
106 )) 106 ))