diff options
| author | Dave Love <fx@gnu.org> | 2002-11-26 18:17:33 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 2002-11-26 18:17:33 +0000 |
| commit | 5ba511bddffbc625bec5b9a373edb030a1dc672f (patch) | |
| tree | 92f0eb79be4a76c03607054921ad899f0b862739 /lisp/international/code-pages.el | |
| parent | 149c2e798533130ed2218096de70f3ed6390e363 (diff) | |
| download | emacs-5ba511bddffbc625bec5b9a373edb030a1dc672f.tar.gz | |
(cp-make-coding-system): Deal with
unencodable characters.
Diffstat (limited to 'lisp/international/code-pages.el')
| -rw-r--r-- | lisp/international/code-pages.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/international/code-pages.el b/lisp/international/code-pages.el index f7609659e43..33975a6eb2f 100644 --- a/lisp/international/code-pages.el +++ b/lisp/international/code-pages.el @@ -185,6 +185,9 @@ 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 = ??))) (write-repeat r1))))))) `(let ((translation-table (cp-make-translation-table ,v)) (codes (cp-valid-codes ,v))) |