From 121e3ecb582ab70a04ec44c1ce06cbab0e795d69 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Thu, 19 Jul 2001 14:18:35 +0000 Subject: [PATCH] (cp-make-translation-table): Fix garbled code. --- lisp/ChangeLog | 5 +++++ lisp/international/codepages.el | 5 +---- 2 files changed, 6 insertions(+), 4 deletions(-) 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 + + * international/codepages.el (cp-make-translation-table): Fix + garbled code. + 2001-06-11 Dave Love * 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))) -- 2.39.5