Index: code-pages.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/international/code-pages.el,v
retrieving revision 1.9
diff -c -p -r1.9 code-pages.el
*** code-pages.el	9 Dec 2002 20:11:13 -0000	1.9
--- code-pages.el	8 Jan 2003 11:45:12 -0000
*************** corresponding args of `make-coding-syste
*** 188,196 ****
  	     ((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 = ??)))
  	       (write-repeat r1)))))))
      `(let ((translation-table (cp-make-translation-table ,v))
  	   (codes (cp-valid-codes ,v)))
--- 188,197 ----
  	     ((loop
  	       (read-multibyte-character r0 r1)
  	       (translate-character ,encoder r0 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)))