Mercurial > hg > xemacs-beta

comparison lisp/unicode.el @ 877:e54d47b2d736

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-06-23 09:54:35 by stephent] warning fixes <87bsa2qymn.fsf@tleepslib.sk.tsukuba.ac.jp> unicode improvements <87znxmpc96.fsf@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Sun, 23 Jun 2002 09:54:41 +0000
parents 578cb2932d72
children 7f62a956b825
comparison
equal deleted inserted replaced
876:890f3cafe600 877:e54d47b2d736
80 ;; 700Mhz even with a totally optimization-disabled XEmacs. 80 ;; 700Mhz even with a totally optimization-disabled XEmacs.
81 (defun load-unicode-tables () 81 (defun load-unicode-tables ()
82 "Initialize the Unicode translation tables for all standard charsets." 82 "Initialize the Unicode translation tables for all standard charsets."
83 (let ((parse-args 83 (let ((parse-args
84 '(("unicode/unicode-consortium" 84 '(("unicode/unicode-consortium"
85 ;; Due to the braindamaged way Mule treats the ASCII and Control-1
86 ;; charsets' types, trying to load them results in out-of-range
87 ;; warnings at unicode.c:1439. They're no-ops anyway, they're
88 ;; hardwired in unicode.c (unicode_to_ichar, ichar_to_unicode).
89 ;; ("8859-1.TXT" ascii #x00 #x7F #x0)
90 ;; ("8859-1.TXT" control-1 #x80 #x9F #x-80)
91 ;; The 8859-1.TXT G1 assignments are half no-ops, hardwired in
92 ;; unicode.c ichar_to_unicode, but not in unicode_to_ichar.
85 ("8859-1.TXT" latin-iso8859-1 #xA0 #xFF #x-80) 93 ("8859-1.TXT" latin-iso8859-1 #xA0 #xFF #x-80)
86 ;; "8859-10.TXT" 94 ;; "8859-10.TXT"
87 ;; "8859-13.TXT" 95 ;; "8859-13.TXT"
88 ;; "8859-14.TXT"
89 ("8859-14.TXT" latin-iso8859-14 #xA0 #xFF #x-80) 96 ("8859-14.TXT" latin-iso8859-14 #xA0 #xFF #x-80)
90 ("8859-15.TXT" latin-iso8859-15 #xA0 #xFF #x-80) 97 ("8859-15.TXT" latin-iso8859-15 #xA0 #xFF #x-80)
91 ("8859-2.TXT" latin-iso8859-2 #xA0 #xFF #x-80) 98 ("8859-2.TXT" latin-iso8859-2 #xA0 #xFF #x-80)
92 ("8859-3.TXT" latin-iso8859-3 #xA0 #xFF #x-80) 99 ("8859-3.TXT" latin-iso8859-3 #xA0 #xFF #x-80)
93 ("8859-4.TXT" latin-iso8859-4 #xA0 #xFF #x-80) 100 ("8859-4.TXT" latin-iso8859-4 #xA0 #xFF #x-80)