Mercurial > emacs

comparison lisp/language/european.el @ 20159:dce0d588d203

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Give proper SAFE-CHARSET argument in each call of make-coding-system.
author Kenichi Handa <handa@m17n.org>
date Thu, 23 Oct 1997 12:03:41 +0000
parents 8cde4cefae44
children 5031189adff2
comparison
equal deleted inserted replaced
20158:36eb3e583396 20159:dce0d588d203
65 65
66 (make-coding-system 66 (make-coding-system
67 'iso-latin-1 2 ?1 67 'iso-latin-1 2 ?1
68 "ISO 2022 based 8-bit encoding (MIME:ISO-8859-1, Compound Text Encoding)" 68 "ISO 2022 based 8-bit encoding (MIME:ISO-8859-1, Compound Text Encoding)"
69 '((ascii t) (latin-iso8859-1 t) nil nil 69 '((ascii t) (latin-iso8859-1 t) nil nil
70 nil ascii-eol ascii-cntl nil nil nil nil nil nil nil nil nil t)) 70 nil ascii-eol ascii-cntl nil nil nil nil nil nil nil nil nil t)
71 '(ascii latin-iso8859-1))
71 72
72 (define-coding-system-alias 'iso-8859-1 'iso-latin-1) 73 (define-coding-system-alias 'iso-8859-1 'iso-latin-1)
73 (define-coding-system-alias 'latin-1 'iso-latin-1) 74 (define-coding-system-alias 'latin-1 'iso-latin-1)
74 (define-coding-system-alias 'ctext 'iso-latin-1) 75 (define-coding-system-alias 'ctext 'iso-latin-1)
75 76
97 98
98 (make-coding-system 99 (make-coding-system
99 'iso-latin-2 2 ?2 100 'iso-latin-2 2 ?2
100 "ISO 2022 based 8-bit encoding (MIME:ISO-8859-2)" 101 "ISO 2022 based 8-bit encoding (MIME:ISO-8859-2)"
101 '((ascii t) (latin-iso8859-2 t) nil nil 102 '((ascii t) (latin-iso8859-2 t) nil nil
102 nil ascii-eol ascii-cntl nil nil nil nil)) 103 nil ascii-eol ascii-cntl nil nil nil nil)
104 '(ascii latin-iso8859-2))
103 105
104 (define-coding-system-alias 'iso-8859-2 'iso-latin-2) 106 (define-coding-system-alias 'iso-8859-2 'iso-latin-2)
105 (define-coding-system-alias 'latin-2 'iso-latin-2) 107 (define-coding-system-alias 'latin-2 'iso-latin-2)
106 108
107 (defun setup-latin2-environment () 109 (defun setup-latin2-environment ()
126 128
127 (make-coding-system 129 (make-coding-system
128 'iso-latin-3 2 ?3 130 'iso-latin-3 2 ?3
129 "ISO 2022 based 8-bit encoding (MIME:ISO-8859-3)" 131 "ISO 2022 based 8-bit encoding (MIME:ISO-8859-3)"
130 '((ascii t) (latin-iso8859-3 t) nil nil 132 '((ascii t) (latin-iso8859-3 t) nil nil
131 nil ascii-eol ascii-cntl nil nil nil nil)) 133 nil ascii-eol ascii-cntl nil nil nil nil)
134 '(ascii latin-iso8859-3))
132 135
133 (define-coding-system-alias 'iso-8859-3 'iso-latin-3) 136 (define-coding-system-alias 'iso-8859-3 'iso-latin-3)
134 (define-coding-system-alias 'latin-3 'iso-latin-3) 137 (define-coding-system-alias 'latin-3 'iso-latin-3)
135 138
136 (defun setup-latin3-environment () 139 (defun setup-latin3-environment ()
155 158
156 (make-coding-system 159 (make-coding-system
157 'iso-latin-4 2 ?4 160 'iso-latin-4 2 ?4
158 "ISO 2022 based 8-bit encoding (MIME:ISO-8859-4)" 161 "ISO 2022 based 8-bit encoding (MIME:ISO-8859-4)"
159 '((ascii t) (latin-iso8859-4 t) nil nil 162 '((ascii t) (latin-iso8859-4 t) nil nil
160 nil ascii-eol ascii-cntl nil nil nil nil)) 163 nil ascii-eol ascii-cntl nil nil nil nil)
164 '(ascii latin-iso8859-4))
161 165
162 (define-coding-system-alias 'iso-8859-4 'iso-latin-4) 166 (define-coding-system-alias 'iso-8859-4 'iso-latin-4)
163 (define-coding-system-alias 'latin-4 'iso-latin-4) 167 (define-coding-system-alias 'latin-4 'iso-latin-4)
164 168
165 (defun setup-latin4-environment () 169 (defun setup-latin4-environment ()
184 188
185 (make-coding-system 189 (make-coding-system
186 'iso-latin-5 2 ?9 190 'iso-latin-5 2 ?9
187 "ISO 2022 based 8-bit encoding (MIME:ISO-8859-9)" 191 "ISO 2022 based 8-bit encoding (MIME:ISO-8859-9)"
188 '((ascii t) (latin-iso8859-9 t) nil nil 192 '((ascii t) (latin-iso8859-9 t) nil nil
189 nil ascii-eol ascii-cntl nil nil nil nil)) 193 nil ascii-eol ascii-cntl nil nil nil nil)
194 '(ascii latin-iso8859-9))
190 195
191 (define-coding-system-alias 'iso-8859-9 'iso-latin-5) 196 (define-coding-system-alias 'iso-8859-9 'iso-latin-5)
192 (define-coding-system-alias 'latin-5 'iso-latin-5) 197 (define-coding-system-alias 'latin-5 'iso-latin-5)
193 198
194 (defun setup-latin5-environment () 199 (defun setup-latin5-environment ()