From: Dave Love <fx@gnu.org>
Date: Thu, 19 Jul 2001 14:18:35 +0000 (+0000)
Subject: (cp-make-translation-table): Fix
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=121e3ecb582ab70a04ec44c1ce06cbab0e795d69;p=emacs.git

(cp-make-translation-table): Fix
garbled code.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 38b99031e9f..66e1f20ce38 100644
--- 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 d9af9ee39f5..7e7248c1098 100644
--- 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)))