Mercurial > hg > xemacs-beta

comparison lisp/unicode.el @ 4560:017044266245

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Automated merge with file:/Sources/xemacs-21.5-checked-out
author Aidan Kehoe <kehoea@parhasard.net>
date Sun, 25 May 2008 22:06:30 +0200
parents 6812571bfcb9 a78d697ccd2c
children 26aae3bacf99
comparison
equal deleted inserted replaced
4559:bd1a68c34d44 4560:017044266245
504 ;; Create all the Unicode error sequences, normally as jit-ucs-charset-0 504 ;; Create all the Unicode error sequences, normally as jit-ucs-charset-0
505 ;; characters starting at U+200000 (which isn't a valid Unicode code 505 ;; characters starting at U+200000 (which isn't a valid Unicode code
506 ;; point). Make them available to user code. 506 ;; point). Make them available to user code.
507 (defvar unicode-error-default-translation-table 507 (defvar unicode-error-default-translation-table
508 (loop 508 (loop
509 with char-table = (make-char-table 'char) 509 with char-table = (make-char-table 'generic)
510 for i from ?\x00 to ?\xFF 510 for i from ?\x00 to ?\xFF
511 initially (unless (featurep 'mule) (return)) 511 initially (unless (featurep 'mule) (return))
512 do 512 do
513 (put-char-table (aref 513 (put-char-table (aref
514 ;; #xd800 is the first leading surrogate; 514 ;; #xd800 is the first leading surrogate;