From 0d35b92b134990cf6df9612a2fe153602b13f238 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Thu, 25 May 2000 11:00:21 +0000 Subject: [PATCH] (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 `?'. --- lisp/international/codepage.el | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/lisp/international/codepage.el b/lisp/international/codepage.el index 1d7631bc4b7..c36589b3a1f 100644 --- a/lisp/international/codepage.el +++ b/lisp/international/codepage.el @@ -515,8 +515,8 @@ decoder and encoder created by this function." (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 @@ decoder and encoder created by this function." (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)) -- 2.39.5