(cp-make-coding-system): Fix last

change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 504e061643ccfd69763f54682d567f2d59ca945a..9cf56e55285b4cb26b75a0c148d055d20400d603 100644 (file)
--- 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\e,A_\e(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 eeed98a49d1a08b3db71c0646ef9d8e16e639add..3af57bc775b6f7257d0ce83baf676b884eacef86 100644 (file)
--- 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)))