(cp-decoding-vector-for-codepage):

Fill up unsupported characters with their own codes.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5e3b3688acad1e6f4a32ecdef8f4af1b52d13389..8a9310ac473806562e36a1e1e0c0f43a8c39fbe2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2000-05-25  Eli Zaretskii  <eliz@is.elta.co.il>
+
+       * international/codepage.el (cp-decoding-vector-for-codepage):
+       Fill up unsupported characters with their own codes.  From Kenichi
+       Handa.
+
 2000-05-25  Eli Zaretskii  <eliz@is.elta.co.il>
 
        * international/mule-diag.el (describe-char-after): Use

diff --git a/lisp/international/codepage.el b/lisp/international/codepage.el
index c36589b3a1f2d3c62797da690a5f01ebfe21cdf9..ef6350eb6fdcec5d54bc0a91fc48c5a75c76b721 100644 (file)
--- a/lisp/international/codepage.el
+++ b/lisp/international/codepage.el
@@ -152,7 +152,7 @@ character is generated by (make-char CHARSET OFFSET)."
            32))
         (vec1 (make-vector 256 undefined-char))
         (i 0))
-    (while (< i offset)
+    (while (< i 256)
       (aset vec1 i i)
       (setq i (1+ i)))
     (setq i 0)