Mercurial > emacs
comparison lisp/international/mule-conf.el @ 36686:9688519d51d6
(no-conversion): Fix docstring.
(raw-text): Fix docstring.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 09 Mar 2001 00:27:36 +0000 |
| parents | 60e98df5c4ce |
| children | d566b1e9a5bb |
comparison
equal
deleted
inserted
replaced
| 36685:ce27cce29f91 | 36686:9688519d51d6 |
|---|---|
| 281 | 281 |
| 282 ;; Miscellaneous coding systems which can't be made by | 282 ;; Miscellaneous coding systems which can't be made by |
| 283 ;; `make-coding-system'. | 283 ;; `make-coding-system'. |
| 284 | 284 |
| 285 (put 'no-conversion 'coding-system | 285 (put 'no-conversion 'coding-system |
| 286 (vector nil ?= "Do no conversion" | 286 (vector nil ?= "Do no conversion. |
| 287 | |
| 288 When you visit a file with this coding, the file is read into a | |
| 289 unibyte buffer as is, thus each byte of a file is treated as a | |
| 290 character." | |
| 287 (list 'coding-category 'coding-category-binary | 291 (list 'coding-category 'coding-category-binary |
| 288 'alias-coding-systems '(no-conversion)) | 292 'alias-coding-systems '(no-conversion)) |
| 289 nil)) | 293 nil)) |
| 290 (put 'no-conversion 'eol-type 0) | 294 (put 'no-conversion 'eol-type 0) |
| 291 (put 'coding-category-binary 'coding-systems '(no-conversion)) | 295 (put 'coding-category-binary 'coding-systems '(no-conversion)) |
| 312 ;; Coding systems not specific to each language environment. | 316 ;; Coding systems not specific to each language environment. |
| 313 | 317 |
| 314 (make-coding-system | 318 (make-coding-system |
| 315 'emacs-mule 0 ?= | 319 'emacs-mule 0 ?= |
| 316 "Emacs internal format used in buffer and string. | 320 "Emacs internal format used in buffer and string. |
| 321 | |
| 317 Encoding text with this coding system produces the actual byte | 322 Encoding text with this coding system produces the actual byte |
| 318 sequence of the text in buffers and strings. An exception is made for | 323 sequence of the text in buffers and strings. An exception is made for |
| 319 eight-bit-control characters. Each of them is encoded into a single | 324 eight-bit-control characters. Each of them is encoded into a single |
| 320 byte." | 325 byte." |
| 321 nil | 326 nil |
| 325 'raw-text 5 ?t | 330 'raw-text 5 ?t |
| 326 "Raw text, which means text contains random 8-bit codes. | 331 "Raw text, which means text contains random 8-bit codes. |
| 327 Encoding text with this coding system produces the actual byte | 332 Encoding text with this coding system produces the actual byte |
| 328 sequence of the text in buffers and strings. An exception is made for | 333 sequence of the text in buffers and strings. An exception is made for |
| 329 eight-bit-control characters. Each of them is encoded into a single | 334 eight-bit-control characters. Each of them is encoded into a single |
| 330 byte." | 335 byte. |
| 336 | |
| 337 When you visit a file with this coding, the file is read into a | |
| 338 unibyte buffer as is (except for EOL format), thus each byte of a file | |
| 339 is treated as a character." | |
| 331 nil | 340 nil |
| 332 '((safe-charsets . t))) | 341 '((safe-charsets . t))) |
| 333 | 342 |
| 334 (make-coding-system | 343 (make-coding-system |
| 335 'iso-2022-7bit 2 ?J | 344 'iso-2022-7bit 2 ?J |