2 files changed, 10 insertions, 4 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 504e061643c..9cf56e55285 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-01-10  Dave Love  <fx@gnu.org>
+
+        * international/code-pages.el (cp-make-coding-system): Fix last
+        change.
+
 2003-01-10  Kai Gro,A_(Bjohann  <kai.grossjohann@uni-duisburg.de>
 
         * dired.el (dired-garbage-files-regexp): Use \\' instead of $ and
diff --git a/lisp/international/code-pages.el b/lisp/international/code-pages.el
index eeed98a49d1..3af57bc775b 100644
--- a/lisp/international/code-pages.el
+++ b/lisp/international/code-pages.el
@@ -107,7 +107,7 @@ CS is a base coding system or alias."
                    (remq cs (aref char-coding-system-table k)))))
        chars))))
 
-;; Fix things that have been, or might be done by codepage.el.
+;; Fix things that have been, or might be, done by codepage.el.
 (eval-after-load "codepage"
   '(progn
 
@@ -188,9 +188,10 @@ corresponding args of `make-coding-system'.  If MNEMONIC isn't given,
              ((loop
                (read-multibyte-character r0 r1)
                (translate-character ,encoder r0 r1)
-               (if (r0 != ,(charset-id 'eight-bit-graphic))
-                   (if (r0 != ,(charset-id 'eight-bit-control))
-                     (r1 = ??)))
+               (if (r0 != ,(charset-id 'ascii))
+                   (if (r0 != ,(charset-id 'eight-bit-graphic))
+                       (if (r0 != ,(charset-id 'eight-bit-control))
+                           (r1 = ??))))
                (write-repeat r1)))))))
     `(let ((translation-table (cp-make-translation-table ,v))
            (codes (cp-valid-codes ,v)))