Mercurial > hg > xemacs-beta
changeset 4085:023ebc75c06e
[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 | 49c847ce8aa6 |
| children | 66a7d93b5f45 |
| files | lisp/ChangeLog lisp/mule/mule-coding.el |
| diffstat | 2 files changed, 12 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Jul 28 08:25:44 2007 +0000 +++ b/lisp/ChangeLog Sat Jul 28 09:32:32 2007 +0000 @@ -1,3 +1,8 @@ +2007-07-28 Aidan Kehoe <kehoea@parhasard.net> + + * mule/mule-coding.el (make-8-bit-create-decode-encode-tables): + Don't creat JIT mappings for U+0080-U+00FF at dump time. + 2007-07-28 Aidan Kehoe <kehoea@parhasard.net> * unicode.el:
--- a/lisp/mule/mule-coding.el Sat Jul 28 08:25:44 2007 +0000 +++ b/lisp/mule/mule-coding.el Sat Jul 28 09:32:32 2007 +0000 @@ -480,8 +480,13 @@ ;; it'll be something else. (setq desired-ucs (+ private-use-start desired-ucs) private-use-start (+ private-use-start 1))) - (aset decode-table i (decode-char 'ucs desired-ucs)) - (puthash desired-ucs (int-to-char i) encode-table))) + (puthash desired-ucs (int-to-char i) encode-table) + (setq desired-ucs (if (> desired-ucs #xFF) + (decode-char 'ucs desired-ucs) + ;; So we get Latin-1 when run at dump time, + ;; instead of JIT-allocated characters. + (int-to-char desired-ucs))) + (aset decode-table i desired-ucs))) (values decode-table encode-table))) (defun make-8-bit-generate-decode-program (decode-table)