Mercurial > hg > xemacs-beta

comparison lisp/unicode.el @ 2574:5e2653bc0ab0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-02-08 23:59:50 by aidan] Add coding system aliases for utf-16-be and utf-16-le, for improved compatibility with Mule-UCS and the FSF.
author aidan
date Tue, 08 Feb 2005 23:59:51 +0000
parents ecf1ebac70d8
children e71117a6ddac
comparison
equal deleted inserted replaced
2573:215468ea6d10 2574:5e2653bc0ab0
190 0x10FFFF (a little more than 1,000,000). Unicode and ISO guarantee 190 0x10FFFF (a little more than 1,000,000). Unicode and ISO guarantee
191 never to encode any characters outside this range -- all the rest are 191 never to encode any characters outside this range -- all the rest are
192 for private, corporate or internal use." 192 for private, corporate or internal use."
193 type utf-16)) 193 type utf-16))
194 194
195 (define-coding-system-alias 'utf-16-be 'utf-16)
196
195 (make-coding-system 197 (make-coding-system
196 'utf-16-bom 'unicode 198 'utf-16-bom 'unicode
197 "UTF-16 w/BOM" 199 "UTF-16 w/BOM"
198 '(mnemonic "UTF16-BOM" 200 '(mnemonic "UTF16-BOM"
199 documentation 201 documentation
227 "Little-endian version of UTF-16 Unicode encoding. 229 "Little-endian version of UTF-16 Unicode encoding.
228 See `utf-16' coding system." 230 See `utf-16' coding system."
229 type utf-16 231 type utf-16
230 little-endian t)) 232 little-endian t))
231 233
234 (define-coding-system-alias 'utf-16-le 'utf-16-little-endian)
235
232 (make-coding-system 236 (make-coding-system
233 'utf-16-little-endian-bom 'unicode 237 'utf-16-little-endian-bom 'unicode
234 "UTF-16 Little Endian w/BOM" 238 "UTF-16 Little Endian w/BOM"
235 '(mnemonic "MSW-Unicode" 239 '(mnemonic "MSW-Unicode"
236 documentation 240 documentation