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)))