Mercurial > hg > xemacs-beta

comparison lisp/mule/mule-coding.el @ 4085:023ebc75c06e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-07-28 09:32:26 by aidan] Don't creat JIT mappings for U+0080-U+00FF at dump time.
author aidan
date Sat, 28 Jul 2007 09:32:32 +0000
parents 476d0799d704
children 751ae075e76e
comparison
equal deleted inserted replaced
4084:49c847ce8aa6 4085:023ebc75c06e
478 ;; In the normal case, the code point chosen will be U+E0XY, where 478 ;; In the normal case, the code point chosen will be U+E0XY, where
479 ;; XY is the hexadecimal octet on disk. In pathological cases 479 ;; XY is the hexadecimal octet on disk. In pathological cases
480 ;; it'll be something else. 480 ;; it'll be something else.
481 (setq desired-ucs (+ private-use-start desired-ucs) 481 (setq desired-ucs (+ private-use-start desired-ucs)
482 private-use-start (+ private-use-start 1))) 482 private-use-start (+ private-use-start 1)))
483 (aset decode-table i (decode-char 'ucs desired-ucs)) 483 (puthash desired-ucs (int-to-char i) encode-table)
484 (puthash desired-ucs (int-to-char i) encode-table))) 484 (setq desired-ucs (if (> desired-ucs #xFF)
485 (decode-char 'ucs desired-ucs)
486 ;; So we get Latin-1 when run at dump time,
487 ;; instead of JIT-allocated characters.
488 (int-to-char desired-ucs)))
489 (aset decode-table i desired-ucs)))
485 (values decode-table encode-table))) 490 (values decode-table encode-table)))
486 491
487 (defun make-8-bit-generate-decode-program (decode-table) 492 (defun make-8-bit-generate-decode-program (decode-table)
488 "Given DECODE-TABLE, generate a CCL program to decode an 8-bit charset. 493 "Given DECODE-TABLE, generate a CCL program to decode an 8-bit charset.
489 DECODE-TABLE must have 256 non-cons entries, and will be regarded as 494 DECODE-TABLE must have 256 non-cons entries, and will be regarded as