Mercurial > emacs
comparison lisp/language/european.el @ 18622:fe2070df967e
(latin-1, latin-2. latin-3, latin-4, latin-5):
Define coding system aliases.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 05 Jul 1997 00:25:53 +0000 |
| parents | c69431ef3310 |
| children | 6bc1e804bbab |
comparison
equal
deleted
inserted
replaced
| 18621:53b95f307c75 | 18622:fe2070df967e |
|---|---|
| 71 "ISO 2022 based 8-bit encoding (MIME:ISO-8859-1, Compound Text Encoding)" | 71 "ISO 2022 based 8-bit encoding (MIME:ISO-8859-1, Compound Text Encoding)" |
| 72 '((ascii t) (latin-iso8859-1 t) nil nil | 72 '((ascii t) (latin-iso8859-1 t) nil nil |
| 73 nil ascii-eol ascii-cntl)) | 73 nil ascii-eol ascii-cntl)) |
| 74 | 74 |
| 75 (define-coding-system-alias 'iso-8859-1 'iso-latin-1) | 75 (define-coding-system-alias 'iso-8859-1 'iso-latin-1) |
| 76 (define-coding-system-alias 'latin-1 'iso-latin-1) | |
| 76 (define-coding-system-alias 'ctext 'iso-latin-1) | 77 (define-coding-system-alias 'ctext 'iso-latin-1) |
| 77 | 78 |
| 78 (defun setup-latin1-environment () | 79 (defun setup-latin1-environment () |
| 79 "Set up multilingual environment (MULE) for European Latin-1 users." | 80 "Set up multilingual environment (MULE) for European Latin-1 users." |
| 80 (interactive) | 81 (interactive) |
| 102 "ISO 2022 based 8-bit encoding (MIME:ISO-8859-2)" | 103 "ISO 2022 based 8-bit encoding (MIME:ISO-8859-2)" |
| 103 '((ascii t) (latin-iso8859-2 t) nil nil | 104 '((ascii t) (latin-iso8859-2 t) nil nil |
| 104 nil ascii-eol ascii-cntl nil nil nil nil)) | 105 nil ascii-eol ascii-cntl nil nil nil nil)) |
| 105 | 106 |
| 106 (define-coding-system-alias 'iso-8859-2 'iso-latin-2) | 107 (define-coding-system-alias 'iso-8859-2 'iso-latin-2) |
| 108 (define-coding-system-alias 'latin-2 'iso-latin-2) | |
| 107 | 109 |
| 108 (defun setup-latin2-environment () | 110 (defun setup-latin2-environment () |
| 109 "Set up multilingual environment (MULE) for European Latin-2 users." | 111 "Set up multilingual environment (MULE) for European Latin-2 users." |
| 110 (interactive) | 112 (interactive) |
| 111 (setup-8-bit-environment "Latin-2" 'latin-iso8859-2 'iso-latin-2 | 113 (setup-8-bit-environment "Latin-2" 'latin-iso8859-2 'iso-latin-2 |
| 130 "ISO 2022 based 8-bit encoding (MIME:ISO-8859-3)" | 132 "ISO 2022 based 8-bit encoding (MIME:ISO-8859-3)" |
| 131 '((ascii t) (latin-iso8859-3 t) nil nil | 133 '((ascii t) (latin-iso8859-3 t) nil nil |
| 132 nil ascii-eol ascii-cntl nil nil nil nil)) | 134 nil ascii-eol ascii-cntl nil nil nil nil)) |
| 133 | 135 |
| 134 (define-coding-system-alias 'iso-8859-3 'iso-latin-3) | 136 (define-coding-system-alias 'iso-8859-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 () |
| 137 "Set up multilingual environment (MULE) for European Latin-3 users." | 140 "Set up multilingual environment (MULE) for European Latin-3 users." |
| 138 (interactive) | 141 (interactive) |
| 139 (setup-8-bit-environment "Latin-3" 'latin-iso8859-3 'iso-latin-3 | 142 (setup-8-bit-environment "Latin-3" 'latin-iso8859-3 'iso-latin-3 |
| 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)) |
| 161 | 164 |
| 162 (define-coding-system-alias 'iso-8859-4 'iso-latin-4) | 165 (define-coding-system-alias 'iso-8859-4 'iso-latin-4) |
| 166 (define-coding-system-alias 'latin-4 'iso-latin-4) | |
| 163 | 167 |
| 164 (defun setup-latin4-environment () | 168 (defun setup-latin4-environment () |
| 165 "Set up multilingual environment (MULE) for European Latin-4 users." | 169 "Set up multilingual environment (MULE) for European Latin-4 users." |
| 166 (interactive) | 170 (interactive) |
| 167 (setup-8-bit-environment "Latin-4" 'latin-iso8859-4 'iso-latin-4 | 171 (setup-8-bit-environment "Latin-4" 'latin-iso8859-4 'iso-latin-4 |
| 186 "ISO 2022 based 8-bit encoding (MIME:ISO-8859-9)" | 190 "ISO 2022 based 8-bit encoding (MIME:ISO-8859-9)" |
| 187 '((ascii t) (latin-iso8859-9 t) nil nil | 191 '((ascii t) (latin-iso8859-9 t) nil nil |
| 188 nil ascii-eol ascii-cntl nil nil nil nil)) | 192 nil ascii-eol ascii-cntl nil nil nil nil)) |
| 189 | 193 |
| 190 (define-coding-system-alias 'iso-8859-9 'iso-latin-5) | 194 (define-coding-system-alias 'iso-8859-9 'iso-latin-5) |
| 195 (define-coding-system-alias 'latin-5 'iso-latin-5) | |
| 191 | 196 |
| 192 (defun setup-latin5-environment () | 197 (defun setup-latin5-environment () |
| 193 "Set up multilingual environment (MULE) for European Latin-5 users." | 198 "Set up multilingual environment (MULE) for European Latin-5 users." |
| 194 (interactive) | 199 (interactive) |
| 195 (setup-8-bit-environment "Latin-5" 'latin-iso8859-9 'iso-latin-5 | 200 (setup-8-bit-environment "Latin-5" 'latin-iso8859-9 'iso-latin-5 |