Mercurial > hg > xemacs-beta
comparison lisp/coding.el @ 985:7f62a956b825
[xemacs-hg @ 2002-09-01 06:41:40 by youngs]
2002-08-31 Seiichi Ikiuo <ikiuo@polyphony.co.jp>
* code-init.el (reset-coding-categories-to-default): Add new
coding category 'utf-8-bom'.
* coding.el (coding-system-category): Add check for 'utf-8-bom'.
* unicode.el: Add new coding system 'utf-8-bom'.
2002-08-31 Seiichi Ikiuo <ikiuo@polyphony.co.jp>
* file-coding.h (detection_result): fix DET_LOWEST.
* mule-coding.c
(big5_detector): Add member 'seen_euc_char'.
(big5_detect): It was made not to become the trouble of EUC.
(iso2022_detector): Add member 'longest_even_high_byte'.
(iso2022_detect): Fix checking for even/odd_high_byte_group.
The judgment of EUC is changed.
* unicode.c: Add DETECTOR_CATEGORY utf_8_bom.
(utf_8_detector): Add member byteno, first_byte and second_byte.
(utf_8_detect): The judgment of UTF-8-BOM is added.
author | youngs |
---|---|
date | Sun, 01 Sep 2002 06:41:45 +0000 |
parents | 943eaba38521 |
children | 6b2ef948e140 |
comparison
equal
deleted
inserted
replaced
984:c55a519aa13f | 985:7f62a956b825 |
---|---|
199 (or (coding-system-get coding-system 'category) | 199 (or (coding-system-get coding-system 'category) |
200 (case (coding-system-type coding-system) | 200 (case (coding-system-type coding-system) |
201 (no-conversion 'no-conversion) | 201 (no-conversion 'no-conversion) |
202 (shift-jis 'shift-jis) | 202 (shift-jis 'shift-jis) |
203 (unicode (case (coding-system-property coding-system 'type) | 203 (unicode (case (coding-system-property coding-system 'type) |
204 (utf-8 'utf-8) | 204 (utf-8 (let ((bom (coding-system-property coding-system |
205 'need-bom))) | |
206 (cond (bom 'utf-8-bom) | |
207 ((not bom) 'utf-8)))) | |
205 (ucs-4 'ucs-4) | 208 (ucs-4 'ucs-4) |
206 (utf-16 (let ((bom (coding-system-property coding-system | 209 (utf-16 (let ((bom (coding-system-property coding-system |
207 'need-bom)) | 210 'need-bom)) |
208 (le (coding-system-property coding-system | 211 (le (coding-system-property coding-system |
209 'little-endian))) | 212 'little-endian))) |