Mercurial > emacs
comparison lisp/international/mule-conf.el @ 17839:b4a81f70d905
Coding system names changed as follows:
internal -> emacs-mule, automatic-conversion -> undecided.
Coding category name changes as follows:
coding-category-internal -> coding-category-emacs-mule.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 16 May 1997 00:59:00 +0000 |
| parents | b3d62674b210 |
| children | 191bef5a0922 |
comparison
equal
deleted
inserted
replaced
| 17838:b726d209302c | 17839:b4a81f70d905 |
|---|---|
| 212 | 212 |
| 213 (put 'no-conversion 'coding-system | 213 (put 'no-conversion 'coding-system |
| 214 (vector nil ?= "Do no conversion" nil nil)) | 214 (vector nil ?= "Do no conversion" nil nil)) |
| 215 (put 'no-conversion 'eol-type 0) | 215 (put 'no-conversion 'eol-type 0) |
| 216 | 216 |
| 217 (put 'automatic-conversion-unix 'coding-system 'automatic-conversion) | 217 (put 'undecided-unix 'coding-system 'undecided) |
| 218 (put 'automatic-conversion-unix 'eol-type 0) | 218 (put 'undecided-unix 'eol-type 0) |
| 219 (put 'automatic-conversion-dos 'coding-system 'automatic-conversion) | 219 (put 'undecided-dos 'coding-system 'undecided) |
| 220 (put 'automatic-conversion-dos 'eol-type 1) | 220 (put 'undecided-dos 'eol-type 1) |
| 221 (put 'automatic-conversion-mac 'coding-system 'automatic-conversion) | 221 (put 'undecided-mac 'coding-system 'undecided) |
| 222 (put 'automatic-conversion-mac 'eol-type 2) | 222 (put 'undecided-mac 'eol-type 2) |
| 223 (put 'automatic-conversion 'coding-system | 223 (put 'undecided 'coding-system |
| 224 (vector t ?+ "Detect coding-system automatically" nil nil)) | 224 (vector t ?+ "Detect coding-system automatically" nil nil)) |
| 225 (put 'automatic-conversion 'eol-type | 225 (put 'undecided 'eol-type |
| 226 (vector 'automatic-conversion-unix | 226 (vector 'undecided-unix |
| 227 'automatic-conversion-dos | 227 'undecided-dos |
| 228 'automatic-conversion-mac)) | 228 'undecided-mac)) |
| 229 | 229 |
| 230 ;; Coding systems not specific to each language environment. | 230 ;; Coding systems not specific to each language environment. |
| 231 | 231 |
| 232 (make-coding-system | 232 (make-coding-system |
| 233 'internal 0 ?= | 233 'emacs-mule 0 ?= |
| 234 "Internal coding system used in a buffer.") | 234 "Internal coding system used in a buffer.") |
| 235 | 235 |
| 236 (make-coding-system | 236 (make-coding-system |
| 237 'iso-2022-7 2 ?J | 237 'iso-2022-7 2 ?J |
| 238 "Coding system based on ISO2022 7-bit encoding." | 238 "Coding system based on ISO2022 7-bit encoding." |
| 275 nil ascii-eol ascii-cntl locking-shift)) | 275 nil ascii-eol ascii-cntl locking-shift)) |
| 276 | 276 |
| 277 ;; The other coding-systems are defined in each language specific | 277 ;; The other coding-systems are defined in each language specific |
| 278 ;; section of languages.el. | 278 ;; section of languages.el. |
| 279 | 279 |
| 280 ;; Setting coding system 'automatic-conversion for reading any files. | 280 ;; Setting coding system 'undecided for reading any files. Though, |
| 281 ;; Though, compiled Emacs Lisp files (*.elc) should never be decoded | 281 ;; compiled Emacs Lisp files (*.elc) should never be decoded nor |
| 282 ;; nor encoded. | 282 ;; encoded. |
| 283 | 283 |
| 284 (setq coding-system-alist | 284 (setq coding-system-alist |
| 285 '((insert-file-contents | 285 '((insert-file-contents |
| 286 ("\\.elc$" . (no-conversion . nil)) | 286 ("\\.elc$" . (no-conversion . nil)) |
| 287 ("loaddefs.el$" . (no-conversion . nil)) | 287 ("loaddefs.el$" . (no-conversion . nil)) |
| 288 ("" . (automatic-conversion . nil))) | 288 ("" . (undecided . nil))) |
| 289 (write-region | 289 (write-region |
| 290 ("\\.elc$" . (nil . no-conversion)) | 290 ("\\.elc$" . (nil . no-conversion)) |
| 291 ("loaddefs.el$" . (nil . no-conversion))))) | 291 ("loaddefs.el$" . (nil . no-conversion))))) |
| 292 | 292 |
| 293 | 293 |
| 296 ;; This setting is just to read an Emacs Lisp source files which | 296 ;; This setting is just to read an Emacs Lisp source files which |
| 297 ;; contain multilingual text while dumping Emacs. More appropriate | 297 ;; contain multilingual text while dumping Emacs. More appropriate |
| 298 ;; values are set by the command `setup-language-environment' for each | 298 ;; values are set by the command `setup-language-environment' for each |
| 299 ;; language environment. | 299 ;; language environment. |
| 300 | 300 |
| 301 (setq coding-category-internal 'internal | 301 (setq coding-category-emacs-mule 'emacs-mule |
| 302 coding-category-sjis 'sjis | 302 coding-category-sjis 'sjis |
| 303 coding-category-iso-7 'iso-2022-7 | 303 coding-category-iso-7 'iso-2022-7 |
| 304 coding-category-iso-8-1 'iso-8859-1 | 304 coding-category-iso-8-1 'iso-8859-1 |
| 305 coding-category-iso-8-2 'iso-8859-1 | 305 coding-category-iso-8-2 'iso-8859-1 |
| 306 coding-category-iso-else 'iso-8859-1 | 306 coding-category-iso-else 'iso-8859-1 |
| 313 coding-category-iso-8-2 | 313 coding-category-iso-8-2 |
| 314 coding-category-iso-else | 314 coding-category-iso-else |
| 315 coding-category-sjis | 315 coding-category-sjis |
| 316 coding-category-big5 | 316 coding-category-big5 |
| 317 coding-category-binary | 317 coding-category-binary |
| 318 coding-category-internal)) | 318 coding-category-emacs-mule)) |
| 319 | 319 |
| 320 ;;; mule-conf.el ends here | 320 ;;; mule-conf.el ends here |