Mercurial > emacs
comparison lisp/international/mule-conf.el @ 50182:32435942451c
(no-conversion): Call
define-coding-system-internal on this coding system instead of
calling register-char-codings.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Tue, 18 Mar 2003 04:23:12 +0000 |
| parents | c38bf27db0aa |
| children | a23ddd4b5a0b |
comparison
equal
deleted
inserted
replaced
| 50181:b88623fccdf1 | 50182:32435942451c |
|---|---|
| 304 | 304 |
| 305 When you visit a file with this coding, the file is read into a | 305 When you visit a file with this coding, the file is read into a |
| 306 unibyte buffer as is, thus each byte of a file is treated as a | 306 unibyte buffer as is, thus each byte of a file is treated as a |
| 307 character." | 307 character." |
| 308 (list 'coding-category 'coding-category-binary | 308 (list 'coding-category 'coding-category-binary |
| 309 'alias-coding-systems '(no-conversion)) | 309 'alias-coding-systems '(no-conversion) |
| 310 'safe-charsets t 'safe-chars t) | |
| 310 nil)) | 311 nil)) |
| 311 (put 'no-conversion 'eol-type 0) | 312 (put 'no-conversion 'eol-type 0) |
| 312 (put 'coding-category-binary 'coding-systems '(no-conversion)) | 313 (put 'coding-category-binary 'coding-systems '(no-conversion)) |
| 313 (setq coding-system-list '(no-conversion)) | 314 (setq coding-system-list '(no-conversion)) |
| 314 (setq coding-system-alist '(("no-conversion"))) | 315 (setq coding-system-alist '(("no-conversion"))) |
| 315 (register-char-codings 'no-conversion t) | 316 (define-coding-system-internal 'no-conversion) |
| 316 | 317 |
| 317 (define-coding-system-alias 'binary 'no-conversion) | 318 (define-coding-system-alias 'binary 'no-conversion) |
| 318 | 319 |
| 319 (put 'undecided 'coding-system | 320 (put 'undecided 'coding-system |
| 320 (vector t ?- "No conversion on encoding, automatic conversion on decoding" | 321 (vector t ?- "No conversion on encoding, automatic conversion on decoding" |