(cp-make-translation-table): Fix

garbled code.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 38b99031e9fe719cfde52d2b310f8a4ab1ac5b88..66e1f20ce38878842bc072a614ef7f2c3a8a29bf 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-06-18  Dave Love  <fx@gnu.org>
+
+       * international/codepages.el (cp-make-translation-table): Fix
+       garbled code.
+
 2001-06-11  Dave Love  <fx@gnu.org>
 
        * language/european.el ("Dutch"): Add input-method (`dutch').

diff --git a/lisp/international/codepages.el b/lisp/international/codepages.el
index d9af9ee39f557989114059edde66e27b62cec59c..7e7248c10982342f39622a8e6300e6bcba9e7e4b 100644 (file)
--- a/lisp/international/codepages.el
+++ b/lisp/international/codepages.el
@@ -70,11 +70,8 @@ V comprises characters encodable by mule-utf-8."
     (while (< i 128)
       (aset encoding-vector i i)
       (setq i (1+ i)))
-    (while (< i 160)
-      (aset encoding-vector i (aref v (- i 128)))
-      (setq i (1+ i)))
     (while (< i 256)
-      (aset encoding-vector i (decode-char 'ucs i))
+      (aset encoding-vector i (aref v (- i 128)))
       (setq i (1+ i)))
     (make-translation-table-from-vector encoding-vector)))