From: Eli Zaretskii <eliz@gnu.org>
Date: Thu, 25 May 2000 15:47:07 +0000 (+0000)
Subject: (cp-decoding-vector-for-codepage):
X-Git-Tag: emacs-pretest-21.0.90~3719
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=14028d571b4058de7320aac9c69029944689e6f2;p=emacs.git

(cp-decoding-vector-for-codepage):
Fill up unsupported characters with their own codes.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5e3b3688aca..8a9310ac473 100644
--- 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 c36589b3a1f..ef6350eb6fd 100644
--- 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)