From 14028d571b4058de7320aac9c69029944689e6f2 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Thu, 25 May 2000 15:47:07 +0000 Subject: [PATCH] (cp-decoding-vector-for-codepage): Fill up unsupported characters with their own codes. --- lisp/ChangeLog | 6 ++++++ lisp/international/codepage.el | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) 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 + + * international/codepage.el (cp-decoding-vector-for-codepage): + Fill up unsupported characters with their own codes. From Kenichi + Handa. + 2000-05-25 Eli Zaretskii * 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) -- 2.39.5