439 |
If `use-oldjis' is specified, JIS0208-1976 is designated instead of |
If `use-oldjis' is specified, JIS0208-1976 is designated instead of |
440 |
JIS0208-1983.") |
JIS0208-1983.") |
441 |
|
|
|
;; Fixme: Are translation tables still relevant? (Not currently |
|
|
;; implemented, anyway.) |
|
|
;; Fixme: What does cons :bom mean? Explanation of :endian. |
|
442 |
(defun define-coding-system (name docstring &rest props) |
(defun define-coding-system (name docstring &rest props) |
443 |
"Define NAME (a symbol) as a coding system with DOCSTRING and attributes. |
"Define NAME (a symbol) as a coding system with DOCSTRING and attributes. |
444 |
The remaining arguments must come in pairs ATTRIBUTE VALUE. ATTRIBUTE |
The remaining arguments must come in pairs ATTRIBUTE VALUE. ATTRIBUTE |
556 |
mark'. VALUE must nil, t, or cons of coding systems whose |
mark'. VALUE must nil, t, or cons of coding systems whose |
557 |
`:coding-type' is `utf-16'. |
`:coding-type' is `utf-16'. |
558 |
|
|
559 |
|
If the value is nil, on decoding, don't treat the first two-byte as |
560 |
|
BOM, and on encoding, don't produce BOM bytes. |
561 |
|
|
562 |
|
If the value is t, on decoding, skip the first two-byte as BOM, and on |
563 |
|
encoding, produce BOM bytes accoding to the value of `:endian'. |
564 |
|
|
565 |
|
If the value is cons, on decoding, check the first two-byte. If theyq |
566 |
|
are 0xFE 0xFF, use the car part coding system of the value. If they |
567 |
|
are 0xFF 0xFE, use the car part coding system of the value. |
568 |
|
Otherwise, treat them as bytes for a normal character. On encoding, |
569 |
|
produce BOM bytes accoding to the value of `:endian'. |
570 |
|
|
571 |
This attribute has a meaning only when `:coding-type' is `utf-16'. |
This attribute has a meaning only when `:coding-type' is `utf-16'. |
572 |
|
|
573 |
`:endian' |
`:endian' |
574 |
|
|
575 |
VALUE must be t or nil. See the above description for the detail. |
VALUE must be `big' or `little' specifying big-endian and |
576 |
|
little-endian respectively. The default value is `big'. |
577 |
|
|
578 |
This attribute has a meaning only when `:coding-type' is `utf-16'. |
This attribute has a meaning only when `:coding-type' is `utf-16'. |
579 |
|
|