Mercurial > emacs
comparison lisp/international/codepage.el @ 29180:e2cb024e88cd
(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 `?'.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Thu, 25 May 2000 11:00:21 +0000 |
| parents | 5d61c3793c06 |
| children | 59e5b57b10db |
comparison
equal
deleted
inserted
replaced
| 29179:b19b46eabcb5 | 29180:e2cb024e88cd |
|---|---|
| 513 (make-translation-table-from-vector | 513 (make-translation-table-from-vector |
| 514 (cp-decoding-vector-for-codepage | 514 (cp-decoding-vector-for-codepage |
| 515 (symbol-value decode-table) iso-name offset))) | 515 (symbol-value decode-table) iso-name offset))) |
| 516 (define-translation-table encode-translation | 516 (define-translation-table encode-translation |
| 517 (char-table-extra-slot (symbol-value nonascii-table) 0)) | 517 (char-table-extra-slot (symbol-value nonascii-table) 0)) |
| 518 ;; For charsets other than ascii and ISO-NAME, set `?' for | 518 ;; For charsets other than ascii, eight-bit-* and ISO-NAME, set |
| 519 ;; one-column charsets, and some Japanese character for | 519 ;; `?' for one-column charsets, and some Japanese character for |
| 520 ;; wide-column charsets. CCL encoder convert that Japanese | 520 ;; wide-column charsets. CCL encoder convert that Japanese |
| 521 ;; character to either dos-unsupported-char-glyph or "??". | 521 ;; character to either dos-unsupported-char-glyph or "??". |
| 522 (let ((tbl (char-table-extra-slot (symbol-value nonascii-table) 0)) | 522 (let ((tbl (char-table-extra-slot (symbol-value nonascii-table) 0)) |
| 523 (undef (if (eq system-type 'ms-dos) | 523 (undef (if (eq system-type 'ms-dos) |
| 524 (if dos-unsupported-char-glyph | 524 (if dos-unsupported-char-glyph |
| 525 (logand dos-unsupported-char-glyph 255) | 525 (logand dos-unsupported-char-glyph 255) |
| 526 127) | 526 127) |
| 527 ??)) | 527 ??)) |
| 528 (charsets (delq 'ascii (delq iso-name | 528 (charsets (delq 'ascii |
| 529 (copy-sequence charset-list)))) | 529 (delq 'eight-bit-control |
| 530 (delq 'eight-bit-graphic | |
| 531 (delq iso-name | |
| 532 (copy-sequence charset-list)))))) | |
| 530 (wide-column-char (make-char 'japanese-jisx0208 32 32))) | 533 (wide-column-char (make-char 'japanese-jisx0208 32 32))) |
| 531 (while charsets | 534 (while charsets |
| 532 (aset tbl (make-char (car charsets)) | 535 (aset tbl (make-char (car charsets)) |
| 533 (if (= (charset-width (car charsets)) 1) undef wide-column-char)) | 536 (if (= (charset-width (car charsets)) 1) undef wide-column-char)) |
| 534 (setq charsets (cdr charsets)))) | 537 (setq charsets (cdr charsets)))) |