# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1042241372 0
# Node ID 4be31e60a8a176cdeb75e2a029748f594ff0f1f9
# Parent  8dca38bc0261086fa4ba895aa928c32742db11c2
(cp-make-coding-system): Fix last
change.

diff -r 8dca38bc0261 -r 4be31e60a8a1 lisp/international/code-pages.el
--- a/lisp/international/code-pages.el	Fri Jan 10 22:24:41 2003 +0000
+++ b/lisp/international/code-pages.el	Fri Jan 10 23:29:32 2003 +0000
@@ -107,7 +107,7 @@
 		   (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 @@
 	     ((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)))