Mercurial > hg > xemacs-beta

comparison lisp/mule/european-hooks.el @ 120:cca96a509cfe r20-1b12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b12
author cvs
date Mon, 13 Aug 2007 09:25:29 +0200
parents fe104dbd9147
children 6608ceec7cf8
comparison
equal deleted inserted replaced
119:d101af7320b8 120:cca96a509cfe
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-buffer-file-coding-system 'no-conversion) ; iso-8859-1
97 ;;(setq locale-coding-system 'no-conversion) ; iso-8859-1 96 ;;(setq locale-coding-system 'no-conversion) ; iso-8859-1
98 (setq process-input-coding-system 'no-conversion) ; iso-8859-1
99 (setq process-output-coding-system 'no-conversion) ; iso-8859-1
100 (set-default-buffer-file-coding-system 'no-conversion) ; iso-8859-1 97 (set-default-buffer-file-coding-system 'no-conversion) ; iso-8859-1
101 (set-buffer-file-coding-system-for-read 'no-conversion) ; iso-8859-1 98 (set-buffer-file-coding-system-for-read 'no-conversion) ; iso-8859-1
102 ;;(setq display-coding-system 'iso-8859-1) 99 ;;(setq display-coding-system 'iso-8859-1)
103 ;;(setq keyboard-coding-system 'iso-8859-1) 100 ;;(setq keyboard-coding-system 'iso-8859-1)
104 ;;(setq-default quail-current-package 101 ;;(setq-default quail-current-package