# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 959252421 0
# Node ID e2cb024e88cd131607c1bcb401b52c7ee62c01ef
# Parent  b19b46eabcb5ab67e12ba81150878ab24d741e99
(cp-make-coding-systems-for-codepage):
Remove the eight-bit-graphic and eight-bit-control charsets from
the list of charsets which we convert into `?'.

diff -r b19b46eabcb5 -r e2cb024e88cd lisp/international/codepage.el
--- a/lisp/international/codepage.el	Thu May 25 10:56:36 2000 +0000
+++ b/lisp/international/codepage.el	Thu May 25 11:00:21 2000 +0000
@@ -515,8 +515,8 @@
 	   (symbol-value decode-table) iso-name offset)))
     (define-translation-table encode-translation
       (char-table-extra-slot (symbol-value nonascii-table) 0))
-    ;; For charsets other than ascii and ISO-NAME, set `?' for
-    ;; one-column charsets, and some Japanese character for
+    ;; For charsets other than ascii, eight-bit-* and ISO-NAME, set
+    ;; `?' for one-column charsets, and some Japanese character for
     ;; wide-column charsets.  CCL encoder convert that Japanese
     ;; character to either dos-unsupported-char-glyph or "??".
     (let ((tbl (char-table-extra-slot (symbol-value nonascii-table) 0))
@@ -525,8 +525,11 @@
 			 (logand dos-unsupported-char-glyph 255)
 		       127)
 		   ??))
-	  (charsets (delq 'ascii (delq iso-name
-				       (copy-sequence charset-list))))
+	  (charsets (delq 'ascii
+			  (delq 'eight-bit-control
+				(delq 'eight-bit-graphic
+				      (delq iso-name
+					    (copy-sequence charset-list))))))
 	  (wide-column-char (make-char 'japanese-jisx0208 32 32)))
       (while charsets
 	(aset tbl (make-char (car charsets))