CVS update by aidan xemacs/lisp/mule ...

[xemacs-cvs at xemacs.org]

  User: aidan   
  Date: 07/07/28 11:32:33

  Modified:    xemacs/lisp/mule mule-coding.el
Log:
Don't creat JIT mappings for U+0080-U+00FF at dump time.

Revision  Changes    Path
1.818     +5 -0      XEmacs/xemacs/lisp/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v
retrieving revision 1.817
retrieving revision 1.818
diff -u -p -r1.817 -r1.818
--- ChangeLog	2007/07/28 08:02:15	1.817
+++ ChangeLog	2007/07/28 09:32:26	1.818
@@ -1,5 +1,10 @@
 2007-07-28  Aidan Kehoe  <kehoea at 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 at parhasard.net>
+
 	* unicode.el:
 	Assert that the ccl-encode-to-ucs-2 vector corresponds to the
 	compiled program at byte-compile time. Display non-BMP characters



1.22      +7 -2      XEmacs/xemacs/lisp/mule/mule-coding.el

Index: mule-coding.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/mule/mule-coding.el,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -p -r1.21 -r1.22
--- mule-coding.el	2007/07/27 18:56:53	1.21
+++ mule-coding.el	2007/07/28 09:32:32	1.22
@@ -480,8 +480,13 @@ most of them, at run time.  ")
 	  ;; 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)