# HG changeset patch
# User aidan
# Date 1185615152 0
# Node ID 023ebc75c06e5610fd09a4fcc7c2b3acf9a13922
# Parent  49c847ce8aa61af7c6c3119b465f75646230d504
[xemacs-hg @ 2007-07-28 09:32:26 by aidan]
Don't creat JIT mappings for U+0080-U+00FF at dump time.

diff -r 49c847ce8aa6 -r 023ebc75c06e lisp/ChangeLog
--- 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:
diff -r 49c847ce8aa6 -r 023ebc75c06e lisp/mule/mule-coding.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)